{H K : Group} : K $-> (grp_prod H K) := grp_prod_corec grp_homo_const grp_homo_id. Global Instance isembedding_grp_prod_inr {H K : Group} : IsEmbedding (@ H K). Proof. apply isembedding_isinj_hset. intros k0 k1 q; cbn in q. exact (snd ((equiv_path_prod _ _)^-1 q)). Defined.
Require Import Basics Types HProp HFiber HSet. Require Import Homotopy.IdentitySystems. Require Import (notations) Classes.interfaces.canonical_names. Require Import Pointed.Core. Require Import WildCat. Require Import Spaces.Nat.Core Spaces.Int. Require Import Truncations.Core.