freescale porting, work in progress

[helm.git] / helm / software / matita / contribs / procedural / Coq / Reals / Rprod.mma

diff --git a/helm/software/matita/contribs/procedural/Coq/Reals/Rprod.mma b/helm/software/matita/contribs/procedural/Coq/Reals/Rprod.mma
index b85e455907148ed1daa2083fff6048f79e4380f0..7ec6614bb5b88344e5a8706cf874bc2ac3fe388b 100644 (file)
--- 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.