From 4dbf6842e0b2b43c5f8c15817942dfecaab5cd2e Mon Sep 17 00:00:00 2001
From: barras
Date: Tue, 5 Mar 2002 10:58:08 +0000
Subject: 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
---
 theories/IntMap/Adalloc.v | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'theories/IntMap')

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.
-- 
cgit v1.2.3