fact: Definition arrow_Poset (X:UU) (P : Poset) : Poset := forall_Poset (fun _:X => P).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.Combinatorics.WellOrderedSets UniMath.OrderTheory.DCPOs.AlternativeDefinitions.Dcpo