fact: Definition comparable {P : Poset} (x y : P) : hProp := (x ≤ y) ∨ (y ≤ x).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.Combinatorics.WellOrderedSets UniMath.OrderTheory.DCPOs.AlternativeDefinitions.Dcpo