fact: Definition Omega_limit_type `{lt : relation A} {sto : StrictOrder lt} (s: nat -> A) (x:A) : Type := ((forall i: nat, s i < x) * (forall y, y < x -> {i:nat | y < s i}))%type.
imports: Coq(RelationClasses Relation_Operators Ensembles Setoid)