Search for blocks/addresses/...
Proofgold Signed Transaction
vin
PrRJn..
/
5c1ca..
PUNCe..
/
0fca2..
vout
PrRJn..
/
5aac4..
9.81 bars
TMHYd..
/
3e046..
ownership of
3414d..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMbGk..
/
19739..
ownership of
6d3ae..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMSUW..
/
738c2..
ownership of
b8214..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMWAT..
/
eaaa6..
ownership of
efba5..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMUCo..
/
2fb40..
ownership of
310f5..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMMCB..
/
f733b..
ownership of
a91c2..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMdHk..
/
2041f..
ownership of
9c871..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMQae..
/
01d2f..
ownership of
233ac..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMGWG..
/
52113..
ownership of
b8efc..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMYh9..
/
6c12d..
ownership of
0dabe..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMGpT..
/
663e4..
ownership of
b1861..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMSP6..
/
b2fa4..
ownership of
93568..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMXFy..
/
f4c15..
ownership of
59baa..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMafa..
/
883df..
ownership of
c137f..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMVwz..
/
ca5bb..
ownership of
0ec6b..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMTtF..
/
a87a1..
ownership of
b04b3..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMTpL..
/
4988c..
ownership of
de9b1..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMHFg..
/
468f6..
ownership of
c8dfe..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMYTL..
/
44c29..
ownership of
2d494..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMZrw..
/
67347..
ownership of
1caeb..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMajz..
/
64bdf..
ownership of
cd011..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMVqe..
/
97f2b..
ownership of
5605e..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMU7P..
/
da795..
ownership of
c9474..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMbmw..
/
7af8b..
ownership of
520df..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMKE7..
/
93f40..
ownership of
98bc0..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMYMG..
/
ffc8f..
ownership of
1bd02..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMbbY..
/
c28f9..
ownership of
21df4..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMVhh..
/
9a2cc..
ownership of
c46a9..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMXio..
/
2b121..
ownership of
c0c90..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMNET..
/
85ea3..
ownership of
9febf..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMYxo..
/
9b567..
ownership of
1f805..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMWLk..
/
ec77f..
ownership of
db9a6..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMVZP..
/
4ce29..
ownership of
14b73..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMNVk..
/
39819..
ownership of
7b2ca..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMaCq..
/
619ab..
ownership of
61712..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMHzi..
/
ae2a3..
ownership of
f45bb..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMN5N..
/
c6a88..
ownership of
614ef..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMVL8..
/
122b8..
ownership of
5b4c7..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMQaq..
/
9678a..
ownership of
e71ee..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMTNZ..
/
531d5..
ownership of
c4c56..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMdgT..
/
5a14b..
ownership of
303d3..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMX8g..
/
060bc..
ownership of
2e80d..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMdfc..
/
fdee3..
ownership of
4bb77..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMGKz..
/
0ac7d..
ownership of
58218..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMGbS..
/
65307..
ownership of
aee8b..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMFvw..
/
45527..
ownership of
d4f71..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMaWc..
/
3e628..
ownership of
1f9d1..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMXVM..
/
ab61e..
ownership of
179d8..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMSwh..
/
c5b29..
ownership of
02523..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMKVi..
/
b2dcb..
ownership of
41ae0..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMaqh..
/
d0413..
ownership of
834a2..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMd7Q..
/
ae993..
ownership of
9e4a1..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMLbs..
/
45a68..
ownership of
5c605..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMP1G..
/
d17ea..
ownership of
fac03..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMG5J..
/
3b642..
ownership of
c2dc6..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMdix..
/
94110..
ownership of
c83ae..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMXbf..
/
8f32e..
ownership of
30ecc..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMW7u..
/
f57a6..
ownership of
317df..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMMJ2..
/
2d28c..
ownership of
02624..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMdBV..
/
dd503..
ownership of
544c3..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMSbG..
/
74836..
ownership of
21b2d..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMVLr..
/
dde6c..
ownership of
4482a..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMdyd..
/
0eeb5..
ownership of
ab359..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMKKU..
/
abe1d..
ownership of
44230..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMYs3..
/
0f04a..
ownership of
27df0..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMbAS..
/
94fbb..
ownership of
9a03b..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMHcX..
/
8579d..
ownership of
ca203..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMbfo..
/
05d78..
ownership of
91055..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMYnB..
/
43595..
ownership of
22358..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMQMa..
/
dce95..
ownership of
a9e4b..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMd65..
/
de3bc..
ownership of
c71b1..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMRTM..
/
ec2f8..
ownership of
83835..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMcia..
/
91165..
ownership of
d1582..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMJX9..
/
92f76..
ownership of
dbb71..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMbCz..
/
31d0b..
ownership of
05a41..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMKJs..
/
d079e..
ownership of
fad21..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMNyX..
/
db800..
ownership of
d8e80..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMPbR..
/
91418..
ownership of
717eb..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMHHU..
/
2533f..
ownership of
7810f..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMU9D..
/
e389e..
ownership of
8b1a6..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMbgK..
/
69527..
ownership of
48740..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMRgP..
/
9616b..
ownership of
3c670..
as prop with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMJ98..
/
39726..
ownership of
f7397..
as obj with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMHLF..
/
9dd15..
ownership of
c599e..
as obj with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMZRv..
/
0943d..
ownership of
c77a4..
as obj with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMSwc..
/
41bdb..
ownership of
d9166..
as obj with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMUDZ..
/
c133b..
ownership of
30af8..
as obj with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
TMUpS..
/
c5eae..
ownership of
18135..
as obj with payaddr
PrQUS..
rights free controlledby
PrQUS..
upto 0
PURry..
/
618d5..
doc published by
PrQUS..
Param
SNo
SNo
:
ι
→
ο
Param
nIn
nIn
:
ι
→
ι
→
ο
Param
Sing
Sing
:
ι
→
ι
Param
ordsucc
ordsucc
:
ι
→
ι
Known
complex_tag_fresh
complex_tag_fresh
:
∀ x0 .
SNo
x0
⟶
∀ x1 .
x1
∈
x0
⟶
nIn
(
Sing
2
)
x1
Param
pair_tag
pair_tag
:
ι
→
ι
→
ι
→
ι
Definition
SNo_pair
SNo_pair
:=
pair_tag
(
Sing
2
)
Known
SNo_pair_0
SNo_pair_0
:
∀ x0 .
SNo_pair
x0
0
=
x0
Known
SNo_pair_prop_1
SNo_pair_prop_1
:
∀ x0 x1 x2 x3 .
SNo
x0
⟶
SNo
x2
⟶
SNo_pair
x0
x1
=
SNo_pair
x2
x3
⟶
x0
=
x2
Known
SNo_pair_prop_2
SNo_pair_prop_2
:
∀ x0 x1 x2 x3 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNo
x3
⟶
SNo_pair
x0
x1
=
SNo_pair
x2
x3
⟶
x1
=
x3
Param
CD_carr
CD_carr
:
ι
→
(
ι
→
ο
) →
ι
→
ο
Definition
CSNo
CSNo
:=
CD_carr
(
Sing
2
)
SNo
Known
CSNo_I
CSNo_I
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
CSNo
(
SNo_pair
x0
x1
)
Known
CSNo_E
CSNo_E
:
∀ x0 .
CSNo
x0
⟶
∀ x1 :
ι → ο
.
(
∀ x2 x3 .
SNo
x2
⟶
SNo
x3
⟶
x0
=
SNo_pair
x2
x3
⟶
x1
(
SNo_pair
x2
x3
)
)
⟶
x1
x0
Known
SNo_CSNo
SNo_CSNo
:
∀ x0 .
SNo
x0
⟶
CSNo
x0
Known
CSNo_0
CSNo_0
:
CSNo
0
Known
CSNo_1
CSNo_1
:
CSNo
1
Param
ExtendedSNoElt_
ExtendedSNoElt_
:
ι
→
ι
→
ο
Known
CSNo_ExtendedSNoElt_3
CSNo_ExtendedSNoElt_3
:
∀ x0 .
CSNo
x0
⟶
ExtendedSNoElt_
3
x0
Definition
Complex_i
Complex_i
:=
SNo_pair
0
1
Param
CD_proj0
CD_proj0
:
ι
→
(
ι
→
ο
) →
ι
→
ι
Definition
CSNo_Re
CSNo_Re
:=
CD_proj0
(
Sing
2
)
SNo
Param
CD_proj1
CD_proj1
:
ι
→
(
ι
→
ο
) →
ι
→
ι
Definition
CSNo_Im
CSNo_Im
:=
CD_proj1
(
Sing
2
)
SNo
Known
CSNo_Re2
CSNo_Re2
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
CSNo_Re
(
SNo_pair
x0
x1
)
=
x0
Known
CSNo_Im2
CSNo_Im2
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
CSNo_Im
(
SNo_pair
x0
x1
)
=
x1
Known
CSNo_ReR
CSNo_ReR
:
∀ x0 .
CSNo
x0
⟶
SNo
(
CSNo_Re
x0
)
Known
CSNo_ImR
CSNo_ImR
:
∀ x0 .
CSNo
x0
⟶
SNo
(
CSNo_Im
x0
)
Known
CSNo_ReIm_split
CSNo_ReIm_split
:
∀ x0 x1 .
CSNo
x0
⟶
CSNo
x1
⟶
CSNo_Re
x0
=
CSNo_Re
x1
⟶
CSNo_Im
x0
=
CSNo_Im
x1
⟶
x0
=
x1
Definition
CD_minus
CD_minus
:=
λ x0 .
λ x1 :
ι → ο
.
λ x2 :
ι → ι
.
λ x3 .
pair_tag
x0
(
x2
(
CD_proj0
x0
x1
x3
)
)
(
x2
(
CD_proj1
x0
x1
x3
)
)
Param
minus_SNo
minus_SNo
:
ι
→
ι
Definition
minus_CSNo
minus_CSNo
:=
CD_minus
(
Sing
2
)
SNo
minus_SNo
Param
CD_conj
CD_conj
:
ι
→
(
ι
→
ο
) →
(
ι
→
ι
) →
(
ι
→
ι
) →
ι
→
ι
Definition
conj_CSNo
conj_CSNo
:=
CD_conj
(
Sing
2
)
SNo
minus_SNo
(
λ x0 .
x0
)
Definition
CD_add
CD_add
:=
λ x0 .
λ x1 :
ι → ο
.
λ x2 :
ι →
ι → ι
.
λ x3 x4 .
pair_tag
x0
(
x2
(
CD_proj0
x0
x1
x3
)
(
CD_proj0
x0
x1
x4
)
)
(
x2
(
CD_proj1
x0
x1
x3
)
(
CD_proj1
x0
x1
x4
)
)
Param
add_SNo
add_SNo
:
ι
→
ι
→
ι
Definition
add_CSNo
add_CSNo
:=
CD_add
(
Sing
2
)
SNo
add_SNo
Definition
CD_mul
CD_mul
:=
λ x0 .
λ x1 :
ι → ο
.
λ x2 x3 :
ι → ι
.
λ x4 x5 :
ι →
ι → ι
.
λ x6 x7 .
pair_tag
x0
(
x4
(
x5
(
CD_proj0
x0
x1
x6
)
(
CD_proj0
x0
x1
x7
)
)
(
x2
(
x5
(
x3
(
CD_proj1
x0
x1
x7
)
)
(
CD_proj1
x0
x1
x6
)
)
)
)
(
x4
(
x5
(
CD_proj1
x0
x1
x7
)
(
CD_proj0
x0
x1
x6
)
)
(
x5
(
CD_proj1
x0
x1
x6
)
(
x3
(
CD_proj0
x0
x1
x7
)
)
)
)
Param
mul_SNo
mul_SNo
:
ι
→
ι
→
ι
Definition
mul_CSNo
mul_CSNo
:=
CD_mul
(
Sing
2
)
SNo
minus_SNo
(
λ x0 .
x0
)
add_SNo
mul_SNo
Param
CD_exp_nat
CD_exp_nat
:
ι
→
(
ι
→
ο
) →
(
ι
→
ι
) →
(
ι
→
ι
) →
(
ι
→
ι
→
ι
) →
(
ι
→
ι
→
ι
) →
ι
→
ι
→
ι
Definition
exp_CSNo_nat
exp_CSNo_nat
:=
CD_exp_nat
(
Sing
2
)
SNo
minus_SNo
(
λ x0 .
x0
)
add_SNo
mul_SNo
Param
exp_SNo_nat
exp_SNo_nat
:
ι
→
ι
→
ι
Definition
abs_sqr_CSNo
abs_sqr_CSNo
:=
λ x0 .
add_SNo
(
exp_SNo_nat
(
CSNo_Re
x0
)
2
)
(
exp_SNo_nat
(
CSNo_Im
x0
)
2
)
Param
recip_SNo
recip_SNo
:
ι
→
ι
Definition
div_SNo
div_SNo
:=
λ x0 x1 .
mul_SNo
x0
(
recip_SNo
x1
)
Definition
recip_CSNo
recip_CSNo
:=
λ x0 .
SNo_pair
(
div_SNo
(
CSNo_Re
x0
)
(
abs_sqr_CSNo
x0
)
)
(
minus_SNo
(
div_SNo
(
CSNo_Im
x0
)
(
abs_sqr_CSNo
x0
)
)
)
Definition
div_CSNo
div_CSNo
:=
λ x0 x1 .
mul_CSNo
x0
(
recip_CSNo
x1
)
Known
CSNo_Complex_i
CSNo_Complex_i
:
CSNo
Complex_i
Known
CSNo_minus_CSNo
CSNo_minus_CSNo
:
∀ x0 .
CSNo
x0
⟶
CSNo
(
minus_CSNo
x0
)
Known
minus_CSNo_CRe
minus_CSNo_CRe
:
∀ x0 .
CSNo
x0
⟶
CSNo_Re
(
minus_CSNo
x0
)
=
minus_SNo
(
CSNo_Re
x0
)
Known
minus_CSNo_CIm
minus_CSNo_CIm
:
∀ x0 .
CSNo
x0
⟶
CSNo_Im
(
minus_CSNo
x0
)
=
minus_SNo
(
CSNo_Im
x0
)
Known
CSNo_add_CSNo
CSNo_add_CSNo
:
∀ x0 x1 .
CSNo
x0
⟶
CSNo
x1
⟶
CSNo
(
add_CSNo
x0
x1
)
Known
add_CSNo_CRe
add_CSNo_CRe
:
∀ x0 x1 .
CSNo
x0
⟶
CSNo
x1
⟶
CSNo_Re
(
add_CSNo
x0
x1
)
=
add_SNo
(
CSNo_Re
x0
)
(
CSNo_Re
x1
)
Known
add_CSNo_CIm
add_CSNo_CIm
:
∀ x0 x1 .
CSNo
x0
⟶
CSNo
x1
⟶
CSNo_Im
(
add_CSNo
x0
x1
)
=
add_SNo
(
CSNo_Im
x0
)
(
CSNo_Im
x1
)
Known
CSNo_mul_CSNo
CSNo_mul_CSNo
:
∀ x0 x1 .
CSNo
x0
⟶
CSNo
x1
⟶
CSNo
(
mul_CSNo
x0
x1
)
Known
mul_CSNo_CRe
mul_CSNo_CRe
:
∀ x0 x1 .
CSNo
x0
⟶
CSNo
x1
⟶
CSNo_Re
(
mul_CSNo
x0
x1
)
=
add_SNo
(
mul_SNo
(
CSNo_Re
x0
)
(
CSNo_Re
x1
)
)
(
minus_SNo
(
mul_SNo
(
CSNo_Im
x1
)
(
CSNo_Im
x0
)
)
)
Known
mul_CSNo_CIm
mul_CSNo_CIm
:
∀ x0 x1 .
CSNo
x0
⟶
CSNo
x1
⟶
CSNo_Im
(
mul_CSNo
x0
x1
)
=
add_SNo
(
mul_SNo
(
CSNo_Im
x1
)
(
CSNo_Re
x0
)
)
(
mul_SNo
(
CSNo_Im
x0
)
(
CSNo_Re
x1
)
)
Known
SNo_Re
SNo_Re
:
∀ x0 .
SNo
x0
⟶
CSNo_Re
x0
=
x0
Known
SNo_Im
SNo_Im
:
∀ x0 .
SNo
x0
⟶
CSNo_Im
x0
=
0
Known
Re_0
Re_0
:
CSNo_Re
0
=
0
Known
Im_0
Im_0
:
CSNo_Im
0
=
0
Known
Re_1
Re_1
:
CSNo_Re
1
=
1
Known
Im_1
Im_1
:
CSNo_Im
1
=
0
Known
Re_i
Re_i
:
CSNo_Re
Complex_i
=
0
Known
Im_i
Im_i
:
CSNo_Im
Complex_i
=
1
Known
mul_CSNo_mul_SNo
mul_CSNo_mul_SNo
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
mul_CSNo
x0
x1
=
mul_SNo
x0
x1
Known
mul_CSNo_1R
mul_CSNo_1R
:
∀ x0 .
CSNo
x0
⟶
mul_CSNo
x0
1
=
x0
Known
exp_CSNo_nat_2
exp_CSNo_nat_2
:
∀ x0 .
CSNo
x0
⟶
exp_CSNo_nat
x0
2
=
mul_CSNo
x0
x0
Param
nat_p
nat_p
:
ι
→
ο
Known
CSNo_exp_CSNo_nat
CSNo_exp_CSNo_nat
:
∀ x0 .
CSNo
x0
⟶
∀ x1 .
nat_p
x1
⟶
CSNo
(
exp_CSNo_nat
x0
x1
)
Known
mul_CSNo_com
mul_CSNo_com
:
∀ x0 x1 .
CSNo
x0
⟶
CSNo
x1
⟶
mul_CSNo
x0
x1
=
mul_CSNo
x1
x0
Known
mul_CSNo_assoc
mul_CSNo_assoc
:
∀ x0 x1 x2 .
CSNo
x0
⟶
CSNo
x1
⟶
CSNo
x2
⟶
mul_CSNo
x0
(
mul_CSNo
x1
x2
)
=
mul_CSNo
(
mul_CSNo
x0
x1
)
x2
Known
SNo_add_SNo
SNo_add_SNo
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
SNo
(
add_SNo
x0
x1
)
Known
SNo_exp_SNo_nat
SNo_exp_SNo_nat
:
∀ x0 .
SNo
x0
⟶
∀ x1 .
nat_p
x1
⟶
SNo
(
exp_SNo_nat
x0
x1
)
Known
nat_2
nat_2
:
nat_p
2
Theorem
SNo_abs_sqr_CSNo
SNo_abs_sqr_CSNo
:
∀ x0 .
CSNo
x0
⟶
SNo
(
abs_sqr_CSNo
x0
)
(proof)
Param
SNoLe
SNoLe
:
ι
→
ι
→
ο
Known
add_SNo_0L
add_SNo_0L
:
∀ x0 .
SNo
x0
⟶
add_SNo
0
x0
=
x0
Known
SNo_0
SNo_0
:
SNo
0
Known
add_SNo_Le3
add_SNo_Le3
:
∀ x0 x1 x2 x3 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNo
x3
⟶
SNoLe
x0
x2
⟶
SNoLe
x1
x3
⟶
SNoLe
(
add_SNo
x0
x1
)
(
add_SNo
x2
x3
)
Known
exp_SNo_nat_2
exp_SNo_nat_2
:
∀ x0 .
SNo
x0
⟶
exp_SNo_nat
x0
2
=
mul_SNo
x0
x0
Known
SNo_sqr_nonneg
SNo_sqr_nonneg
:
∀ x0 .
SNo
x0
⟶
SNoLe
0
(
mul_SNo
x0
x0
)
Theorem
abs_sqr_CSNo_nonneg
abs_sqr_CSNo_nonneg
:
∀ x0 .
CSNo
x0
⟶
SNoLe
0
(
abs_sqr_CSNo
x0
)
(proof)
Definition
or
or
:=
λ x0 x1 : ο .
∀ x2 : ο .
(
x0
⟶
x2
)
⟶
(
x1
⟶
x2
)
⟶
x2
Param
SNoLt
SNoLt
:
ι
→
ι
→
ο
Known
SNo_zero_or_sqr_pos'
SNo_zero_or_sqr_pos
:
∀ x0 .
SNo
x0
⟶
or
(
x0
=
0
)
(
SNoLt
0
(
exp_SNo_nat
x0
2
)
)
Definition
False
False
:=
∀ x0 : ο .
x0
Known
FalseE
FalseE
:
False
⟶
∀ x0 : ο .
x0
Definition
not
not
:=
λ x0 : ο .
x0
⟶
False
Known
SNoLt_irref
SNoLt_irref
:
∀ x0 .
not
(
SNoLt
x0
x0
)
Known
SNoLtLe_tra
SNoLtLe_tra
:
∀ x0 x1 x2 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNoLt
x0
x1
⟶
SNoLe
x1
x2
⟶
SNoLt
x0
x2
Known
add_SNo_0R
add_SNo_0R
:
∀ x0 .
SNo
x0
⟶
add_SNo
x0
0
=
x0
Known
add_SNo_Le2
add_SNo_Le2
:
∀ x0 x1 x2 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNoLe
x1
x2
⟶
SNoLe
(
add_SNo
x0
x1
)
(
add_SNo
x0
x2
)
Known
SNo_sqr_nonneg'
SNo_sqr_nonneg
:
∀ x0 .
SNo
x0
⟶
SNoLe
0
(
exp_SNo_nat
x0
2
)
Known
add_SNo_Le1
add_SNo_Le1
:
∀ x0 x1 x2 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNoLe
x0
x2
⟶
SNoLe
(
add_SNo
x0
x1
)
(
add_SNo
x2
x1
)
Theorem
abs_sqr_CSNo_zero
abs_sqr_CSNo_zero
:
∀ x0 .
CSNo
x0
⟶
abs_sqr_CSNo
x0
=
0
⟶
x0
=
0
(proof)
Known
SNo_div_SNo
SNo_div_SNo
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
SNo
(
div_SNo
x0
x1
)
Known
SNo_minus_SNo
SNo_minus_SNo
:
∀ x0 .
SNo
x0
⟶
SNo
(
minus_SNo
x0
)
Theorem
CSNo_recip_CSNo
CSNo_recip_CSNo
:
∀ x0 .
CSNo
x0
⟶
CSNo
(
recip_CSNo
x0
)
(proof)
Known
mul_SNo_zeroR
mul_SNo_zeroR
:
∀ x0 .
SNo
x0
⟶
mul_SNo
x0
0
=
0
Known
mul_SNo_zeroL
mul_SNo_zeroL
:
∀ x0 .
SNo
x0
⟶
mul_SNo
0
x0
=
0
Known
SNo_1
SNo_1
:
SNo
1
Known
minus_SNo_0
minus_SNo_0
:
minus_SNo
0
=
0
Known
mul_SNo_oneL
mul_SNo_oneL
:
∀ x0 .
SNo
x0
⟶
mul_SNo
1
x0
=
x0
Known
mul_SNo_minus_distrL
mul_SNo_minus_distrL
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
mul_SNo
(
minus_SNo
x0
)
x1
=
minus_SNo
(
mul_SNo
x0
x1
)
Known
minus_SNo_invol
minus_SNo_invol
:
∀ x0 .
SNo
x0
⟶
minus_SNo
(
minus_SNo
x0
)
=
x0
Known
mul_SNo_com_3_0_1
mul_SNo_com_3_0_1
:
∀ x0 x1 x2 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
mul_SNo
x0
(
mul_SNo
x1
x2
)
=
mul_SNo
x1
(
mul_SNo
x0
x2
)
Known
mul_SNo_assoc
mul_SNo_assoc
:
∀ x0 x1 x2 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
mul_SNo
x0
(
mul_SNo
x1
x2
)
=
mul_SNo
(
mul_SNo
x0
x1
)
x2
Known
mul_SNo_com
mul_SNo_com
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
mul_SNo
x0
x1
=
mul_SNo
x1
x0
Known
mul_SNo_distrR
mul_SNo_distrR
:
∀ x0 x1 x2 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
mul_SNo
(
add_SNo
x0
x1
)
x2
=
add_SNo
(
mul_SNo
x0
x2
)
(
mul_SNo
x1
x2
)
Known
add_SNo_minus_SNo_linv
add_SNo_minus_SNo_linv
:
∀ x0 .
SNo
x0
⟶
add_SNo
(
minus_SNo
x0
)
x0
=
0
Known
SNo_mul_SNo_3
SNo_mul_SNo_3
:
∀ x0 x1 x2 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNo
(
mul_SNo
x0
(
mul_SNo
x1
x2
)
)
Known
SNo_mul_SNo
SNo_mul_SNo
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
SNo
(
mul_SNo
x0
x1
)
Theorem
CSNo_relative_recip
CSNo_relative_recip
:
∀ x0 .
CSNo
x0
⟶
∀ x1 .
SNo
x1
⟶
mul_SNo
(
add_SNo
(
exp_SNo_nat
(
CSNo_Re
x0
)
2
)
(
exp_SNo_nat
(
CSNo_Im
x0
)
2
)
)
x1
=
1
⟶
mul_CSNo
x0
(
add_CSNo
(
mul_CSNo
x1
(
CSNo_Re
x0
)
)
(
minus_CSNo
(
mul_CSNo
Complex_i
(
mul_CSNo
x1
(
CSNo_Im
x0
)
)
)
)
)
=
1
(proof)
Known
recip_SNo_invR
recip_SNo_invR
:
∀ x0 .
SNo
x0
⟶
(
x0
=
0
⟶
∀ x1 : ο .
x1
)
⟶
mul_SNo
x0
(
recip_SNo
x0
)
=
1
Known
mul_SNo_oneR
mul_SNo_oneR
:
∀ x0 .
SNo
x0
⟶
mul_SNo
x0
1
=
x0
Known
SNo_recip_SNo
SNo_recip_SNo
:
∀ x0 .
SNo
x0
⟶
SNo
(
recip_SNo
x0
)
Theorem
recip_CSNo_invR
recip_CSNo_invR
:
∀ x0 .
CSNo
x0
⟶
(
x0
=
0
⟶
∀ x1 : ο .
x1
)
⟶
mul_CSNo
x0
(
recip_CSNo
x0
)
=
1
(proof)
Theorem
recip_CSNo_invL
recip_CSNo_invL
:
∀ x0 .
CSNo
x0
⟶
(
x0
=
0
⟶
∀ x1 : ο .
x1
)
⟶
mul_CSNo
(
recip_CSNo
x0
)
x0
=
1
(proof)
Theorem
CSNo_div_CSNo
CSNo_div_CSNo
:
∀ x0 x1 .
CSNo
x0
⟶
CSNo
x1
⟶
CSNo
(
div_CSNo
x0
x1
)
(proof)
Theorem
mul_div_CSNo_invL
mul_div_CSNo_invL
:
∀ x0 x1 .
CSNo
x0
⟶
CSNo
x1
⟶
(
x1
=
0
⟶
∀ x2 : ο .
x2
)
⟶
mul_CSNo
(
div_CSNo
x0
x1
)
x1
=
x0
(proof)
Theorem
mul_div_CSNo_invR
mul_div_CSNo_invR
:
∀ x0 x1 .
CSNo
x0
⟶
CSNo
x1
⟶
(
x1
=
0
⟶
∀ x2 : ο .
x2
)
⟶
mul_CSNo
x1
(
div_CSNo
x0
x1
)
=
x0
(proof)
Param
sqrt_SNo_nonneg
sqrt_SNo_nonneg
:
ι
→
ι
Known
SNoLeE
SNoLeE
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
SNoLe
x0
x1
⟶
or
(
SNoLt
x0
x1
)
(
x0
=
x1
)
Known
SNoLt_trichotomy_or_impred
SNoLt_trichotomy_or_impred
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
∀ x2 : ο .
(
SNoLt
x0
x1
⟶
x2
)
⟶
(
x0
=
x1
⟶
x2
)
⟶
(
SNoLt
x1
x0
⟶
x2
)
⟶
x2
Known
pos_mul_SNo_Lt2
pos_mul_SNo_Lt2
:
∀ x0 x1 x2 x3 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNo
x3
⟶
SNoLt
0
x0
⟶
SNoLt
0
x1
⟶
SNoLt
x0
x2
⟶
SNoLt
x1
x3
⟶
SNoLt
(
mul_SNo
x0
x1
)
(
mul_SNo
x2
x3
)
Known
mul_SNo_pos_pos
mul_SNo_pos_pos
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
SNoLt
0
x0
⟶
SNoLt
0
x1
⟶
SNoLt
0
(
mul_SNo
x0
x1
)
Known
sqrt_SNo_nonneg_0
sqrt_SNo_nonneg_0
:
sqrt_SNo_nonneg
0
=
0
Known
sqrt_SNo_nonneg_sqr
sqrt_SNo_nonneg_sqr
:
∀ x0 .
SNo
x0
⟶
SNoLe
0
x0
⟶
mul_SNo
(
sqrt_SNo_nonneg
x0
)
(
sqrt_SNo_nonneg
x0
)
=
x0
Known
sqrt_SNo_nonneg_nonneg
sqrt_SNo_nonneg_nonneg
:
∀ x0 .
SNo
x0
⟶
SNoLe
0
x0
⟶
SNoLe
0
(
sqrt_SNo_nonneg
x0
)
Known
SNo_sqrt_SNo_nonneg
SNo_sqrt_SNo_nonneg
:
∀ x0 .
SNo
x0
⟶
SNoLe
0
x0
⟶
SNo
(
sqrt_SNo_nonneg
x0
)
Theorem
sqrt_SNo_nonneg_sqr_id
sqrt_SNo_nonneg_sqr_id
:
∀ x0 .
SNo
x0
⟶
SNoLe
0
x0
⟶
sqrt_SNo_nonneg
(
exp_SNo_nat
x0
2
)
=
x0
(proof)
Known
SNoLtLe_or
SNoLtLe_or
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
or
(
SNoLt
x0
x1
)
(
SNoLe
x1
x0
)
Known
nonneg_mul_SNo_Le2
nonneg_mul_SNo_Le2
:
∀ x0 x1 x2 x3 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNo
x3
⟶
SNoLe
0
x0
⟶
SNoLe
0
x1
⟶
SNoLe
x0
x2
⟶
SNoLe
x1
x3
⟶
SNoLe
(
mul_SNo
x0
x1
)
(
mul_SNo
x2
x3
)
Known
SNoLe_tra
SNoLe_tra
:
∀ x0 x1 x2 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNoLe
x0
x1
⟶
SNoLe
x1
x2
⟶
SNoLe
x0
x2
Known
SNoLtLe
SNoLtLe
:
∀ x0 x1 .
SNoLt
x0
x1
⟶
SNoLe
x0
x1
Theorem
sqrt_SNo_nonneg_mon_strict
sqrt_SNo_nonneg_mon_strict
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
SNoLe
0
x0
⟶
SNoLt
x0
x1
⟶
SNoLt
(
sqrt_SNo_nonneg
x0
)
(
sqrt_SNo_nonneg
x1
)
(proof)
Known
SNoLe_ref
SNoLe_ref
:
∀ x0 .
SNoLe
x0
x0
Theorem
sqrt_SNo_nonneg_mon
sqrt_SNo_nonneg_mon
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
SNoLe
0
x0
⟶
SNoLe
x0
x1
⟶
SNoLe
(
sqrt_SNo_nonneg
x0
)
(
sqrt_SNo_nonneg
x1
)
(proof)
Known
mul_SNo_nonneg_nonneg
mul_SNo_nonneg_nonneg
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
SNoLe
0
x0
⟶
SNoLe
0
x1
⟶
SNoLe
0
(
mul_SNo
x0
x1
)
Known
mul_SNo_com_4_inner_mid
mul_SNo_com_4_inner_mid
:
∀ x0 x1 x2 x3 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNo
x3
⟶
mul_SNo
(
mul_SNo
x0
x1
)
(
mul_SNo
x2
x3
)
=
mul_SNo
(
mul_SNo
x0
x2
)
(
mul_SNo
x1
x3
)
Theorem
sqrt_SNo_nonneg_mul_SNo
sqrt_SNo_nonneg_mul_SNo
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
SNoLe
0
x0
⟶
SNoLe
0
x1
⟶
sqrt_SNo_nonneg
(
mul_SNo
x0
x1
)
=
mul_SNo
(
sqrt_SNo_nonneg
x0
)
(
sqrt_SNo_nonneg
x1
)
(proof)
Definition
modulus_CSNo
modulus_CSNo
:=
λ x0 .
sqrt_SNo_nonneg
(
abs_sqr_CSNo
x0
)
Theorem
SNo_modulus_CSNo
SNo_modulus_CSNo
:
∀ x0 .
CSNo
x0
⟶
SNo
(
modulus_CSNo
x0
)
(proof)
Theorem
modulus_CSNo_nonneg
modulus_CSNo_nonneg
:
∀ x0 .
CSNo
x0
⟶
SNoLe
0
(
modulus_CSNo
x0
)
(proof)
Param
If_i
If_i
:
ο
→
ι
→
ι
→
ι
Definition
and
and
:=
λ x0 x1 : ο .
∀ x2 : ο .
(
x0
⟶
x1
⟶
x2
)
⟶
x2
Param
eps_
eps_
:
ι
→
ι
Definition
sqrt_CSNo
sqrt_CSNo
:=
λ x0 .
If_i
(
or
(
SNoLt
(
CSNo_Im
x0
)
0
)
(
and
(
CSNo_Im
x0
=
0
)
(
SNoLt
(
CSNo_Re
x0
)
0
)
)
)
(
SNo_pair
(
sqrt_SNo_nonneg
(
mul_SNo
(
eps_
1
)
(
add_SNo
(
CSNo_Re
x0
)
(
modulus_CSNo
x0
)
)
)
)
(
minus_SNo
(
sqrt_SNo_nonneg
(
mul_SNo
(
eps_
1
)
(
add_SNo
(
minus_SNo
(
CSNo_Re
x0
)
)
(
modulus_CSNo
x0
)
)
)
)
)
)
(
SNo_pair
(
sqrt_SNo_nonneg
(
mul_SNo
(
eps_
1
)
(
add_SNo
(
CSNo_Re
x0
)
(
modulus_CSNo
x0
)
)
)
)
(
sqrt_SNo_nonneg
(
mul_SNo
(
eps_
1
)
(
add_SNo
(
minus_SNo
(
CSNo_Re
x0
)
)
(
modulus_CSNo
x0
)
)
)
)
)
Known
If_i_1
If_i_1
:
∀ x0 : ο .
∀ x1 x2 .
x0
⟶
If_i
x0
x1
x2
=
x1
Known
mul_SNo_minus_minus
mul_SNo_minus_minus
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
mul_SNo
(
minus_SNo
x0
)
(
minus_SNo
x1
)
=
mul_SNo
x0
x1
Known
minus_add_SNo_distr
minus_add_SNo_distr
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
minus_SNo
(
add_SNo
x0
x1
)
=
add_SNo
(
minus_SNo
x0
)
(
minus_SNo
x1
)
Known
eps_1_half_eq1
eps_1_half_eq1
:
add_SNo
(
eps_
1
)
(
eps_
1
)
=
1
Known
minus_SNo_Lt_contra2
minus_SNo_Lt_contra2
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
SNoLt
x0
(
minus_SNo
x1
)
⟶
SNoLt
x1
(
minus_SNo
x0
)
Known
orIL
orIL
:
∀ x0 x1 : ο .
x0
⟶
or
x0
x1
Known
orIR
orIR
:
∀ x0 x1 : ο .
x1
⟶
or
x0
x1
Known
andI
andI
:
∀ x0 x1 : ο .
x0
⟶
x1
⟶
and
x0
x1
Known
If_i_0
If_i_0
:
∀ x0 : ο .
∀ x1 x2 .
not
x0
⟶
If_i
x0
x1
x2
=
x2
Known
SNoLt_tra
SNoLt_tra
:
∀ x0 x1 x2 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNoLt
x0
x1
⟶
SNoLt
x1
x2
⟶
SNoLt
x0
x2
Known
mul_SNo_minus_distrR
mul_minus_SNo_distrR
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
mul_SNo
x0
(
minus_SNo
x1
)
=
minus_SNo
(
mul_SNo
x0
x1
)
Known
mul_SNo_distrL
mul_SNo_distrL
:
∀ x0 x1 x2 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
mul_SNo
x0
(
add_SNo
x1
x2
)
=
add_SNo
(
mul_SNo
x0
x1
)
(
mul_SNo
x0
x2
)
Known
add_SNo_com_4_inner_mid
add_SNo_com_4_inner_mid
:
∀ x0 x1 x2 x3 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNo
x3
⟶
add_SNo
(
add_SNo
x0
x1
)
(
add_SNo
x2
x3
)
=
add_SNo
(
add_SNo
x0
x2
)
(
add_SNo
x1
x3
)
Known
add_SNo_minus_SNo_rinv
add_SNo_minus_SNo_rinv
:
∀ x0 .
SNo
x0
⟶
add_SNo
x0
(
minus_SNo
x0
)
=
0
Known
SNo_foil
SNo_foil
:
∀ x0 x1 x2 x3 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNo
x3
⟶
mul_SNo
(
add_SNo
x0
x1
)
(
add_SNo
x2
x3
)
=
add_SNo
(
mul_SNo
x0
x2
)
(
add_SNo
(
mul_SNo
x0
x3
)
(
add_SNo
(
mul_SNo
x1
x2
)
(
mul_SNo
x1
x3
)
)
)
Known
add_SNo_minus_L2
add_SNo_minus_L2
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
add_SNo
(
minus_SNo
x0
)
(
add_SNo
x0
x1
)
=
x1
Known
add_SNo_com
add_SNo_com
:
∀ x0 x1 .
SNo
x0
⟶
SNo
x1
⟶
add_SNo
x0
x1
=
add_SNo
x1
x0
Known
add_SNo_minus_Le2b
add_SNo_minus_Le2b
:
∀ x0 x1 x2 .
SNo
x0
⟶
SNo
x1
⟶
SNo
x2
⟶
SNoLe
(
add_SNo
x2
x1
)
x0
⟶
SNoLe
x2
(
add_SNo
x0
(
minus_SNo
x1
)
)
Param
omega
omega
:
ι
Known
SNo_eps_pos
SNo_eps_pos
:
∀ x0 .
x0
∈
omega
⟶
SNoLt
0
(
eps_
x0
)
Known
nat_p_omega
nat_p_omega
:
∀ x0 .
nat_p
x0
⟶
x0
∈
omega
Known
nat_1
nat_1
:
nat_p
1
Known
SNo_eps_
SNo_eps_
:
∀ x0 .
x0
∈
omega
⟶
SNo
(
eps_
x0
)
Theorem
sqrt_CSNo_sqrt
sqrt_CSNo_sqrt
:
∀ x0 .
CSNo
x0
⟶
exp_CSNo_nat
(
sqrt_CSNo
x0
)
2
=
x0
(proof)
Param
lam
Sigma
:
ι
→
(
ι
→
ι
) →
ι
Definition
setprod
setprod
:=
λ x0 x1 .
lam
x0
(
λ x2 .
x1
)
Param
real
real
:
ι
Param
ap
ap
:
ι
→
ι
→
ι
Definition
complex
complex
:=
{
SNo_pair
(
ap
x0
0
)
(
ap
x0
1
)
|x0 ∈
setprod
real
real
}
Known
tuple_2_0_eq
tuple_2_0_eq
:
∀ x0 x1 .
ap
(
lam
2
(
λ x3 .
If_i
(
x3
=
0
)
x0
x1
)
)
0
=
x0
Known
tuple_2_1_eq
tuple_2_1_eq
:
∀ x0 x1 .
ap
(
lam
2
(
λ x3 .
If_i
(
x3
=
0
)
x0
x1
)
)
1
=
x1
Known
ReplI
ReplI
:
∀ x0 .
∀ x1 :
ι → ι
.
∀ x2 .
x2
∈
x0
⟶
x1
x2
∈
prim5
x0
x1
Known
tuple_2_setprod
tuple_2_setprod
:
∀ x0 x1 x2 .
x2
∈
x0
⟶
∀ x3 .
x3
∈
x1
⟶
lam
2
(
λ x4 .
If_i
(
x4
=
0
)
x2
x3
)
∈
setprod
x0
x1
Theorem
complex_I
complex_I
:
∀ x0 .
x0
∈
real
⟶
∀ x1 .
x1
∈
real
⟶
SNo_pair
x0
x1
∈
complex
(proof)
Known
ReplE_impred
ReplE_impred
:
∀ x0 .
∀ x1 :
ι → ι
.
∀ x2 .
x2
∈
prim5
x0
x1
⟶
∀ x3 : ο .
(
∀ x4 .
x4
∈
x0
⟶
x2
=
x1
x4
⟶
x3
)
⟶
x3
Known
ap0_Sigma
ap0_Sigma
:
∀ x0 .
∀ x1 :
ι → ι
.
∀ x2 .
x2
∈
lam
x0
x1
⟶
ap
x2
0
∈
x0
Known
ap1_Sigma
ap1_Sigma
:
∀ x0 .
∀ x1 :
ι → ι
.
∀ x2 .
x2
∈
lam
x0
x1
⟶
ap
x2
1
∈
x1
(
ap
x2
0
)
Theorem
complex_E
complex_E
:
∀ x0 .
x0
∈
complex
⟶
∀ x1 : ο .
(
∀ x2 .
x2
∈
real
⟶
∀ x3 .
x3
∈
real
⟶
x0
=
SNo_pair
x2
x3
⟶
x1
)
⟶
x1
(proof)
Known
real_SNo
real_SNo
:
∀ x0 .
x0
∈
real
⟶
SNo
x0
Theorem
complex_CSNo
complex_CSNo
:
∀ x0 .
x0
∈
complex
⟶
CSNo
x0
(proof)
Definition
Subq
Subq
:=
λ x0 x1 .
∀ x2 .
x2
∈
x0
⟶
x2
∈
x1
Known
real_0
real_0
:
0
∈
real
Theorem
real_complex
real_complex
:
real
⊆
complex
(proof)
Theorem
complex_0
complex_0
:
0
∈
complex
(proof)
Known
real_1
real_1
:
1
∈
real
Theorem
complex_1
complex_1
:
1
∈
complex
(proof)
Theorem
complex_i
complex_i
:
Complex_i
∈
complex
(proof)
Theorem
complex_Re_eq
complex_Re_eq
:
∀ x0 .
x0
∈
real
⟶
∀ x1 .
x1
∈
real
⟶
CSNo_Re
(
SNo_pair
x0
x1
)
=
x0
(proof)
Theorem
complex_Im_eq
complex_Im_eq
:
∀ x0 .
x0
∈
real
⟶
∀ x1 .
x1
∈
real
⟶
CSNo_Im
(
SNo_pair
x0
x1
)
=
x1
(proof)
Theorem
complex_Re_real
complex_Re_real
:
∀ x0 .
x0
∈
complex
⟶
CSNo_Re
x0
∈
real
(proof)
Theorem
complex_Im_real
complex_Im_real
:
∀ x0 .
x0
∈
complex
⟶
CSNo_Im
x0
∈
real
(proof)
Theorem
complex_ReIm_split
complex_ReIm_split
:
∀ x0 .
x0
∈
complex
⟶
∀ x1 .
x1
∈
complex
⟶
CSNo_Re
x0
=
CSNo_Re
x1
⟶
CSNo_Im
x0
=
CSNo_Im
x1
⟶
x0
=
x1
(proof)
Known
real_minus_SNo
real_minus_SNo
:
∀ x0 .
x0
∈
real
⟶
minus_SNo
x0
∈
real
Theorem
complex_minus_CSNo
complex_minus_CSNo
:
∀ x0 .
x0
∈
complex
⟶
minus_CSNo
x0
∈
complex
(proof)
Known
real_add_SNo
real_add_SNo
:
∀ x0 .
x0
∈
real
⟶
∀ x1 .
x1
∈
real
⟶
add_SNo
x0
x1
∈
real
Theorem
complex_add_CSNo
complex_add_CSNo
:
∀ x0 .
x0
∈
complex
⟶
∀ x1 .
x1
∈
complex
⟶
add_CSNo
x0
x1
∈
complex
(proof)
Known
real_mul_SNo
real_mul_SNo
:
∀ x0 .
x0
∈
real
⟶
∀ x1 .
x1
∈
real
⟶
mul_SNo
x0
x1
∈
real
Theorem
complex_mul_CSNo
complex_mul_CSNo
:
∀ x0 .
x0
∈
complex
⟶
∀ x1 .
x1
∈
complex
⟶
mul_CSNo
x0
x1
∈
complex
(proof)
Theorem
real_Re_eq
real_Re_eq
:
∀ x0 .
x0
∈
real
⟶
CSNo_Re
x0
=
x0
(proof)
Theorem
real_Im_eq
real_Im_eq
:
∀ x0 .
x0
∈
real
⟶
CSNo_Im
x0
=
0
(proof)
Theorem
mul_i_real_eq
mul_i_real_eq
:
∀ x0 .
x0
∈
real
⟶
mul_CSNo
Complex_i
x0
=
SNo_pair
0
x0
(proof)
Theorem
real_Re_i_eq
real_Re_i_eq
:
∀ x0 .
x0
∈
real
⟶
CSNo_Re
(
mul_CSNo
Complex_i
x0
)
=
0
(proof)
Theorem
real_Im_i_eq
real_Im_i_eq
:
∀ x0 .
x0
∈
real
⟶
CSNo_Im
(
mul_CSNo
Complex_i
x0
)
=
x0
(proof)
Theorem
complex_eta
complex_eta
:
∀ x0 .
x0
∈
complex
⟶
x0
=
add_CSNo
(
CSNo_Re
x0
)
(
mul_CSNo
Complex_i
(
CSNo_Im
x0
)
)
(proof)
Known
real_div_SNo
real_div_SNo
:
∀ x0 .
x0
∈
real
⟶
∀ x1 .
x1
∈
real
⟶
div_SNo
x0
x1
∈
real
Theorem
complex_recip_CSNo
complex_recip_CSNo
:
∀ x0 .
x0
∈
complex
⟶
recip_CSNo
x0
∈
complex
(proof)
Theorem
complex_div_CSNo
complex_div_CSNo
:
∀ x0 .
x0
∈
complex
⟶
∀ x1 .
x1
∈
complex
⟶
div_CSNo
x0
x1
∈
complex
(proof)
Param
Sep
Sep
:
ι
→
(
ι
→
ο
) →
ι
Known
set_ext
set_ext
:
∀ x0 x1 .
x0
⊆
x1
⟶
x1
⊆
x0
⟶
x0
=
x1
Known
SepI
SepI
:
∀ x0 .
∀ x1 :
ι → ο
.
∀ x2 .
x2
∈
x0
⟶
x1
x2
⟶
x2
∈
Sep
x0
x1
Known
SepE
SepE
:
∀ x0 .
∀ x1 :
ι → ο
.
∀ x2 .
x2
∈
Sep
x0
x1
⟶
and
(
x2
∈
x0
)
(
x1
x2
)
Theorem
complex_real_set_eq
complex_real_set_eq
:
real
=
{x1 ∈
complex
|
CSNo_Re
x1
=
x1
}
(proof)