let H be Subgroup of G; :: thesis: H is p -commutative-group-like
let a, b be Element of H; :: according to GROUPP_1:def 3 :: thesis: (a * b) |^ p = (a |^ p) * (b |^ p)
reconsider a2 = a, b2 = b as Element of G by GROUP_2:42;
A1: a * b = a2 * b2 by GROUP_8:2;
A2: ( a |^ p = a2 |^ p & b |^ p = b2 |^ p ) by GROUP_8:4;
thus (a * b) |^ p = (a2 * b2) |^ p by A1, GROUP_8:4
.= (a2 |^ p) * (b2 |^ p) by Def3
.= (a |^ p) * (b |^ p) by A2, GROUP_8:2 ; :: thesis: verum