fact: Definition lt s s' := exists x, EquivBefore x s s' /\ ((In x s' /\ Below x s) \/ (In x s /\ exists y, In y s' /\ O.lt x y /\ EmptyBetween x y s')).
imports: Bool SetoidList RelationClasses Morphisms RelationPairs Equalities Orders OrdersFacts