]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/contribs/procedural/Coq/ZArith/Zwf.mma
transcript: we now check for non-existing objects
[helm.git] / helm / software / matita / contribs / procedural / Coq / ZArith / Zwf.mma
index db038b4171d881b5d376808634ed2d9a1c93202b..cebc04fe08e972758879c9f3c856745172a5a650 100644 (file)
 
 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        *)
 
-(*#**********************************************************************)
+(*#***********************************************************************)
 
-(* $Id: Zwf.v,v 1.7 2003/11/29 17:28:46 herbelin Exp $ *)
+(* $Id: Zwf.v,v 1.7.2.1 2004/07/16 19:31:22 herbelin Exp $ *)
 
 include "ZArith/ZArith_base.ma".
 
@@ -62,6 +62,8 @@ cic:/Coq/ZArith/Zwf/wf_proof/c.var
 (*#* The proof of well-foundness is classic: we do the proof by induction
     on a measure in nat, which is here [|x-c|] *)
 
+(* UNAVAILABLE OBJECT: cic:/Coq/ZArith/Zwf/wf_proof/f.con *****************)
+
 inline procedural "cic:/Coq/ZArith/Zwf/wf_proof/f.con" "wf_proof__" as definition.
 
 inline procedural "cic:/Coq/ZArith/Zwf/Zwf_well_founded.con" as lemma.
@@ -94,6 +96,8 @@ cic:/Coq/ZArith/Zwf/wf_proof_up/c.var
 (*#* The proof of well-foundness is classic: we do the proof by induction
     on a measure in nat, which is here [|c-x|] *)
 
+(* UNAVAILABLE OBJECT: cic:/Coq/ZArith/Zwf/wf_proof_up/f.con **************)
+
 inline procedural "cic:/Coq/ZArith/Zwf/wf_proof_up/f.con" "wf_proof_up__" as definition.
 
 inline procedural "cic:/Coq/ZArith/Zwf/Zwf_up_well_founded.con" as lemma.