fact: Definition make_greatest_suchthat {A : P -> hProp} (x : P) (x_greatest : is_greatest_suchthat A x) : greatest_suchthat A.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.Combinatorics.WellOrderedSets UniMath.OrderTheory.DCPOs.AlternativeDefinitions.Dcpo