X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Flimits%2FDomain%2Fdefs.ma;h=f828ff1ae60060365342df0210cdcf82069fe5fe;hb=601baed778a190b580982b588ebe49ba3f762b30;hp=2250e811c24615ec1c0786d5010ecd0244f02bde;hpb=700b170aa9b0377d33f1edd44de8d89129477fb8;p=helm.git

diff --git a/helm/software/matita/contribs/limits/Domain/defs.ma b/helm/software/matita/contribs/limits/Domain/defs.ma
index 2250e811c..f828ff1ae 100644
--- a/helm/software/matita/contribs/limits/Domain/defs.ma
+++ b/helm/software/matita/contribs/limits/Domain/defs.ma
@@ -25,44 +25,14 @@ record Domain: Type ≝ {
 
 (* internal universal quantification *)
 inductive dall (D:Domain) (P:D → Prop): Prop ≝
-   | dall_intro: (∀d. cin ? d → P d) → dall D P.
+   | dall_intro: (∀d. cin ? d → P d) → dall D P
+.
+
+interpretation "internal for all" 'iforall η.x = (dall ? x).
 
 (* internal existential quantification *)
 inductive dex (D:Domain) (P:D → Prop): Prop ≝
-   | dex_intro: ∀d. cin D d → P d → dex D P.
-
-(* notations **************************************************************)
-
-(*CSC: the URI must disappear: there is a bug now *)
-interpretation "internal for all" 'iforall η.x =
-  (cic:/matita/limits/Domain/defs/dall.ind#xpointer(1/1) _ x).
+   | dex_intro: ∀d. cin D d → P d → dex D P
+.
 
-notation < "hvbox(\iforall ident i opt (: ty) break . p)"
-  right associative with precedence 20
-for @{ 'iforall ${default
-  @{\lambda ${ident i} : $ty. $p}
-  @{\lambda ${ident i} . $p}}}.
-
-notation > "\iforall list1 ident x sep , opt (: T). term 19 Px"
-  with precedence 20
-for ${ default
-  @{ ${ fold right @{$Px} rec acc @{'iforall (λ${ident x}:$T.$acc)} } }
-  @{ ${ fold right @{$Px} rec acc @{'iforall (λ${ident x}.$acc)} } }
-}.
-
-(*CSC: the URI must disappear: there is a bug now *)
-interpretation "internal exists" 'iexists η.x =
-  (cic:/matita/limits/Domain/defs/dex.ind#xpointer(1/1) _ x).
-
-notation < "hvbox(\iexists ident i opt (: ty) break . p)"
-  right associative with precedence 20
-for @{ 'iexists ${default
-  @{\lambda ${ident i} : $ty. $p}
-  @{\lambda ${ident i} . $p}}}.
-
-notation > "\iexists list1 ident x sep , opt (: T). term 19 Px"
-  with precedence 20
-for ${ default
-  @{ ${ fold right @{$Px} rec acc @{'iexists (λ${ident x}:$T.$acc)} } }
-  @{ ${ fold right @{$Px} rec acc @{'iexists (λ${ident x}.$acc)} } }
-}.
+interpretation "internal exists" 'iexists η.x = (dex ? x).