From d56cb8c2382bc0c109e84d46bff9762275da38a5 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 12 Nov 2003 19:20:07 +0000
Subject: Noms canoniques pour les variables liees

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4877 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Arith/Factorial.v | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/theories/Arith/Factorial.v b/theories/Arith/Factorial.v
index ca176a6c67..1d1ee00af6 100644
--- a/theories/Arith/Factorial.v
+++ b/theories/Arith/Factorial.v
@@ -37,15 +37,15 @@ Apply lt_O_neq.
 Apply lt_O_fact.
 Qed.
 
-Lemma fact_growing : (m,n:nat) (le m n) -> (le (fact m) (fact n)).
+Lemma fact_growing : (n,m:nat) (le n m) -> (le (fact n) (fact m)).
 Proof.
 NewInduction 1.
 Apply le_n.
-Assert (le (mult (S O) (fact m)) (mult (S m0) (fact m0))).
+Assert (le (mult (S O) (fact n)) (mult (S m) (fact m))).
 Apply le_mult_mult.
 Apply lt_le_S; Apply lt_O_Sn.
 Assumption.
-Simpl (mult (S O) (fact m)) in H0.
+Simpl (mult (S O) (fact n)) in H0.
 Rewrite <- plus_n_O in H0.
 Assumption.
 Qed.
-- 
cgit v1.2.3