- external quantification removed (will be reintroduced when needed)

[helm.git] / helm / software / matita / contribs / limits / Domain / defs.ma

diff --git a/helm/software/matita/contribs/limits/Domain/defs.ma b/helm/software/matita/contribs/limits/Domain/defs.ma
index 2250e811c24615ec1c0786d5010ecd0244f02bde..f73f1aca0458710a25cce24b08a0bfe675c67f33 100644 (file)
--- 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).