fact: Definition least_of_family_index {I} {p : I -> P} : least_of_family p -> I := pr1.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.Combinatorics.WellOrderedSets UniMath.OrderTheory.DCPOs.AlternativeDefinitions.Dcpo