Section IsogAbelem.
Variables (aT rT : finGroupType) (G : {group aT}) (H : {group rT}).
Hypothesis isoGH : G \isog H.

(* Specifications: *)
Lemma exponent_isog : exponent G = exponent H.
Lemma p_rank_dprod K H G : K \x H = G -> 'r_p(K) + 'r_p(H) = 'r_p(G).
Lemma p_rank_p'quotient G H :
(p : nat)^'.-group H -> G \subset 'N(H) -> 'r_p(G / H) = 'r_p(G).