`{O : ReflectiveSubuniverse} {X Y : pType} `{In O Y} (f : X ->* Y) : [O X, _] ->* Y := Build_pMap [O X, _] _ (O_rec f) (O_rec_beta _ _ @ point_eq f).
Require Import Basics Types ReflectiveSubuniverse Pointed.Core.