definition uparrow ≝ λA:axiom_set.λa:A.mk_powerset ? (λb:A. a ≤ b).
-notation "↑a" with precedence 80 for @{ 'uparrow $a }.
-
interpretation "uparrow" 'uparrow a = (uparrow _ a).
-definition downarrow ≝ λA:axiom_set.λU:Ω \sup A.mk_powerset ? (λa:A. ↑a ≬ U).
-
-notation "↓a" with precedence 80 for @{ 'downarrow $a }.
+definition downarrow ≝ λA:axiom_set.λU:Ω \sup A.mk_powerset ? (λa:A. (↑a) ≬ U).
interpretation "downarrow" 'downarrow a = (downarrow _ a).
interpretation "fintersects" 'fintersects U V = (fintersects _ U V).
-(*
record convergent_generated_topology : Type ≝
{ AA:> axiom_set;
convergence: ∀a:AA.∀U,V:Ω \sup AA. a ◃ U → a ◃ V → a ◃ (U ↓ V)
}.
-*)