Hypothesis F'G : [char F]^'.-group G.

(* Specifications: *)
Lemma rsim_regular_submod :
{U : 'M_nG & {modU : mxmodule aG U & mx_rsim rG (submod_repr modU)}}.
Lemma irr_mx_sum : (\sum_(i : sG) i = 1%:M)%MS.
Lemma Wedderburn_id_mem i : ('e_i \in 'R_i)%MS.
Lemma Wedderburn_closed i : ('R_i * 'R_i = 'R_i)%MS.
Lemma Wedderburn_is_ring i : mxring 'R_i.
Lemma Wedderburn_min_ideal m i (E : 'A_(m, nG)) :
E != 0 -> (E <= 'R_i)%MS -> mx_ideal R_G E -> (E :=: 'R_i)%MS.