let sn be Real; ( - 1 < sn & sn < 1 implies ( sn -FanMorphE is Function of (TOP-REAL 2),(TOP-REAL 2) & rng (sn -FanMorphE) = the carrier of (TOP-REAL 2) ) )
assume that
A1:
- 1 < sn
and
A2:
sn < 1
; ( sn -FanMorphE is Function of (TOP-REAL 2),(TOP-REAL 2) & rng (sn -FanMorphE) = the carrier of (TOP-REAL 2) )
thus
sn -FanMorphE is Function of (TOP-REAL 2),(TOP-REAL 2)
; rng (sn -FanMorphE) = the carrier of (TOP-REAL 2)
for f being Function of (TOP-REAL 2),(TOP-REAL 2) st f = sn -FanMorphE holds
rng (sn -FanMorphE) = the carrier of (TOP-REAL 2)
proof
let f be
Function of
(TOP-REAL 2),
(TOP-REAL 2);
( f = sn -FanMorphE implies rng (sn -FanMorphE) = the carrier of (TOP-REAL 2) )
assume A3:
f = sn -FanMorphE
;
rng (sn -FanMorphE) = the carrier of (TOP-REAL 2)
A4:
dom f = the
carrier of
(TOP-REAL 2)
by FUNCT_2:def 1;
the
carrier of
(TOP-REAL 2) c= rng f
proof
let y be
object ;
TARSKI:def 3 ( not y in the carrier of (TOP-REAL 2) or y in rng f )
assume
y in the
carrier of
(TOP-REAL 2)
;
y in rng f
then reconsider p2 =
y as
Point of
(TOP-REAL 2) ;
set q =
p2;
now ex x being set st
( x in dom (sn -FanMorphE) & y = (sn -FanMorphE) . x )per cases
( p2 `1 <= 0 or ( (p2 `2) / |.p2.| >= 0 & p2 `1 >= 0 & p2 <> 0. (TOP-REAL 2) ) or ( (p2 `2) / |.p2.| < 0 & p2 `1 >= 0 & p2 <> 0. (TOP-REAL 2) ) )
by JGRAPH_2:3;
suppose A5:
(
(p2 `2) / |.p2.| >= 0 &
p2 `1 >= 0 &
p2 <> 0. (TOP-REAL 2) )
;
ex x being set st
( x in dom (sn -FanMorphE) & y = (sn -FanMorphE) . x )
- (- (1 + sn)) > 0
by A1, XREAL_1:148;
then A6:
- ((- 1) - sn) > 0
;
A7:
1
- sn >= 0
by A2, XREAL_1:149;
then
((p2 `2) / |.p2.|) * (1 - sn) >= 0
by A5;
then
(- 1) - sn <= ((p2 `2) / |.p2.|) * (1 - sn)
by A6;
then A8:
((- 1) - sn) + sn <= (((p2 `2) / |.p2.|) * (1 - sn)) + sn
by XREAL_1:7;
set px =
|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|;
A9:
|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]| `2 = |.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn)
by EUCLID:52;
|.p2.| <> 0
by A5, TOPRNS_1:24;
then A10:
|.p2.| ^2 > 0
by SQUARE_1:12;
A11:
dom (sn -FanMorphE) = the
carrier of
(TOP-REAL 2)
by FUNCT_2:def 1;
A12:
1
- sn > 0
by A2, XREAL_1:149;
0 <= (p2 `1) ^2
by XREAL_1:63;
then
(
|.p2.| ^2 = ((p2 `1) ^2) + ((p2 `2) ^2) &
0 + ((p2 `2) ^2) <= ((p2 `1) ^2) + ((p2 `2) ^2) )
by JGRAPH_3:1, XREAL_1:7;
then
((p2 `2) ^2) / (|.p2.| ^2) <= (|.p2.| ^2) / (|.p2.| ^2)
by XREAL_1:72;
then
((p2 `2) ^2) / (|.p2.| ^2) <= 1
by A10, XCMPLX_1:60;
then
((p2 `2) / |.p2.|) ^2 <= 1
by XCMPLX_1:76;
then
(p2 `2) / |.p2.| <= 1
by SQUARE_1:51;
then
((p2 `2) / |.p2.|) * (1 - sn) <= 1
* (1 - sn)
by A12, XREAL_1:64;
then
((((p2 `2) / |.p2.|) * (1 - sn)) + sn) - sn <= 1
- sn
;
then
(((p2 `2) / |.p2.|) * (1 - sn)) + sn <= 1
by XREAL_1:9;
then
1
^2 >= ((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2
by A8, SQUARE_1:49;
then A13:
1
- (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2) >= 0
by XREAL_1:48;
then A14:
sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)) >= 0
by SQUARE_1:def 2;
A15:
|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]| `1 = |.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))
by EUCLID:52;
then |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| ^2 =
((|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))) ^2) + ((|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn)) ^2)
by A9, JGRAPH_3:1
.=
((|.p2.| ^2) * ((sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2))) ^2)) + ((|.p2.| ^2) * (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2))
;
then A16:
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| ^2 =
((|.p2.| ^2) * (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2))) + ((|.p2.| ^2) * (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2))
by A13, SQUARE_1:def 2
.=
|.p2.| ^2
;
then A17:
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| =
sqrt (|.p2.| ^2)
by SQUARE_1:22
.=
|.p2.|
by SQUARE_1:22
;
then A18:
|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]| <> 0. (TOP-REAL 2)
by A5, TOPRNS_1:23, TOPRNS_1:24;
(((p2 `2) / |.p2.|) * (1 - sn)) + sn >= 0 + sn
by A5, A7, XREAL_1:7;
then
(|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]| `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| >= sn
by A5, A9, A17, TOPRNS_1:24, XCMPLX_1:89;
then A19:
(sn -FanMorphE) . |[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]| = |[(|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| * (sqrt (1 - (((((|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]| `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.|) - sn) / (1 - sn)) ^2)))),(|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| * ((((|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]| `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.|) - sn) / (1 - sn)))]|
by A1, A2, A15, A14, A18, Th84;
A20:
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| * (sqrt (((p2 `1) / |.p2.|) ^2)) =
|.p2.| * ((p2 `1) / |.p2.|)
by A5, A17, SQUARE_1:22
.=
p2 `1
by A5, TOPRNS_1:24, XCMPLX_1:87
;
A21:
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| * ((((|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]| `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.|) - sn) / (1 - sn)) =
|.p2.| * ((((((p2 `2) / |.p2.|) * (1 - sn)) + sn) - sn) / (1 - sn))
by A5, A9, A17, TOPRNS_1:24, XCMPLX_1:89
.=
|.p2.| * ((p2 `2) / |.p2.|)
by A12, XCMPLX_1:89
.=
p2 `2
by A5, TOPRNS_1:24, XCMPLX_1:87
;
then |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| * (sqrt (1 - (((((|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]| `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.|) - sn) / (1 - sn)) ^2))) =
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| * (sqrt (1 - (((p2 `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.|) ^2)))
by A5, A17, TOPRNS_1:24, XCMPLX_1:89
.=
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| * (sqrt (1 - (((p2 `2) ^2) / (|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| ^2))))
by XCMPLX_1:76
.=
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| * (sqrt (((|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| ^2) / (|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| ^2)) - (((p2 `2) ^2) / (|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| ^2))))
by A10, A16, XCMPLX_1:60
.=
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| * (sqrt (((|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| ^2) - ((p2 `2) ^2)) / (|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| ^2)))
by XCMPLX_1:120
.=
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| * (sqrt (((((p2 `1) ^2) + ((p2 `2) ^2)) - ((p2 `2) ^2)) / (|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| ^2)))
by A16, JGRAPH_3:1
.=
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 - sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 - sn)) + sn))]|.| * (sqrt (((p2 `1) / |.p2.|) ^2))
by A17, XCMPLX_1:76
;
hence
ex
x being
set st
(
x in dom (sn -FanMorphE) &
y = (sn -FanMorphE) . x )
by A19, A21, A20, A11, EUCLID:53;
verum end; suppose A22:
(
(p2 `2) / |.p2.| < 0 &
p2 `1 >= 0 &
p2 <> 0. (TOP-REAL 2) )
;
ex x being set st
( x in dom (sn -FanMorphE) & y = (sn -FanMorphE) . x )A23:
1
+ sn >= 0
by A1, XREAL_1:148;
1
- sn > 0
by A2, XREAL_1:149;
then A24:
(1 - sn) + sn >= (((p2 `2) / |.p2.|) * (1 + sn)) + sn
by A22, A23, XREAL_1:7;
A25:
1
+ sn > 0
by A1, XREAL_1:148;
|.p2.| <> 0
by A22, TOPRNS_1:24;
then A26:
|.p2.| ^2 > 0
by SQUARE_1:12;
0 <= (p2 `1) ^2
by XREAL_1:63;
then
(
|.p2.| ^2 = ((p2 `1) ^2) + ((p2 `2) ^2) &
0 + ((p2 `2) ^2) <= ((p2 `1) ^2) + ((p2 `2) ^2) )
by JGRAPH_3:1, XREAL_1:7;
then
((p2 `2) ^2) / (|.p2.| ^2) <= (|.p2.| ^2) / (|.p2.| ^2)
by XREAL_1:72;
then
((p2 `2) ^2) / (|.p2.| ^2) <= 1
by A26, XCMPLX_1:60;
then
((p2 `2) / |.p2.|) ^2 <= 1
by XCMPLX_1:76;
then
(p2 `2) / |.p2.| >= - 1
by SQUARE_1:51;
then
((p2 `2) / |.p2.|) * (1 + sn) >= (- 1) * (1 + sn)
by A25, XREAL_1:64;
then
((((p2 `2) / |.p2.|) * (1 + sn)) + sn) - sn >= (- 1) - sn
;
then
(((p2 `2) / |.p2.|) * (1 + sn)) + sn >= - 1
by XREAL_1:9;
then
1
^2 >= ((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2
by A24, SQUARE_1:49;
then A27:
1
- (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2) >= 0
by XREAL_1:48;
then A28:
sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)) >= 0
by SQUARE_1:def 2;
A29:
dom (sn -FanMorphE) = the
carrier of
(TOP-REAL 2)
by FUNCT_2:def 1;
set px =
|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|;
A30:
|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]| `2 = |.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn)
by EUCLID:52;
A31:
|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]| `1 = |.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))
by EUCLID:52;
then |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| ^2 =
((|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))) ^2) + ((|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn)) ^2)
by A30, JGRAPH_3:1
.=
((|.p2.| ^2) * ((sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2))) ^2)) + ((|.p2.| ^2) * (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2))
;
then A32:
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| ^2 =
((|.p2.| ^2) * (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2))) + ((|.p2.| ^2) * (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2))
by A27, SQUARE_1:def 2
.=
|.p2.| ^2
;
then A33:
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| =
sqrt (|.p2.| ^2)
by SQUARE_1:22
.=
|.p2.|
by SQUARE_1:22
;
then A34:
|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]| <> 0. (TOP-REAL 2)
by A22, TOPRNS_1:23, TOPRNS_1:24;
(((p2 `2) / |.p2.|) * (1 + sn)) + sn <= 0 + sn
by A22, A23, XREAL_1:7;
then
(|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]| `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| <= sn
by A22, A30, A33, TOPRNS_1:24, XCMPLX_1:89;
then A35:
(sn -FanMorphE) . |[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]| = |[(|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| * (sqrt (1 - (((((|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]| `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.|) - sn) / (1 + sn)) ^2)))),(|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| * ((((|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]| `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.|) - sn) / (1 + sn)))]|
by A1, A2, A31, A28, A34, Th84;
A36:
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| * (sqrt (((p2 `1) / |.p2.|) ^2)) =
|.p2.| * ((p2 `1) / |.p2.|)
by A22, A33, SQUARE_1:22
.=
p2 `1
by A22, TOPRNS_1:24, XCMPLX_1:87
;
A37:
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| * ((((|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]| `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.|) - sn) / (1 + sn)) =
|.p2.| * ((((((p2 `2) / |.p2.|) * (1 + sn)) + sn) - sn) / (1 + sn))
by A22, A30, A33, TOPRNS_1:24, XCMPLX_1:89
.=
|.p2.| * ((p2 `2) / |.p2.|)
by A25, XCMPLX_1:89
.=
p2 `2
by A22, TOPRNS_1:24, XCMPLX_1:87
;
then |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| * (sqrt (1 - (((((|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]| `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.|) - sn) / (1 + sn)) ^2))) =
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| * (sqrt (1 - (((p2 `2) / |.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.|) ^2)))
by A22, A33, TOPRNS_1:24, XCMPLX_1:89
.=
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| * (sqrt (1 - (((p2 `2) ^2) / (|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| ^2))))
by XCMPLX_1:76
.=
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| * (sqrt (((|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| ^2) / (|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| ^2)) - (((p2 `2) ^2) / (|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| ^2))))
by A26, A32, XCMPLX_1:60
.=
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| * (sqrt (((|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| ^2) - ((p2 `2) ^2)) / (|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| ^2)))
by XCMPLX_1:120
.=
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| * (sqrt (((((p2 `1) ^2) + ((p2 `2) ^2)) - ((p2 `2) ^2)) / (|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| ^2)))
by A32, JGRAPH_3:1
.=
|.|[(|.p2.| * (sqrt (1 - (((((p2 `2) / |.p2.|) * (1 + sn)) + sn) ^2)))),(|.p2.| * ((((p2 `2) / |.p2.|) * (1 + sn)) + sn))]|.| * (sqrt (((p2 `1) / |.p2.|) ^2))
by A33, XCMPLX_1:76
;
hence
ex
x being
set st
(
x in dom (sn -FanMorphE) &
y = (sn -FanMorphE) . x )
by A35, A37, A36, A29, EUCLID:53;
verum end; end; end;
hence
y in rng f
by A3, FUNCT_1:def 3;
verum
end;
hence
rng (sn -FanMorphE) = the
carrier of
(TOP-REAL 2)
by A3, XBOOLE_0:def 10;
verum
end;
hence
rng (sn -FanMorphE) = the carrier of (TOP-REAL 2)
; verum