X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fprocedural%2FCoq%2FReals%2FRprod.mma;h=7ec6614bb5b88344e5a8706cf874bc2ac3fe388b;hb=0639dda9142d1cf047b07e61fb557e8877aba4d8;hp=b85e455907148ed1daa2083fff6048f79e4380f0;hpb=29714797b01e0ac8c22e4df2827b1785a759f482;p=helm.git

diff --git a/helm/software/matita/contribs/procedural/Coq/Reals/Rprod.mma b/helm/software/matita/contribs/procedural/Coq/Reals/Rprod.mma
index b85e45590..7ec6614bb 100644
--- a/helm/software/matita/contribs/procedural/Coq/Reals/Rprod.mma
+++ b/helm/software/matita/contribs/procedural/Coq/Reals/Rprod.mma
@@ -16,21 +16,21 @@
 
 include "Coq.ma".
 
-(*#**********************************************************************)
+(*#***********************************************************************)
 
-(*  v      *   The Coq Proof Assistant  /  The Coq Development Team    *)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
 
-(* <O___,, *        INRIA-Rocquencourt  &  LRI-CNRS-Orsay              *)
+(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *)
 
-(*   \VV/  *************************************************************)
+(*   \VV/  **************************************************************)
 
-(*    //   *      This file is distributed under the terms of the      *)
+(*    //   *      This file is distributed under the terms of the       *)
 
-(*         *       GNU Lesser General Public License Version 2.1       *)
+(*         *       GNU Lesser General Public License Version 2.1        *)
 
-(*#**********************************************************************)
+(*#***********************************************************************)
 
-(*i $Id: Rprod.v,v 1.10 2003/11/29 17:28:38 herbelin Exp $ i*)
+(*i $Id: Rprod.v,v 1.10.2.1 2004/07/16 19:31:13 herbelin Exp $ i*)
 
 include "Arith/Compare.ma".
 
@@ -70,7 +70,7 @@ inline procedural "cic:/Coq/Reals/Rprod/fact_prodSO.con" as lemma.
 
 inline procedural "cic:/Coq/Reals/Rprod/le_n_2n.con" as lemma.
 
-(* We prove that (N!)²<=(2N-k)!*k! forall k in [|O;2N|] *)
+(* We prove that (N!)\178\<=(2N-k)!*k! forall k in [|O;2N|] *)
 
 inline procedural "cic:/Coq/Reals/Rprod/RfactN_fact2N_factk.con" as lemma.