let a be real number ; :: thesis: for n being Element of NAT
for k being Integer st a > 0 & n >= 1 holds
(n -Root a) #Z k = n -Root (a #Z k)

let n be Element of NAT ; :: thesis: for k being Integer st a > 0 & n >= 1 holds
(n -Root a) #Z k = n -Root (a #Z k)

let k be Integer; :: thesis: ( a > 0 & n >= 1 implies (n -Root a) #Z k = n -Root (a #Z k) )
assume A1: ( a > 0 & n >= 1 ) ; :: thesis: (n -Root a) #Z k = n -Root (a #Z k)
then A2: n -Root a > 0 by Def3;
A3: for m being Element of NAT st m >= 1 holds
(n -Root a) |^ m = n -Root (a |^ m)
proof
let m be Element of NAT ; :: thesis: ( m >= 1 implies (n -Root a) |^ m = n -Root (a |^ m) )
assume that
A4: m >= 1 and
A5: (n -Root a) |^ m <> n -Root (a |^ m) ; :: thesis: contradiction
A6: a |^ m > 0 by A1, Th13;
then A7: m -Root (n -Root (a |^ m)) = (n * m) -Root (a |^ m) by A1, A4, Th34
.= n -Root (m -Root (a |^ m)) by A1, A4, A6, Th34
.= n -Root a by A1, A4, Lm2 ;
A8: m -Root ((n -Root a) |^ m) = n -Root a by A2, A4, Lm2;
A9: (n -Root a) |^ m >= 0 by A2, Th13;
A10: n -Root (a |^ m) >= 0 by A1, A6, Def3;
per cases ( (n -Root a) |^ m < n -Root (a |^ m) or (n -Root a) |^ m > n -Root (a |^ m) ) by A5, XXREAL_0:1;
suppose (n -Root a) |^ m < n -Root (a |^ m) ; :: thesis: contradiction
end;
suppose (n -Root a) |^ m > n -Root (a |^ m) ; :: thesis: contradiction
end;
end;
end;
per cases ( k > 0 or k < 0 or k = 0 ) ;
suppose A11: k > 0 ; :: thesis: (n -Root a) #Z k = n -Root (a #Z k)
then abs k > 0 by ABSVALUE:def 1;
then A12: abs k >= 0 + 1 by NAT_1:13;
thus (n -Root a) #Z k = (n -Root a) |^ (abs k) by A11, Def4
.= n -Root (a |^ (abs k)) by A3, A12
.= n -Root (a #Z k) by A11, Def4 ; :: thesis: verum
end;
suppose A13: k < 0 ; :: thesis: (n -Root a) #Z k = n -Root (a #Z k)
then abs k > 0 by COMPLEX1:133;
then A14: abs k >= 0 + 1 by NAT_1:13;
A15: a |^ (abs k) > 0 by A1, Th13;
thus (n -Root a) #Z k = ((n -Root a) |^ (abs k)) " by A13, Def4
.= (n -Root (a |^ (abs k))) " by A3, A14
.= 1 / (n -Root (a |^ (abs k)))
.= n -Root (1 / (a |^ (abs k))) by A1, A15, Th32
.= n -Root ((a |^ (abs k)) " )
.= n -Root (a #Z k) by A13, Def4 ; :: thesis: verum
end;
suppose A16: k = 0 ; :: thesis: (n -Root a) #Z k = n -Root (a #Z k)
then n -Root (a #Z k) = n -Root 1 by Th44
.= 1 by A1, Th29 ;
hence (n -Root a) #Z k = n -Root (a #Z k) by A16, Th44; :: thesis: verum
end;
end;