fact: Definition pr1_Progressive_map {P : Poset} : Progressive_map P -> (P -> P) := pr1carrier _.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.Combinatorics.WellOrderedSets UniMath.OrderTheory.DCPOs.AlternativeDefinitions.Dcpo