fix for coercions

[helm.git] / helm / matita / contribs / PREDICATIVE-TOPOLOGY / qd_defs.ma

diff --git a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/qd_defs.ma b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/qd_defs.ma
index 0fd99341142e450e3221635223cd126b60ce0cf4..cbe4f567ae471d24a19e7816bc0fd53a89b072ae 100644 (file)
--- a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/qd_defs.ma
+++ b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/qd_defs.ma
@@ -24,7 +24,7 @@ record QD: Type \def {
 }.
 
 coercion qd.
-(*
+
+(* se togli il D da acin D a non ce la fa ancora *)
 inductive iall (D:QD) (P:D \to Prop) : Prop \def
-   | iall_intro: (\forall (a:D). acin D a \to P a) \to iall D P.
-*)   
+   | iall_intro: (\forall a:D. acin D a \to P a) \to iall D P.