fact: Definition Poset_lessthan {X:Poset} (x y:X) := ∥ x ≤ y × x != y ∥.
imports: UniMath.Combinatorics.FiniteSets UniMath.Foundations.UnivalenceAxiom UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.DecidablePropositions