universal quantifier added

[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 cd019ccfca2e7dafd57bfcfd85342a284ea53ba6..2fb07bd64d0d1bfc108100f261c221701943abae 100644 (file)
--- 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.
+