X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fcontribs%2FPREDICATIVE-TOPOLOGY%2Fqd_defs.ma;h=2fb07bd64d0d1bfc108100f261c221701943abae;hb=a7667815758ad8e3cf2a9921c0ccfb9bcb29bb54;hp=cd019ccfca2e7dafd57bfcfd85342a284ea53ba6;hpb=7c33d285b07538e7cf6be9dd9332e164c47904fe;p=helm.git

diff --git a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/qd_defs.ma b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/qd_defs.ma
index cd019ccfc..2fb07bd64 100644
--- a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/qd_defs.ma
+++ b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/qd_defs.ma
@@ -24,3 +24,7 @@ record QD: Type \def {
 }.
 
 coercion qd.
+
+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.
+