From 183112fc6a5fbb7d1c6d60b9717cdb8aceda78ca Mon Sep 17 00:00:00 2001 From: Pierre Boutillier Date: Mon, 8 Sep 2014 16:19:39 +0200 Subject: Simpl less (so that cbn will not simpl too much) --- theories/Arith/Div2.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'theories/Arith') diff --git a/theories/Arith/Div2.v b/theories/Arith/Div2.v index 8cef48b69..a9d77c90d 100644 --- a/theories/Arith/Div2.v +++ b/theories/Arith/Div2.v @@ -110,7 +110,7 @@ Proof. split; split; auto with arith. inversion_clear 1. inversion H0. - (* n = (S (S n')) *) destruct (even_odd_double n) as ((Ev,Ev'),(Od,Od')). - split; split; simpl; rewrite ?double_S. + split; split; simpl div2; rewrite ?double_S. + inversion_clear 1. inversion_clear H0. auto. + injection 1. auto with arith. + inversion_clear 1. inversion_clear H0. auto. -- cgit v1.2.3