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

diff --git a/matita/contribs/PREDICATIVE-TOPOLOGY/coa_defs.ma b/matita/contribs/PREDICATIVE-TOPOLOGY/coa_defs.ma
index c840fbdaf..1d6c763ab 100644
--- a/matita/contribs/PREDICATIVE-TOPOLOGY/coa_defs.ma
+++ b/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
+