-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)} } }
-}.