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