Section NormalComplement.
Variables K H G : {group gT}.
Hypothesis complH_K : H \in [complements to K in G].

(* Specifications: *)
Lemma remgrM : K <| G -> {in G &, {morph remgr K H : x y / x * y}}.
Lemma divgrM : H \subset 'C(K) -> {in G &, {morph divgr K H : x y / x * y}}.
End NormalComplement.