diff options
| author | barras | 2002-03-05 10:58:08 +0000 |
|---|---|---|
| committer | barras | 2002-03-05 10:58:08 +0000 |
| commit | 4dbf6842e0b2b43c5f8c15817942dfecaab5cd2e (patch) | |
| tree | f81b47df039aed8471726bfb635b6a675602ecab /theories/IntMap/Adalloc.v | |
| parent | 21cd39996cabdf280f4cc99557c54f6c7c73bbc8 (diff) | |
petits changements afin de profiter du nouveau Rewrite/in
(l'unification marche mieux)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2512 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/IntMap/Adalloc.v')
| -rw-r--r-- | theories/IntMap/Adalloc.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/theories/IntMap/Adalloc.v b/theories/IntMap/Adalloc.v index 8fe68376bf..32bebd2571 100644 --- a/theories/IntMap/Adalloc.v +++ b/theories/IntMap/Adalloc.v @@ -58,7 +58,7 @@ Section AdAlloc. Lemma nat_le_complete_conv : (m,n:nat) (nat_le n m)=false -> (lt m n). Proof. - Intros. Elim (le_or_lt n m). Intro. Rewrite (nat_le_correct ? ? H0) in H. Discriminate H. + Intros. Elim (le_or_lt n m). Intro. Conditional Trivial Rewrite nat_le_correct in H. Discriminate H. Trivial. Qed. @@ -70,8 +70,8 @@ Section AdAlloc. Lemma ad_of_nat_of_ad : (a:ad) (ad_of_nat (nat_of_ad a))=a. Proof. Induction a. Reflexivity. - Intro. Simpl. Elim (ZL4 p). Intros p' H. Rewrite H. Simpl. Rewrite <- (bij1 p') in H. - Rewrite (convert_intro ? ? H). Reflexivity. + Intro. Simpl. Elim (ZL4 p). Intros p' H. Rewrite H. Simpl. Rewrite <- bij1 in H. + Rewrite convert_intro with 1:=H. Reflexivity. Qed. Lemma nat_of_ad_of_nat : (n:nat) (nat_of_ad (ad_of_nat n))=n. |