`{Funext} {A B Y : AbGroup} : IsEquiv (@ab_biprod_rec_uncurried A B Y). Proof. srapply isequiv_adjointify. - intro phi. exact (phi $o ab_biprod_inl, phi $o ab_biprod_inr). - intro phi. apply equiv_path_grouphomomorphism. exact (ab_biprod_rec_eta phi). - intros [a b]. apply path_prod. + apply equiv_path_grouphomomorphism. apply ab_biprod_rec_beta_inl. + apply equiv_path_grouphomomorphism. apply ab_biprod_rec_beta_inr. Defined.
Require Import Basics Types Truncations.Core. Require Import WildCat. Require Import HSet. Require Import AbelianGroup. Require Import Modalities.ReflectiveSubuniverse.