fact: Definition merely_rec {A : Type@{i}} {P : Type@{j}} `{IsHProp P} (f : A -> P) : merely A -> P := fun ma => (equiv_resize_hprop P)^-1 (ma (resize_hprop P) _ (equiv_resize_hprop P o f)).
imports: HoTT.Basics HoTT.Types PropResizing.PropResizing