{X Y} (Z : pType) (f : Z ->* X) (g : Z ->* Y) : psnd o* pprod_corec Z f g ==* g. Proof. snrapply Build_pHomotopy. 1: reflexivity. apply moveL_pV. refine (concat_1p _ @ _^ @ (concat_p1 _)^). apply ap_snd_path_prod'. Defined.
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.