End MorphimInternalProd.
Section QuotientInternalProd.
Variables (gT : finGroupType) (G K H M : {group gT}).
Hypothesis nMG: G \subset 'N(M).

(* Specifications: *)
Lemma quotient_pprod : pprod K H = G -> pprod (K / M) (H / M) = G / M.
Canonical setX_group H1 H2 := Group (group_setX H1 H2).