X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FPREDICATIVE-TOPOLOGY%2Fcoa_defs.ma;h=1d6c763abd9105f6e2b670cfa5886fdc63128adf;hb=7f2d9b01fa7f1c91b0628e1405481f28ad065f60;hp=c840fbdaf7cddc972b4f3cdade571c5b2aa84dd4;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/matita/contribs/PREDICATIVE-TOPOLOGY/coa_defs.ma b/helm/software/matita/contribs/PREDICATIVE-TOPOLOGY/coa_defs.ma
index c840fbdaf..1d6c763ab 100644
--- a/helm/software/matita/contribs/PREDICATIVE-TOPOLOGY/coa_defs.ma
+++ b/helm/software/matita/contribs/PREDICATIVE-TOPOLOGY/coa_defs.ma
@@ -12,6 +12,8 @@
 (*                                                                        *)
 (**************************************************************************)
 
+(* STATO: NON COMPILA: attendo che l'oggetto "pippo" venga accettato *) 
+
 set "baseuri" "cic:/matita/PREDICATIVE-TOPOLOGY/coa_defs".
 
 include "iff.ma".
@@ -58,4 +60,4 @@ definition bsup: \forall (P:COA). P \to P \to P \def
 
 inductive pippo : Prop \def
    | Pippo: let x \def zero in zero = x \to pippo.
-   
\ No newline at end of file
+