fact: Definition subtype_binaryintersection {X} (A B : hsubtype X) : hsubtype X := fun x => A x ∧ B x.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.Combinatorics.WellOrderedSets UniMath.OrderTheory.DCPOs.AlternativeDefinitions.Dcpo