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".
(*#* 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.
(*#* 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.