(**************************************************************************)
include "formal_topology/relations.ma".
-
+(*
definition is_saturation: ∀C:REL. Ω^C ⇒_1 Ω^C → CProp[1] ≝
λC:REL.λA:Ω^C ⇒_1 Ω^C. ∀U,V. (U ⊆ A V) =_1 (A U ⊆ A V).
[ apply (if ?? (i ??)); apply subseteq_refl
| apply saturation_expansive; assumption]
qed.
+*)