diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-20 19:46:21 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-20 19:46:21 +0000 |
commit | b9da9226ebd8a2db21570ba269663e16f63e1815 (patch) | |
tree | 0edbf36cc7ad7804833bb607801b525a3dac57ce /theories/Arith/Div2.v | |
parent | 296fb02406b92203339e6493ede9b9ef0d65075b (diff) |
Rétablissement de l'ancien comportement de Simpl sauf dans le cas mutuel inductif où la constante la plus proche du Fix est prise en compte
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1169 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Arith/Div2.v')
-rw-r--r-- | theories/Arith/Div2.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/theories/Arith/Div2.v b/theories/Arith/Div2.v index a2187a89b..202e7a97a 100644 --- a/theories/Arith/Div2.v +++ b/theories/Arith/Div2.v @@ -113,11 +113,18 @@ Intros. Decompose [and] H. Unfold iff in H0 H1. Decompose [and] H0. Decompose [and] H1. Clear H H0 H1. Split; Split. Intro H. Inversion H. Inversion H1. +Simpl. Rewrite (double_S (div2 n0)). Auto with arith. +Simpl. Rewrite (double_S (div2 n0)). Intro H. Injection H. Auto with arith. +Intro H. Inversion H. Inversion H1. +Simpl. Rewrite (double_S (div2 n0)). Auto with arith. +Simpl. Rewrite (double_S (div2 n0)). Intro H. Injection H. Auto with arith. +(* Simpl. Rewrite <- plus_n_Sm. Auto with arith. Simpl. Rewrite <- plus_n_Sm. Intro H. Injection H. Auto with arith. Intro H. Inversion H. Inversion H1. Simpl. Rewrite <- plus_n_Sm. Auto with arith. Simpl. Rewrite <- plus_n_Sm. Intro H. Injection H. Auto with arith. +*) Qed. |