record basic_topology: Type1 ≝
{ carrbt:> REL;
- A: unary_morphism1 (Ω \sup carrbt) (Ω \sup carrbt);
- J: unary_morphism1 (Ω \sup carrbt) (Ω \sup carrbt);
+ A: Ω^carrbt ⇒_1 Ω^carrbt;
+ J: Ω^carrbt ⇒_1 Ω^carrbt;
A_is_saturation: is_saturation ? A;
J_is_reduction: is_reduction ? J;
- compatibility: ∀U,V. (A U ≬ J V) = (U ≬ J V)
+ compatibility: ∀U,V. (A U ≬ J V) =_1 (U ≬ J V)
}.
record continuous_relation (S,T: basic_topology) : Type1 ≝