Section NormalComplement.
Variables K H G : {group gT}.
Hypothesis complH_K : H \in [complements to K in G].
End NormalComplement.
(* Semi-direct product *)
(* Central product *)
Canonical cprod_law := Monoid.Law cprodA cprod1g cprodg1.
Canonical cprod_abelaw := Monoid.ComLaw cprodC.
(* Direct product *)

Lemma dprodE G H : H \subset 'C(G) -> G :&: H = 1 -> G \x H = G * H.