fixed coercions

diff --git a/helm/matita/.depend b/helm/matita/.depend
index 605b57a740ceed3866ae718b6aa2b7e520a0a7d8..afad25274f515758b2a18047a389d988862125f4 100644 (file)
--- a/helm/matita/.depend
+++ b/helm/matita/.depend
@@ -41,11 +41,9 @@ matitaMathView.cmx: matitaTypes.cmx matitaScript.cmx matitaMisc.cmx \
 matitaMisc.cmo: buildTimeConf.cmo matitaMisc.cmi 
 matitaMisc.cmx: buildTimeConf.cmx matitaMisc.cmi 
 matita.cmo: matitaTypes.cmi matitaScript.cmi matitaMathView.cmi \
-    matitaInit.cmi matitaGui.cmi matitaGtkMisc.cmi matitaEngine.cmi \
-    buildTimeConf.cmo 
+    matitaInit.cmi matitaGui.cmi matitaGtkMisc.cmi buildTimeConf.cmo 
 matita.cmx: matitaTypes.cmx matitaScript.cmx matitaMathView.cmx \
-    matitaInit.cmx matitaGui.cmx matitaGtkMisc.cmx matitaEngine.cmx \
-    buildTimeConf.cmx 
+    matitaInit.cmx matitaGui.cmx matitaGtkMisc.cmx buildTimeConf.cmx 
 matitaScript.cmo: matitamakeLib.cmi matitaTypes.cmi matitaMisc.cmi \
     buildTimeConf.cmo matitaScript.cmi 
 matitaScript.cmx: matitamakeLib.cmx matitaTypes.cmx matitaMisc.cmx \

diff --git a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/coa_props.ma b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/coa_props.ma
index 47fd8ab6191797127778025c41375ecb923b5d71..6c004073e7390e4c2fe172cb105316be13911763 100644 (file)
--- a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/coa_props.ma
+++ b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/coa_props.ma
@@ -16,10 +16,13 @@ set "baseuri" "cic:/matita/PREDICATIVE-TOPOLOGY/coa_props".
 
 include "coa_defs.ma".
 
-coercion Type_of_COA. (* this should be generated by the following line *)
-coercion coa. (* this should be inside coa_defs.moo but it isn't *)
+inductive True:Prop \def T:True.
 
-theorem zero_le: \forall (P:COA). \forall (p:P). le ? (zero P) p.
+theorem zero_le: 
+  \forall (P:COA). \forall (p:P). (le ? (zero P) p) \to True.
+  intros.
+  exact T.
+qed.