fact: Definition smash_set : X × Y → hProp := λ xy, pr1 xy = ⊥_{RX} ∨ pr2 xy = ⊥_{RY}.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.OrderTheory.Posets.Basics UniMath.OrderTheory.Posets.MonotoneFunctions UniMath.OrderTheory.Posets.PointedPosets