Definition abgr_image {A B : abgr} (f : monoidfun A B) : @subabgr B := @subgrconstr B (@abgr_image_hsubtype A B f) (abgr_image_issubgr f).
Require Import UniMath.MoreFoundations.Orders. Require Import UniMath.MoreFoundations.Subtypes.