From bb02036b476d3a3e7b3b79568257ef3d28ea6a11 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 4 Oct 2000 15:58:49 +0000
Subject: Mise en conformité nouveau Simpl pour Fix

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@654 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Arith/Div2.v | 22 +++++++++++-----------
 theories/Arith/Even.v |  2 +-
 2 files changed, 12 insertions(+), 12 deletions(-)

(limited to 'theories/Arith')

diff --git a/theories/Arith/Div2.v b/theories/Arith/Div2.v
index 5520e179d8..a2187a89bc 100644
--- a/theories/Arith/Div2.v
+++ b/theories/Arith/Div2.v
@@ -27,7 +27,7 @@ Intros. Elim (H2 n). Auto with arith.
 
 Induction n0. Auto with arith.
 Intros. Elim H2; Auto with arith.
-Save.
+Qed.
 
 (* 0 <n  =>  n/2 < n *)
 
@@ -40,7 +40,7 @@ Intros. Simpl.
 Case (zerop n0).
 Intro. Rewrite e. Auto with arith.
 Auto with arith.
-Save.
+Qed.
 
 Hints Resolve lt_div2 : arith.
 
@@ -67,7 +67,7 @@ Intro H. Inversion H. Inversion H1.
 Change (S (div2 n0))=(S (div2 (S n0))). Auto with arith.
 Intro H. Inversion H. Inversion H1.
 Change (S (S (div2 n0)))=(S (div2 (S n0))). Auto with arith.
-Save.
+Qed.
 
 (* Specializations *)
 
@@ -94,7 +94,7 @@ Hints Unfold double : arith.
 Lemma double_S : (n:nat) (double (S n))=(S (S (double n))).
 Proof.
 Intro. Unfold double. Simpl. Auto with arith.
-Save.
+Qed.
 
 Hints Resolve double_S : arith.
 
@@ -113,12 +113,12 @@ 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.
+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 (double_S (div2 n0)). Auto with arith.
-Simpl. Rewrite (double_S (div2 n0)). Intro H. Injection H. Auto with arith.
-Save.
+Simpl. Rewrite <- plus_n_Sm. Auto with arith.
+Simpl. Rewrite <- plus_n_Sm. Intro H. Injection H. Auto with arith.
+Qed.
 
 
 (* Specializations *)
@@ -147,10 +147,10 @@ Hints Resolve even_double double_even odd_double double_odd : arith.
 Lemma even_2n : (n:nat) (even n) -> { p:nat | n=(double p) }.
 Proof.
 Intros n H. Exists (div2 n). Auto with arith.
-Save.
+Qed.
 
 Lemma odd_S2n : (n:nat) (odd n) -> { p:nat | n=(S (double p)) }.
 Proof.
 Intros n H. Exists (div2 n). Auto with arith.
-Save.
+Qed.
 
diff --git a/theories/Arith/Even.v b/theories/Arith/Even.v
index a79a4d2672..e2ae8eed27 100644
--- a/theories/Arith/Even.v
+++ b/theories/Arith/Even.v
@@ -30,7 +30,7 @@ Auto with arith.
 Intros n' H. Elim H; Auto with arith.
 Save.
 
-Lemma not_even_and_odd : (n:nat) (even n) -> (odd n) -> False.
+Lemma not_even_and_odd2 : (n:nat) (even n) -> (odd n) -> False.
 Proof.
 Induction n.
 Intros. Inversion H0.
-- 
cgit v1.2.3