X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fcontribs%2FPREDICATIVE-TOPOLOGY%2Fcoa_props.ma;h=6c004073e7390e4c2fe172cb105316be13911763;hb=7d7f729471b4d5ebafa1b915096974e726cc13c6;hp=acbc2ecf1b1989fb3b7cbfa9137af18404b71cfe;hpb=41be5e85a1103a5b14495bb487995a6a88e79c48;p=helm.git

diff --git a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/coa_props.ma b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/coa_props.ma
index acbc2ecf1..6c004073e 100644
--- a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/coa_props.ma
+++ b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/coa_props.ma
@@ -16,7 +16,13 @@ set "baseuri" "cic:/matita/PREDICATIVE-TOPOLOGY/coa_props".
 
 include "coa_defs.ma".
 
-theorem zero_le: \forall (P:COA). \forall (p:Type_of_COA P). le ? (zero P) p.
+inductive True:Prop \def T:True.
+
+theorem zero_le: 
+  \forall (P:COA). \forall (p:P). (le ? (zero P) p) \to True.
+  intros.
+  exact T.
+qed.