proposition: Lemma natequiv_pointify_r `{Funext} (A : Type) : NatEquiv (opyon (pointify A)) (opyon A o pointed_type).
proof: Proof. snrapply Build_NatEquiv. 1: rapply equiv_pointify_map. cbv; reflexivity. Defined.
imports: Basics Types PathAny WildCat Truncations.Core ReflectiveSubuniverse Extensions