fact: Definition image {X Y : UU} (f : X -> Y) : hsubtype Y := fun y => ∥ hfiber f y ∥.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.Combinatorics.WellOrderedSets UniMath.OrderTheory.DCPOs.AlternativeDefinitions.Dcpo