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).
@{\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).
for @{ 'iexist ${default
@{\lambda ${ident i} : $ty. $p)}
@{\lambda ${ident i} . $p}}}.
+*)
\ No newline at end of file