:: TOPREALB semantic presentation
set P2 = 2 * PI ;
set o = |[0,0]|;
set R = the carrier of R^1 ;
Lemma36:
0 in INT
by INT_1:def 1;
reconsider p0 = - 1 as negative real number ;
reconsider p1 = 1 as positive real number ;
set CIT = Closed-Interval-TSpace (- 1),1;
set cCIT = the carrier of (Closed-Interval-TSpace (- 1),1);
Lemma41:
the carrier of (Closed-Interval-TSpace (- 1),1) = [.(- 1),1.]
by TOPMETR:25;
Lemma42:
1 - 0 <= 1
;
Lemma43:
(3 / 2) - (1 / 2) <= 1
;
Lemma50:
PI / 2 < PI / 1
by REAL_2:200;
Lemma51:
1 * PI < (3 / 2) * PI
by XREAL_1:70;
Lemma52:
(3 / 2) * PI < 2 * PI
by XREAL_1:70;
Lemma53:
dom sin = REAL
by SIN_COS:def 20;
Lemma54:
for X being non empty TopSpace
for Y being non empty SubSpace of X
for Z being non empty SubSpace of Y
for p being Point of Z holds p is Point of X
Lemma59:
for X being TopSpace
for Y being SubSpace of X
for Z being SubSpace of Y
for A being Subset of Z holds A is Subset of X
theorem Th1: :: TOPREALB:1
theorem Th2: :: TOPREALB:2
:: deftheorem Def1 defines IntIntervals TOPREALB:def 1 :
theorem Th3: :: TOPREALB:3
theorem Th4: :: TOPREALB:4
:: deftheorem Def2 defines R^1 TOPREALB:def 2 :
:: deftheorem Def3 defines R^1 TOPREALB:def 3 :
:: deftheorem Def4 defines R^1 TOPREALB:def 4 :
theorem Th5: :: TOPREALB:5
theorem Th6: :: TOPREALB:6
theorem Th7: :: TOPREALB:7
theorem Th8: :: TOPREALB:8
Lemma84:
sin is Function of R^1 ,R^1
Lemma85:
cos is Function of R^1 ,R^1
set A = R^1 ].0,1.[;
:: deftheorem Def5 defines being_simple_closed_curve TOPREALB:def 5 :
:: deftheorem Def6 defines Tcircle TOPREALB:def 6 :
theorem Th9: :: TOPREALB:9
theorem Th10: :: TOPREALB:10
theorem Th11: :: TOPREALB:11
:: deftheorem Def7 defines Tunit_circle TOPREALB:def 7 :
set TUC = Tunit_circle 2;
set cS1 = the carrier of (Tunit_circle 2);
Lemma104:
the carrier of (Tunit_circle 2) = Sphere |[0,0]|,1
by , EUCLID:58;
theorem Th12: :: TOPREALB:12
theorem Th13: :: TOPREALB:13
theorem Th14: :: TOPREALB:14
theorem Th15: :: TOPREALB:15
theorem Th16: :: TOPREALB:16
theorem Th17: :: TOPREALB:17
set TREC = Trectangle p0,p1,p0,p1;
theorem Th18: :: TOPREALB:18
theorem Th19: :: TOPREALB:19
Lemma138:
for n being non empty Element of NAT
for r being positive real number
for x being Point of (TOP-REAL n) holds Tunit_circle n, Tcircle x,r are_homeomorphic
theorem Th20: :: TOPREALB:20
:: deftheorem Def8 defines c[10] TOPREALB:def 8 :
:: deftheorem Def9 defines c[-10] TOPREALB:def 9 :
theorem Th21: :: TOPREALB:21
:: deftheorem Def10 defines Topen_unit_circle TOPREALB:def 10 :
theorem Th22: :: TOPREALB:22
theorem Th23: :: TOPREALB:23
theorem Th24: :: TOPREALB:24
theorem Th25: :: TOPREALB:25
theorem Th26: :: TOPREALB:26
set TOUC = Topen_unit_circle c[10] ;
set TOUCm = Topen_unit_circle c[-10] ;
set X = the carrier of (Topen_unit_circle c[10] );
set Xm = the carrier of (Topen_unit_circle c[-10] );
set Y = the carrier of (R^1 | (R^1 ].0,(0 + p1).[));
set Ym = the carrier of (R^1 | (R^1 ].(1 / 2),((1 / 2) + p1).[));
Lemma153:
the carrier of (Topen_unit_circle c[10] ) = [#] (Topen_unit_circle c[10] )
;
Lemma154:
the carrier of (Topen_unit_circle c[-10] ) = [#] (Topen_unit_circle c[-10] )
;
theorem Th27: :: TOPREALB:27
theorem Th28: :: TOPREALB:28
theorem Th29: :: TOPREALB:29
theorem Th30: :: TOPREALB:30
theorem Th31: :: TOPREALB:31
:: deftheorem Def11 defines CircleMap TOPREALB:def 11 :
Lemma164:
dom CircleMap = REAL
by FUNCT_2:def 1, TOPMETR:24;
theorem Th32: :: TOPREALB:32
theorem Th33: :: TOPREALB:33
theorem Th34: :: TOPREALB:34
Lemma168:
CircleMap . (1 / 2) = |[(- 1),0]|
Lemma169:
CircleMap . 1 = |[1,0]|
by ;
theorem Th35: :: TOPREALB:35
theorem Th36: :: TOPREALB:36
theorem Th37: :: TOPREALB:37
Lemma171:
for r being real number holds CircleMap . r = |[((cos * (AffineMap (2 * PI ),0)) . r),((sin * (AffineMap (2 * PI ),0)) . r)]|
theorem Th38: :: TOPREALB:38
Lemma183:
for A being Subset of R^1 holds CircleMap | A is Function of (R^1 | A),(Tunit_circle 2)
Lemma184:
for r being real number st - 1 <= r & r <= 1 holds
( 0 <= (arccos r) / (2 * PI ) & (arccos r) / (2 * PI ) <= 1 / 2 )
theorem Th39: :: TOPREALB:39
Lemma188:
CircleMap | [.0,1.[ is one-to-one
theorem Th40: :: TOPREALB:40
theorem Th41: :: TOPREALB:41
:: deftheorem Def12 defines CircleMap TOPREALB:def 12 :
Lemma202:
for a, r being real number holds rng ((AffineMap 1,(- a)) | ].(r + a),((r + a) + 1).[) = ].r,(r + 1).[
theorem Th42: :: TOPREALB:42
definition
func Circle2IntervalR -> Function of
(Topen_unit_circle c[10] ),
(R^1 | (R^1 ].0,1.[)) means :
Def13:
:: TOPREALB:def 13
for
p being
Point of
(Topen_unit_circle c[10] ) ex
x,
y being
real number st
(
p = |[x,y]| & (
y >= 0 implies
it . p = (arccos x) / (2 * PI ) ) & (
y <= 0 implies
it . p = 1
- ((arccos x) / (2 * PI )) ) );
existence
ex b1 being Function of (Topen_unit_circle c[10] ),(R^1 | (R^1 ].0,1.[)) st
for p being Point of (Topen_unit_circle c[10] ) ex x, y being real number st
( p = |[x,y]| & ( y >= 0 implies b1 . p = (arccos x) / (2 * PI ) ) & ( y <= 0 implies b1 . p = 1 - ((arccos x) / (2 * PI )) ) )
uniqueness
for b1, b2 being Function of (Topen_unit_circle c[10] ),(R^1 | (R^1 ].0,1.[)) st ( for p being Point of (Topen_unit_circle c[10] ) ex x, y being real number st
( p = |[x,y]| & ( y >= 0 implies b1 . p = (arccos x) / (2 * PI ) ) & ( y <= 0 implies b1 . p = 1 - ((arccos x) / (2 * PI )) ) ) ) & ( for p being Point of (Topen_unit_circle c[10] ) ex x, y being real number st
( p = |[x,y]| & ( y >= 0 implies b2 . p = (arccos x) / (2 * PI ) ) & ( y <= 0 implies b2 . p = 1 - ((arccos x) / (2 * PI )) ) ) ) holds
b1 = b2
end;
:: deftheorem Def13 defines Circle2IntervalR TOPREALB:def 13 :
set A1 = R^1 ].(1 / 2),((1 / 2) + p1).[;
definition
func Circle2IntervalL -> Function of
(Topen_unit_circle c[-10] ),
(R^1 | (R^1 ].(1 / 2),(3 / 2).[)) means :
Def14:
:: TOPREALB:def 14
for
p being
Point of
(Topen_unit_circle c[-10] ) ex
x,
y being
real number st
(
p = |[x,y]| & (
y >= 0 implies
it . p = 1
+ ((arccos x) / (2 * PI )) ) & (
y <= 0 implies
it . p = 1
- ((arccos x) / (2 * PI )) ) );
existence
ex b1 being Function of (Topen_unit_circle c[-10] ),(R^1 | (R^1 ].(1 / 2),(3 / 2).[)) st
for p being Point of (Topen_unit_circle c[-10] ) ex x, y being real number st
( p = |[x,y]| & ( y >= 0 implies b1 . p = 1 + ((arccos x) / (2 * PI )) ) & ( y <= 0 implies b1 . p = 1 - ((arccos x) / (2 * PI )) ) )
uniqueness
for b1, b2 being Function of (Topen_unit_circle c[-10] ),(R^1 | (R^1 ].(1 / 2),(3 / 2).[)) st ( for p being Point of (Topen_unit_circle c[-10] ) ex x, y being real number st
( p = |[x,y]| & ( y >= 0 implies b1 . p = 1 + ((arccos x) / (2 * PI )) ) & ( y <= 0 implies b1 . p = 1 - ((arccos x) / (2 * PI )) ) ) ) & ( for p being Point of (Topen_unit_circle c[-10] ) ex x, y being real number st
( p = |[x,y]| & ( y >= 0 implies b2 . p = 1 + ((arccos x) / (2 * PI )) ) & ( y <= 0 implies b2 . p = 1 - ((arccos x) / (2 * PI )) ) ) ) holds
b1 = b2
end;
:: deftheorem Def14 defines Circle2IntervalL TOPREALB:def 14 :
set C = Circle2IntervalR ;
set Cm = Circle2IntervalL ;
theorem Th43: :: TOPREALB:43
theorem Th44: :: TOPREALB:44
set A = ].0,1.[;
set Q = [.(- 1),1.[;
set E = ].0,PI .];
set j = 1 / (2 * PI );
reconsider Q = [.(- 1),1.[, E = ].0,PI .] as non empty Subset of REAL ;
Lemma213:
the carrier of (R^1 | (R^1 Q)) = R^1 Q
by PRE_TOPC:29;
Lemma214:
the carrier of (R^1 | (R^1 E)) = R^1 E
by PRE_TOPC:29;
Lemma215:
the carrier of (R^1 | (R^1 ].0,1.[)) = R^1 ].0,1.[
by PRE_TOPC:29;
set Af = (AffineMap (1 / (2 * PI )),0) | (R^1 E);
dom (AffineMap (1 / (2 * PI )),0) = the carrier of R^1
by FUNCT_2:def 1, TOPMETR:24;
then Lemma217:
dom ((AffineMap (1 / (2 * PI )),0) | (R^1 E)) = R^1 E
by RELAT_1:91;
rng ((AffineMap (1 / (2 * PI )),0) | (R^1 E)) c= ].0,1.[
then reconsider Af = (AffineMap (1 / (2 * PI )),0) | (R^1 E) as Function of (R^1 | (R^1 E)),(R^1 | (R^1 ].0,1.[)) by , , , FUNCT_2:4;
Lemma218:
R^1 (AffineMap (1 / (2 * PI )),0) = AffineMap (1 / (2 * PI )),0
;
Lemma219:
dom (AffineMap (1 / (2 * PI )),0) = REAL
by FUNCT_2:def 1;
Lemma220:
rng (AffineMap (1 / (2 * PI )),0) = REAL
by JORDAN16:32;
Lemma221:
[#] R^1 = REAL
by TOPMETR:24;
R^1 | ([#] R^1 ) = R^1
by TSEP_1:3;
then
( R^1 = R^1 | (R^1 (dom (AffineMap (1 / (2 * PI )),0))) & R^1 = R^1 | (R^1 (rng (AffineMap (1 / (2 * PI )),0))) )
by , , ;
then reconsider Af = Af as continuous Function of (R^1 | (R^1 E)),(R^1 | (R^1 ].0,1.[)) by , TOPREALA:29;
set L = (R^1 (AffineMap (- 1),1)) | (R^1 ].0,1.[);
Lemma223:
dom (AffineMap (- 1),1) = REAL
by FUNCT_2:def 1;
then Lemma224:
dom ((R^1 (AffineMap (- 1),1)) | (R^1 ].0,1.[)) = ].0,1.[
by RELAT_1:91;
rng ((R^1 (AffineMap (- 1),1)) | (R^1 ].0,1.[)) c= ].0,1.[
then reconsider L = (R^1 (AffineMap (- 1),1)) | (R^1 ].0,1.[) as Function of (R^1 | (R^1 ].0,1.[)),(R^1 | (R^1 ].0,1.[)) by , , FUNCT_2:4;
Lemma225:
rng (AffineMap (- 1),1) = REAL
by JORDAN16:32;
Lemma226:
[#] R^1 = REAL
by TOPMETR:24;
Lemma227:
R^1 | ([#] R^1 ) = R^1
by TSEP_1:3;
then
( R^1 = R^1 | (R^1 (dom (AffineMap (- 1),1))) & R^1 = R^1 | (R^1 (rng (AffineMap (- 1),1))) )
by , , ;
then reconsider L = L as continuous Function of (R^1 | (R^1 ].0,1.[)),(R^1 | (R^1 ].0,1.[)) by TOPREALA:29;
reconsider ac = R^1 arccos as continuous Function of (R^1 | (R^1 [.(- 1),1.])),(R^1 | (R^1 [.0,PI .])) by SIN_COS6:87, SIN_COS6:88;
set c = ac | (R^1 Q);
Q c= [.(- 1),1.]
by TOPREALA:11;
then Lemma229:
dom (ac | (R^1 Q)) = Q
by RELAT_1:91, SIN_COS6:88;
Lemma230:
rng (ac | (R^1 Q)) c= E
then reconsider c = ac | (R^1 Q) as Function of (R^1 | (R^1 Q)),(R^1 | (R^1 E)) by Th2, , , FUNCT_2:4;
the carrier of (R^1 | (R^1 [.(- 1),1.])) = [.(- 1),1.]
by PRE_TOPC:29;
then reconsider QQ = R^1 Q as Subset of (R^1 | (R^1 [.(- 1),1.])) by TOPREALA:11;
the carrier of (R^1 | (R^1 [.0,PI .])) = [.0,PI .]
by PRE_TOPC:29;
then reconsider EE = R^1 E as Subset of (R^1 | (R^1 [.0,PI .])) by TOPREALA:15;
( (R^1 | (R^1 [.(- 1),1.])) | QQ = R^1 | (R^1 Q) & (R^1 | (R^1 [.0,PI .])) | EE = R^1 | (R^1 E) )
by GOBOARD9:4;
then Lemma233:
c is continuous
by TOPREALA:29;
reconsider p = proj1 as Function of (TOP-REAL 2),R^1 by TOPMETR:24;
Lemma234:
dom p = the carrier of (TOP-REAL 2)
by FUNCT_2:def 1;
Lemma235:
p is continuous
by TOPREAL6:83;
Lemma236:
for aX1 being Subset of (Topen_unit_circle c[10] ) st aX1 = { q where q is Point of (TOP-REAL 2) : ( q in the carrier of (Topen_unit_circle c[10] ) & 0 <= q `2 ) } holds
Circle2IntervalR | ((Topen_unit_circle c[10] ) | aX1) is continuous
Lemma240:
for aX1 being Subset of (Topen_unit_circle c[10] ) st aX1 = { q where q is Point of (TOP-REAL 2) : ( q in the carrier of (Topen_unit_circle c[10] ) & 0 >= q `2 ) } holds
Circle2IntervalR | ((Topen_unit_circle c[10] ) | aX1) is continuous
Lemma241:
for p being Point of (Topen_unit_circle c[10] ) st p = c[-10] holds
Circle2IntervalR is_continuous_at p
set h1 = REAL --> 1;
Lemma245:
dom (REAL --> 1) = REAL
by FUNCOP_1:19;
rng (REAL --> 1) c= REAL
by XBOOLE_1:1;
then reconsider h1 = REAL --> 1 as PartFunc of REAL , REAL by Lemma84, RELSET_1:11;
Lemma246:
Circle2IntervalR is continuous
set A = ].(1 / 2),((1 / 2) + p1).[;
set Q = ].(- 1),1.];
set E = [.0,PI .[;
reconsider Q = ].(- 1),1.], E = [.0,PI .[ as non empty Subset of REAL ;
Lemma276:
the carrier of (R^1 | (R^1 Q)) = R^1 Q
by PRE_TOPC:29;
Lemma277:
the carrier of (R^1 | (R^1 E)) = R^1 E
by PRE_TOPC:29;
Lemma278:
the carrier of (R^1 | (R^1 ].(1 / 2),((1 / 2) + p1).[)) = R^1 ].(1 / 2),((1 / 2) + p1).[
by PRE_TOPC:29;
set Af = (AffineMap (- (1 / (2 * PI ))),1) | (R^1 E);
dom (AffineMap (- (1 / (2 * PI ))),1) = the carrier of R^1
by FUNCT_2:def 1, TOPMETR:24;
then Lemma279:
dom ((AffineMap (- (1 / (2 * PI ))),1) | (R^1 E)) = R^1 E
by RELAT_1:91;
rng ((AffineMap (- (1 / (2 * PI ))),1) | (R^1 E)) c= ].(1 / 2),((1 / 2) + p1).[
then reconsider Af = (AffineMap (- (1 / (2 * PI ))),1) | (R^1 E) as Function of (R^1 | (R^1 E)),(R^1 | (R^1 ].(1 / 2),((1 / 2) + p1).[)) by , , , FUNCT_2:4;
Lemma280:
R^1 (AffineMap (- (1 / (2 * PI ))),1) = AffineMap (- (1 / (2 * PI ))),1
;
Lemma281:
dom (AffineMap (- (1 / (2 * PI ))),1) = REAL
by FUNCT_2:def 1;
rng (AffineMap (- (1 / (2 * PI ))),1) = REAL
by JORDAN16:32;
then
( R^1 = R^1 | (R^1 (dom (AffineMap (- (1 / (2 * PI ))),1))) & R^1 = R^1 | (R^1 (rng (AffineMap (- (1 / (2 * PI ))),1))) )
by , , ;
then reconsider Af = Af as continuous Function of (R^1 | (R^1 E)),(R^1 | (R^1 ].(1 / 2),((1 / 2) + p1).[)) by , TOPREALA:29;
set Af1 = (AffineMap (1 / (2 * PI )),1) | (R^1 E);
dom (AffineMap (1 / (2 * PI )),1) = the carrier of R^1
by FUNCT_2:def 1, TOPMETR:24;
then Lemma283:
dom ((AffineMap (1 / (2 * PI )),1) | (R^1 E)) = R^1 E
by RELAT_1:91;
rng ((AffineMap (1 / (2 * PI )),1) | (R^1 E)) c= ].(1 / 2),((1 / 2) + p1).[
then reconsider Af1 = (AffineMap (1 / (2 * PI )),1) | (R^1 E) as Function of (R^1 | (R^1 E)),(R^1 | (R^1 ].(1 / 2),((1 / 2) + p1).[)) by , , , FUNCT_2:4;
Lemma284:
R^1 (AffineMap (1 / (2 * PI )),1) = AffineMap (1 / (2 * PI )),1
;
Lemma285:
dom (AffineMap (1 / (2 * PI )),1) = REAL
by FUNCT_2:def 1;
rng (AffineMap (1 / (2 * PI )),1) = REAL
by JORDAN16:32;
then
( R^1 = R^1 | (R^1 (dom (AffineMap (1 / (2 * PI )),1))) & R^1 = R^1 | (R^1 (rng (AffineMap (1 / (2 * PI )),1))) )
by , , ;
then reconsider Af1 = Af1 as continuous Function of (R^1 | (R^1 E)),(R^1 | (R^1 ].(1 / 2),((1 / 2) + p1).[)) by Lemma93, TOPREALA:29;
set c = ac | (R^1 Q);
Q c= [.(- 1),1.]
by TOPREALA:15;
then Lemma286:
dom (ac | (R^1 Q)) = Q
by RELAT_1:91, SIN_COS6:88;
Lemma287:
rng (ac | (R^1 Q)) c= E
then reconsider c = ac | (R^1 Q) as Function of (R^1 | (R^1 Q)),(R^1 | (R^1 E)) by , , Def5, FUNCT_2:4;
the carrier of (R^1 | (R^1 [.(- 1),1.])) = [.(- 1),1.]
by PRE_TOPC:29;
then reconsider QQ = R^1 Q as Subset of (R^1 | (R^1 [.(- 1),1.])) by TOPREALA:15;
the carrier of (R^1 | (R^1 [.0,PI .])) = [.0,PI .]
by PRE_TOPC:29;
then reconsider EE = R^1 E as Subset of (R^1 | (R^1 [.0,PI .])) by TOPREALA:11;
( (R^1 | (R^1 [.(- 1),1.])) | QQ = R^1 | (R^1 Q) & (R^1 | (R^1 [.0,PI .])) | EE = R^1 | (R^1 E) )
by GOBOARD9:4;
then Lemma288:
c is continuous
by TOPREALA:29;
Lemma289:
for aX1 being Subset of (Topen_unit_circle c[-10] ) st aX1 = { q where q is Point of (TOP-REAL 2) : ( q in the carrier of (Topen_unit_circle c[-10] ) & 0 <= q `2 ) } holds
Circle2IntervalL | ((Topen_unit_circle c[-10] ) | aX1) is continuous
Lemma290:
for aX1 being Subset of (Topen_unit_circle c[-10] ) st aX1 = { q where q is Point of (TOP-REAL 2) : ( q in the carrier of (Topen_unit_circle c[-10] ) & 0 >= q `2 ) } holds
Circle2IntervalL | ((Topen_unit_circle c[-10] ) | aX1) is continuous
Lemma291:
for p being Point of (Topen_unit_circle c[-10] ) st p = c[10] holds
Circle2IntervalL is_continuous_at p
Lemma292:
Circle2IntervalL is continuous
Lemma294:
CircleMap (R^1 0) is open
Lemma295:
CircleMap (R^1 (1 / 2)) is open
by , Th1, TOPREALA:35;
theorem Th45: :: TOPREALB:45
canceled;
theorem Th46: :: TOPREALB:46
theorem Th47: :: TOPREALB:47
canceled;
theorem Th48: :: TOPREALB:48
canceled;
theorem Th49: :: TOPREALB:49
ex
F being
Subset-Family of
(Tunit_circle 2) st
(
F = {(CircleMap .: ].0,1.[),(CircleMap .: ].(1 / 2),(3 / 2).[)} &
F is_a_cover_of Tunit_circle 2 &
F is
open & ( for
U being
Subset of
(Tunit_circle 2) holds
( (
U = CircleMap .: ].0,1.[ implies (
union (IntIntervals 0,1) = CircleMap " U & ( for
d being
Subset of
R^1 st
d in IntIntervals 0,1 holds
for
f being
Function of
(R^1 | d),
((Tunit_circle 2) | U) st
f = CircleMap | d holds
f is_homeomorphism ) ) ) & (
U = CircleMap .: ].(1 / 2),(3 / 2).[ implies (
union (IntIntervals (1 / 2),(3 / 2)) = CircleMap " U & ( for
d being
Subset of
R^1 st
d in IntIntervals (1 / 2),
(3 / 2) holds
for
f being
Function of
(R^1 | d),
((Tunit_circle 2) | U) st
f = CircleMap | d holds
f is_homeomorphism ) ) ) ) ) )