begin
definition
let n be ( (
natural ) (
ordinal natural V11()
real ext-real non
negative integer rational )
Nat) ;
let a be ( (
real ) (
V11()
real ext-real )
number ) ;
func n -root a -> ( (
real ) (
V11()
real ext-real )
number )
equals
n : ( (
V49()
right_end ) (
V49()
right_end )
set )
-Root a : ( (
V21()
V30(
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) ) (
V21()
V30(
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) )
Element of
K6(
K7(
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) : ( ( ) ( )
set ) ) : ( ( ) ( )
set ) ) : ( (
real ) (
V11()
real ext-real )
set )
if (
a : ( (
V21()
V30(
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) ) (
V21()
V30(
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) )
Element of
K6(
K7(
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) : ( ( ) ( )
set ) ) : ( ( ) ( )
set ) )
>= 0 : ( ( ) (
V1()
ordinal natural V11()
real ext-real non
positive non
negative integer rational V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
NAT : ( ( ) (
V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
K6(
REAL : ( ( ) (
V1()
V48()
V49()
V50()
V54()
V55() )
set ) ) : ( ( ) ( )
set ) ) ) &
n : ( (
V49()
right_end ) (
V49()
right_end )
set )
>= 1 : ( ( ) (
V1()
ordinal natural V11()
real ext-real positive non
negative integer rational V48()
V49()
V50()
V51()
V52()
V53() )
Element of
NAT : ( ( ) (
V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
K6(
REAL : ( ( ) (
V1()
V48()
V49()
V50()
V54()
V55() )
set ) ) : ( ( ) ( )
set ) ) ) )
- (n : ( ( V49() right_end ) ( V49() right_end ) set ) -Root (- a : ( ( V21() V30(n : ( ( V49() right_end ) ( V49() right_end ) set ) ,n : ( ( V49() right_end ) ( V49() right_end ) set ) ) ) ( V21() V30(n : ( ( V49() right_end ) ( V49() right_end ) set ) ,n : ( ( V49() right_end ) ( V49() right_end ) set ) ) ) Element of K6(K7(n : ( ( V49() right_end ) ( V49() right_end ) set ) ,n : ( ( V49() right_end ) ( V49() right_end ) set ) ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) ) : ( ( V11() ) ( V11() ) set ) ) : ( (
real ) (
V11()
real ext-real )
set ) : ( (
V11() ) (
V11()
real ext-real )
set )
if (
a : ( (
V21()
V30(
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) ) (
V21()
V30(
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) )
Element of
K6(
K7(
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) : ( ( ) ( )
set ) ) : ( ( ) ( )
set ) )
< 0 : ( ( ) (
V1()
ordinal natural V11()
real ext-real non
positive non
negative integer rational V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
NAT : ( ( ) (
V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
K6(
REAL : ( ( ) (
V1()
V48()
V49()
V50()
V54()
V55() )
set ) ) : ( ( ) ( )
set ) ) ) &
n : ( (
V49()
right_end ) (
V49()
right_end )
set ) is
odd )
;
end;
definition
let a,
b be ( (
real ) (
V11()
real ext-real )
number ) ;
func a to_power b -> ( (
real ) (
V11()
real ext-real )
number )
means
it : ( ( ) (
V11() )
Element of
COMPLEX : ( ( ) (
V1()
V48()
V54()
V55() )
set ) )
= a : ( (
V49()
right_end ) (
V49()
right_end )
set )
#R b : ( (
V21()
V30(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) ) (
V21()
V30(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) )
Element of
K6(
K7(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) : ( ( ) ( )
set ) ) : ( ( ) ( )
set ) ) : ( (
real ) (
V11()
real ext-real )
set )
if a : ( (
V49()
right_end ) (
V49()
right_end )
set )
> 0 : ( ( ) (
V1()
ordinal natural V11()
real ext-real non
positive non
negative integer rational V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
NAT : ( ( ) (
V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
K6(
REAL : ( ( ) (
V1()
V48()
V49()
V50()
V54()
V55() )
set ) ) : ( ( ) ( )
set ) ) )
it : ( ( ) (
V11() )
Element of
COMPLEX : ( ( ) (
V1()
V48()
V54()
V55() )
set ) )
= 0 : ( ( ) (
V1()
ordinal natural V11()
real ext-real non
positive non
negative integer rational V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
NAT : ( ( ) (
V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
K6(
REAL : ( ( ) (
V1()
V48()
V49()
V50()
V54()
V55() )
set ) ) : ( ( ) ( )
set ) ) )
if (
a : ( (
V49()
right_end ) (
V49()
right_end )
set )
= 0 : ( ( ) (
V1()
ordinal natural V11()
real ext-real non
positive non
negative integer rational V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
NAT : ( ( ) (
V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
K6(
REAL : ( ( ) (
V1()
V48()
V49()
V50()
V54()
V55() )
set ) ) : ( ( ) ( )
set ) ) ) &
b : ( (
V21()
V30(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) ) (
V21()
V30(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) )
Element of
K6(
K7(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) : ( ( ) ( )
set ) ) : ( ( ) ( )
set ) )
> 0 : ( ( ) (
V1()
ordinal natural V11()
real ext-real non
positive non
negative integer rational V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
NAT : ( ( ) (
V48()
V49()
V50()
V51()
V52()
V53()
V54() )
Element of
K6(
REAL : ( ( ) (
V1()
V48()
V49()
V50()
V54()
V55() )
set ) ) : ( ( ) ( )
set ) ) ) )
ex
k being ( (
integer ) (
V11()
real ext-real integer rational )
Integer) st
(
k : ( (
integer ) (
V11()
real ext-real integer rational )
Integer)
= b : ( (
V21()
V30(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) ) (
V21()
V30(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) )
Element of
K6(
K7(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) : ( ( ) ( )
set ) ) : ( ( ) ( )
set ) ) &
it : ( ( ) (
V11() )
Element of
COMPLEX : ( ( ) (
V1()
V48()
V54()
V55() )
set ) )
= a : ( (
V49()
right_end ) (
V49()
right_end )
set )
#Z k : ( (
integer ) (
V11()
real ext-real integer rational )
Integer) : ( ( ) ( )
set ) )
if b : ( (
V21()
V30(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) ) (
V21()
V30(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) )
Element of
K6(
K7(
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ,
a : ( (
V49()
right_end ) (
V49()
right_end )
set ) ) : ( ( ) ( )
set ) ) : ( ( ) ( )
set ) ) is ( (
integer ) (
V11()
real ext-real integer rational )
Integer)
;
end;