fact: Definition value_in_image {X Y : UU} (f : X -> Y) (x : X) : image f (f x) := hinhpr (x ,, idpath _).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.Combinatorics.WellOrderedSets UniMath.OrderTheory.DCPOs.AlternativeDefinitions.Dcpo