X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fprocedural%2FCoq%2FLogic%2FEqdep_dec.mma;h=b49bc6adbee988abf6661d2985d4fac94843e620;hb=d00e19c7000a00659ffd609ef79675eb0f010659;hp=3d70f5e64453301d09d4501084595c9a47753c91;hpb=29714797b01e0ac8c22e4df2827b1785a759f482;p=helm.git

diff --git a/helm/software/matita/contribs/procedural/Coq/Logic/Eqdep_dec.mma b/helm/software/matita/contribs/procedural/Coq/Logic/Eqdep_dec.mma
index 3d70f5e64..b49bc6adb 100644
--- a/helm/software/matita/contribs/procedural/Coq/Logic/Eqdep_dec.mma
+++ b/helm/software/matita/contribs/procedural/Coq/Logic/Eqdep_dec.mma
@@ -16,21 +16,23 @@
 
 include "Coq.ma".
 
-(*#**********************************************************************)
+include "Init/Prelude.ma".
 
-(*  v      *   The Coq Proof Assistant  /  The Coq Development Team    *)
+(*#***********************************************************************)
 
-(* <O___,, *        INRIA-Rocquencourt  &  LRI-CNRS-Orsay              *)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
 
-(*   \VV/  *************************************************************)
+(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *)
 
-(*    //   *      This file is distributed under the terms of the      *)
+(*   \VV/  **************************************************************)
 
-(*         *       GNU Lesser General Public License Version 2.1       *)
+(*    //   *      This file is distributed under the terms of the       *)
 
-(*#**********************************************************************)
+(*         *       GNU Lesser General Public License Version 2.1        *)
 
-(*i $Id: Eqdep_dec.v,v 1.14 2003/11/29 17:28:33 herbelin Exp $ i*)
+(*#***********************************************************************)
+
+(*i $Id: Eqdep_dec.v,v 1.14.2.1 2004/07/16 19:31:06 herbelin Exp $ i*)
 
 (*#* We prove that there is only one proof of [x=x], i.e [(refl_equal ? x)].
    This holds if the equality upon the set of [x] is decidable.
@@ -67,6 +69,8 @@ Section DecidableEqDep
 cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/A.var
 *)
 
+(* UNAVAILABLE OBJECT: cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/comp.con ***)
+
 inline procedural "cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/comp.con" "DecidableEqDep__" as definition.
 
 inline procedural "cic:/Coq/Logic/Eqdep_dec/trans_sym_eqT.con" as remark.
@@ -79,10 +83,16 @@ cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/eq_dec.var
 cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/x.var
 *)
 
+(* UNAVAILABLE OBJECT: cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/nu.con *****)
+
 inline procedural "cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/nu.con" "DecidableEqDep__" as definition.
 
+(* UNAVAILABLE OBJECT: cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/nu_constant.con *)
+
 inline procedural "cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/nu_constant.con" "DecidableEqDep__" as definition.
 
+(* UNAVAILABLE OBJECT: cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/nu_inv.con *)
+
 inline procedural "cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/nu_inv.con" "DecidableEqDep__" as definition.
 
 inline procedural "cic:/Coq/Logic/Eqdep_dec/nu_left_inv.con" as remark.
@@ -93,6 +103,8 @@ inline procedural "cic:/Coq/Logic/Eqdep_dec/K_dec.con" as theorem.
 
 (*#* The corollary *)
 
+(* UNAVAILABLE OBJECT: cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/proj.con ***)
+
 inline procedural "cic:/Coq/Logic/Eqdep_dec/DecidableEqDep/proj.con" "DecidableEqDep__" as definition.
 
 inline procedural "cic:/Coq/Logic/Eqdep_dec/inj_right_pair.con" as theorem.