X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fcontribs%2FPREDICATIVE-TOPOLOGY%2Fdomain_defs.ma;h=670211caf3cee1f047c44187a6f222f9fbc13ae6;hb=51ba598a5d034a2cb572c58f6db4937627e914a3;hp=821002e685bc63533fa5aeb7b1066a59e59cd8b3;hpb=20952e84b764114c1777d347c993072eaeb9fc16;p=helm.git

diff --git a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/domain_defs.ma b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/domain_defs.ma
index 821002e68..670211caf 100644
--- a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/domain_defs.ma
+++ b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/domain_defs.ma
@@ -23,20 +23,22 @@ include "class_defs.ma".
      domain structure. This makes domains easier to use
 *)
 
-
-
 record Domain: Type \def {
    qd: Class
 }.
 
 coercion qd.
 
-
-
 (* internal universal quantification *)
 inductive iall (D:Domain) (P:D \to Prop) : Prop \def
    | iall_intro: (\forall d:D. cin D d \to P d) \to iall D P.
 
+(* internal existential quantification *)
+inductive iex (D:Domain) (P:D \to Prop) : Prop \def
+   | iex_intro: \forall d:D. cin D d \land P d \to iex D P.
+(*
+(* notations **************************************************************)
+
 (*CSC: the URI must disappear: there is a bug now *)
 interpretation "internal for all" 'iall \eta.x =
   (cic:/matita/PREDICATIVE-TOPOLOGY/domain_defs/iall.ind#xpointer(1/1) _ x).
@@ -47,12 +49,6 @@ for @{ 'iall ${default
   @{\lambda ${ident i} : $ty. $p)}
   @{\lambda ${ident i} . $p}}}.
 
-
-
-(* internal existential quantification *)
-inductive iex (D:Domain) (P:D \to Prop) : Prop \def
-   | iex_intro: \forall d:D. cin D d \land P d \to iex D P.
-
 (*CSC: the URI must disappear: there is a bug now *)
 interpretation "internal exist" 'iexist \eta.x =
   (cic:/matita/PREDICATIVE-TOPOLOGY/domain_defs/iex.ind#xpointer(1/1) _ x).
@@ -62,3 +58,4 @@ notation < "hvbox(\iexist ident i opt (: ty) break . p)"
 for @{ 'iexist ${default
   @{\lambda ${ident i} : $ty. $p)}
   @{\lambda ${ident i} . $p}}}.
+*)
\ No newline at end of file