From 4ff55199d062a25e7a3d678190552451121b1111 Mon Sep 17 00:00:00 2001 From: herbelin Date: Thu, 10 Jan 2002 12:15:06 +0000 Subject: Modifs incongrues dans le précédent commit MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2385 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Init/Peano.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'theories/Init/Peano.v') diff --git a/theories/Init/Peano.v b/theories/Init/Peano.v index 724c3db2e..1ab517647 100755 --- a/theories/Init/Peano.v +++ b/theories/Init/Peano.v @@ -113,8 +113,8 @@ Hints Resolve mult_n_O : core v62. Lemma mult_n_Sm : (n,m:nat) (plus (mult n m) n)=(mult n (S m)). Proof. - Intros n m; NewInduction n; Simpl; Auto. - Rewrite <- IHn; Rewrite -> plus_n_Sm. + Intros; Elim n; Simpl; Auto. + Intros p H; Case H; Elim plus_n_Sm; Apply (f_equal nat nat S). Pattern 1 3 m; Elim m; Simpl; Auto. Qed. Hints Resolve mult_n_Sm : core v62. -- cgit v1.2.3