let G be Group; :: thesis: for H being Subgroup of G
for a being Element of G st a in H holds
for j being Integer holds a |^ j in H

let H be Subgroup of G; :: thesis: for a being Element of G st a in H holds
for j being Integer holds a |^ j in H

let a be Element of G; :: thesis: ( a in H implies for j being Integer holds a |^ j in H )
assume A1: a in H ; :: thesis: for j being Integer holds a |^ j in H
let j be Integer; :: thesis: a |^ j in H
consider k being Nat such that
A2: ( j = k or j = - k ) by INT_1:2;
per cases ( j = k or j = - k ) by A2;
suppose A3: j = k ; :: thesis: a |^ j in H
defpred S1[ Nat] means a |^ \$1 in H;
a |^ 0 = 1_ G by GROUP_1:25;
then A4: S1[ 0 ] by GROUP_2:46;
A5: for n being Nat st S1[n] holds
S1[n + 1]
proof
let n be Nat; :: thesis: ( S1[n] implies S1[n + 1] )
assume S1[n] ; :: thesis: S1[n + 1]
then (a |^ n) * a in H by ;
hence S1[n + 1] by GROUP_1:34; :: thesis: verum
end;
for n being Nat holds S1[n] from NAT_1:sch 2(A4, A5);
hence a |^ j in H by A3; :: thesis: verum
end;
suppose A6: j = - k ; :: thesis: a |^ j in H
defpred S1[ Nat] means a |^ (- \$1) in H;
a |^ 0 = 1_ G by GROUP_1:25;
then A7: S1[ 0 ] by GROUP_2:46;
A8: for n being Nat st S1[n] holds
S1[n + 1]
proof
let n be Nat; :: thesis: ( S1[n] implies S1[n + 1] )
assume A9: S1[n] ; :: thesis: S1[n + 1]
a " in H by ;
then (a |^ (- n)) * (a ") in H by ;
then (a |^ (- n)) * (a |^ (- 1)) in H by GROUP_1:32;
then a |^ ((- n) + (- 1)) in H by GROUP_1:33;
hence S1[n + 1] ; :: thesis: verum
end;
for n being Nat holds S1[n] from NAT_1:sch 2(A7, A8);
hence a |^ j in H by A6; :: thesis: verum
end;
end;