Step | Hyp | Ref
| Expression |
1 | | abelth.1 |
. . . 4
β’ (π β π΄:β0βΆβ) |
2 | | abelth.2 |
. . . 4
β’ (π β seq0( + , π΄) β dom β
) |
3 | | abelth.3 |
. . . 4
β’ (π β π β β) |
4 | | abelth.4 |
. . . 4
β’ (π β 0 β€ π) |
5 | | abelth.5 |
. . . 4
β’ π = {π§ β β β£ (absβ(1 β
π§)) β€ (π Β· (1 β (absβπ§)))} |
6 | | abelth.6 |
. . . 4
β’ πΉ = (π₯ β π β¦ Ξ£π β β0 ((π΄βπ) Β· (π₯βπ))) |
7 | 1, 2, 3, 4, 5, 6 | abelthlem4 25938 |
. . 3
β’ (π β πΉ:πβΆβ) |
8 | 1, 2, 3, 4, 5, 6 | abelthlem9 25944 |
. . . . . . . . . 10
β’ ((π β§ π β β+) β
βπ€ β
β+ βπ¦ β π ((absβ(1 β π¦)) < π€ β (absβ((πΉβ1) β (πΉβπ¦))) < π)) |
9 | 1, 2, 3, 4, 5 | abelthlem2 25936 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (1 β π β§ (π β {1}) β (0(ballβ(abs
β β ))1))) |
10 | 9 | simpld 496 |
. . . . . . . . . . . . . . . . 17
β’ (π β 1 β π) |
11 | 10 | ad2antrr 725 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β+) β§ π¦ β π) β 1 β π) |
12 | | simpr 486 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β+) β§ π¦ β π) β π¦ β π) |
13 | 11, 12 | ovresd 7571 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β+) β§ π¦ β π) β (1((abs β β ) βΎ
(π Γ π))π¦) = (1(abs β β )π¦)) |
14 | | ax-1cn 11165 |
. . . . . . . . . . . . . . . 16
β’ 1 β
β |
15 | 5 | ssrab3 4080 |
. . . . . . . . . . . . . . . . 17
β’ π β
β |
16 | 15, 12 | sselid 3980 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β+) β§ π¦ β π) β π¦ β β) |
17 | | eqid 2733 |
. . . . . . . . . . . . . . . . 17
β’ (abs
β β ) = (abs β β ) |
18 | 17 | cnmetdval 24279 |
. . . . . . . . . . . . . . . 16
β’ ((1
β β β§ π¦
β β) β (1(abs β β )π¦) = (absβ(1 β π¦))) |
19 | 14, 16, 18 | sylancr 588 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β+) β§ π¦ β π) β (1(abs β β )π¦) = (absβ(1 β π¦))) |
20 | 13, 19 | eqtrd 2773 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β+) β§ π¦ β π) β (1((abs β β ) βΎ
(π Γ π))π¦) = (absβ(1 β π¦))) |
21 | 20 | breq1d 5158 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β+) β§ π¦ β π) β ((1((abs β β ) βΎ
(π Γ π))π¦) < π€ β (absβ(1 β π¦)) < π€)) |
22 | 7 | ad2antrr 725 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β+) β§ π¦ β π) β πΉ:πβΆβ) |
23 | 22, 11 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β+) β§ π¦ β π) β (πΉβ1) β β) |
24 | 7 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β+) β πΉ:πβΆβ) |
25 | 24 | ffvelcdmda 7084 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β+) β§ π¦ β π) β (πΉβπ¦) β β) |
26 | 17 | cnmetdval 24279 |
. . . . . . . . . . . . . . 15
β’ (((πΉβ1) β β β§
(πΉβπ¦) β β) β ((πΉβ1)(abs β β )(πΉβπ¦)) = (absβ((πΉβ1) β (πΉβπ¦)))) |
27 | 23, 25, 26 | syl2anc 585 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β+) β§ π¦ β π) β ((πΉβ1)(abs β β )(πΉβπ¦)) = (absβ((πΉβ1) β (πΉβπ¦)))) |
28 | 27 | breq1d 5158 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β+) β§ π¦ β π) β (((πΉβ1)(abs β β )(πΉβπ¦)) < π β (absβ((πΉβ1) β (πΉβπ¦))) < π)) |
29 | 21, 28 | imbi12d 345 |
. . . . . . . . . . . 12
β’ (((π β§ π β β+) β§ π¦ β π) β (((1((abs β β ) βΎ
(π Γ π))π¦) < π€ β ((πΉβ1)(abs β β )(πΉβπ¦)) < π) β ((absβ(1 β π¦)) < π€ β (absβ((πΉβ1) β (πΉβπ¦))) < π))) |
30 | 29 | ralbidva 3176 |
. . . . . . . . . . 11
β’ ((π β§ π β β+) β
(βπ¦ β π ((1((abs β β )
βΎ (π Γ π))π¦) < π€ β ((πΉβ1)(abs β β )(πΉβπ¦)) < π) β βπ¦ β π ((absβ(1 β π¦)) < π€ β (absβ((πΉβ1) β (πΉβπ¦))) < π))) |
31 | 30 | rexbidv 3179 |
. . . . . . . . . 10
β’ ((π β§ π β β+) β
(βπ€ β
β+ βπ¦ β π ((1((abs β β ) βΎ (π Γ π))π¦) < π€ β ((πΉβ1)(abs β β )(πΉβπ¦)) < π) β βπ€ β β+ βπ¦ β π ((absβ(1 β π¦)) < π€ β (absβ((πΉβ1) β (πΉβπ¦))) < π))) |
32 | 8, 31 | mpbird 257 |
. . . . . . . . 9
β’ ((π β§ π β β+) β
βπ€ β
β+ βπ¦ β π ((1((abs β β ) βΎ (π Γ π))π¦) < π€ β ((πΉβ1)(abs β β )(πΉβπ¦)) < π)) |
33 | 32 | ralrimiva 3147 |
. . . . . . . 8
β’ (π β βπ β β+ βπ€ β β+
βπ¦ β π ((1((abs β β )
βΎ (π Γ π))π¦) < π€ β ((πΉβ1)(abs β β )(πΉβπ¦)) < π)) |
34 | | cnxmet 24281 |
. . . . . . . . . 10
β’ (abs
β β ) β (βMetββ) |
35 | | xmetres2 23859 |
. . . . . . . . . 10
β’ (((abs
β β ) β (βMetββ) β§ π β β) β ((abs β
β ) βΎ (π
Γ π)) β
(βMetβπ)) |
36 | 34, 15, 35 | mp2an 691 |
. . . . . . . . 9
β’ ((abs
β β ) βΎ (π Γ π)) β (βMetβπ) |
37 | | eqid 2733 |
. . . . . . . . . . . 12
β’ ((abs
β β ) βΎ (π Γ π)) = ((abs β β ) βΎ (π Γ π)) |
38 | | eqid 2733 |
. . . . . . . . . . . . 13
β’
(TopOpenββfld) =
(TopOpenββfld) |
39 | 38 | cnfldtopn 24290 |
. . . . . . . . . . . 12
β’
(TopOpenββfld) = (MetOpenβ(abs β
β )) |
40 | | eqid 2733 |
. . . . . . . . . . . 12
β’
(MetOpenβ((abs β β ) βΎ (π Γ π))) = (MetOpenβ((abs β β )
βΎ (π Γ π))) |
41 | 37, 39, 40 | metrest 24025 |
. . . . . . . . . . 11
β’ (((abs
β β ) β (βMetββ) β§ π β β) β
((TopOpenββfld) βΎt π) = (MetOpenβ((abs β β )
βΎ (π Γ π)))) |
42 | 34, 15, 41 | mp2an 691 |
. . . . . . . . . 10
β’
((TopOpenββfld) βΎt π) = (MetOpenβ((abs β
β ) βΎ (π
Γ π))) |
43 | 42, 39 | metcnp 24042 |
. . . . . . . . 9
β’ ((((abs
β β ) βΎ (π Γ π)) β (βMetβπ) β§ (abs β β )
β (βMetββ) β§ 1 β π) β (πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))β1) β (πΉ:πβΆβ β§ βπ β β+
βπ€ β
β+ βπ¦ β π ((1((abs β β ) βΎ (π Γ π))π¦) < π€ β ((πΉβ1)(abs β β )(πΉβπ¦)) < π)))) |
44 | 36, 34, 10, 43 | mp3an12i 1466 |
. . . . . . . 8
β’ (π β (πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))β1) β (πΉ:πβΆβ β§ βπ β β+
βπ€ β
β+ βπ¦ β π ((1((abs β β ) βΎ (π Γ π))π¦) < π€ β ((πΉβ1)(abs β β )(πΉβπ¦)) < π)))) |
45 | 7, 33, 44 | mpbir2and 712 |
. . . . . . 7
β’ (π β πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))β1)) |
46 | 45 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π¦ β π) β§ π¦ = 1) β πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))β1)) |
47 | | simpr 486 |
. . . . . . 7
β’ (((π β§ π¦ β π) β§ π¦ = 1) β π¦ = 1) |
48 | 47 | fveq2d 6893 |
. . . . . 6
β’ (((π β§ π¦ β π) β§ π¦ = 1) β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))βπ¦) = ((((TopOpenββfld)
βΎt π) CnP
(TopOpenββfld))β1)) |
49 | 46, 48 | eleqtrrd 2837 |
. . . . 5
β’ (((π β§ π¦ β π) β§ π¦ = 1) β πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))βπ¦)) |
50 | | eldifsn 4790 |
. . . . . . 7
β’ (π¦ β (π β {1}) β (π¦ β π β§ π¦ β 1)) |
51 | 9 | simprd 497 |
. . . . . . . . . . . . . . . 16
β’ (π β (π β {1}) β (0(ballβ(abs
β β ))1)) |
52 | | abscl 15222 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π€ β β β
(absβπ€) β
β) |
53 | 52 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π€ β β) β (absβπ€) β
β) |
54 | 53 | a1d 25 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π€ β β) β ((absβπ€) < 1 β (absβπ€) β
β)) |
55 | | absge0 15231 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π€ β β β 0 β€
(absβπ€)) |
56 | 55 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π€ β β) β 0 β€
(absβπ€)) |
57 | 56 | a1d 25 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π€ β β) β ((absβπ€) < 1 β 0 β€
(absβπ€))) |
58 | 1, 2 | abelthlem1 25935 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β 1 β€ sup({π β β β£ seq0( +
, ((π‘ β β
β¦ (π β
β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )) |
59 | 58 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π€ β β) β 1 β€ sup({π β β β£ seq0( +
, ((π‘ β β
β¦ (π β
β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )) |
60 | 53 | rexrd 11261 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π€ β β) β (absβπ€) β
β*) |
61 | | 1re 11211 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ 1 β
β |
62 | | rexr 11257 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (1 β
β β 1 β β*) |
63 | 61, 62 | mp1i 13 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π€ β β) β 1 β
β*) |
64 | | iccssxr 13404 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(0[,]+β) β β* |
65 | | eqid 2733 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ)))) = (π‘ β β β¦ (π β β0 β¦ ((π΄βπ) Β· (π‘βπ)))) |
66 | | eqid 2733 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’
sup({π β
β β£ seq0( + , ((π‘ β β β¦ (π β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ) = sup({π β
β β£ seq0( + , ((π‘ β β β¦ (π β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ) |
67 | 65, 1, 66 | radcnvcl 25921 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ) β (0[,]+β)) |
68 | 64, 67 | sselid 3980 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ) β β*) |
69 | 68 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π€ β β) β sup({π β β β£ seq0( +
, ((π‘ β β
β¦ (π β
β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ) β β*) |
70 | | xrltletr 13133 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(((absβπ€)
β β* β§ 1 β β* β§ sup({π β β β£ seq0( +
, ((π‘ β β
β¦ (π β
β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ) β β*) β (((absβπ€) < 1 β§ 1 β€ sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )) β (absβπ€) < sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) |
71 | 60, 63, 69, 70 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π€ β β) β (((absβπ€) < 1 β§ 1 β€ sup({π β β β£ seq0( +
, ((π‘ β β
β¦ (π β
β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )) β (absβπ€) < sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) |
72 | 59, 71 | mpan2d 693 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π€ β β) β ((absβπ€) < 1 β (absβπ€) < sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) |
73 | 54, 57, 72 | 3jcad 1130 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π€ β β) β ((absβπ€) < 1 β
((absβπ€) β
β β§ 0 β€ (absβπ€) β§ (absβπ€) < sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )))) |
74 | | 0cn 11203 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ 0 β
β |
75 | 17 | cnmetdval 24279 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((0
β β β§ π€
β β) β (0(abs β β )π€) = (absβ(0 β π€))) |
76 | 74, 75 | mpan 689 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π€ β β β (0(abs
β β )π€) =
(absβ(0 β π€))) |
77 | | abssub 15270 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((0
β β β§ π€
β β) β (absβ(0 β π€)) = (absβ(π€ β 0))) |
78 | 74, 77 | mpan 689 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π€ β β β
(absβ(0 β π€)) =
(absβ(π€ β
0))) |
79 | | subid1 11477 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π€ β β β (π€ β 0) = π€) |
80 | 79 | fveq2d 6893 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π€ β β β
(absβ(π€ β 0)) =
(absβπ€)) |
81 | 76, 78, 80 | 3eqtrd 2777 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π€ β β β (0(abs
β β )π€) =
(absβπ€)) |
82 | 81 | breq1d 5158 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π€ β β β ((0(abs
β β )π€) < 1
β (absβπ€) <
1)) |
83 | 82 | adantl 483 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π€ β β) β ((0(abs β
β )π€) < 1 β
(absβπ€) <
1)) |
84 | | 0re 11213 |
. . . . . . . . . . . . . . . . . . . . 21
β’ 0 β
β |
85 | | elico2 13385 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((0
β β β§ sup({π
β β β£ seq0( + , ((π‘ β β β¦ (π β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ) β β*) β ((absβπ€) β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )) β ((absβπ€) β β β§ 0 β€
(absβπ€) β§
(absβπ€) <
sup({π β β
β£ seq0( + , ((π‘
β β β¦ (π
β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )))) |
86 | 84, 69, 85 | sylancr 588 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π€ β β) β ((absβπ€) β (0[,)sup({π β β β£ seq0( +
, ((π‘ β β
β¦ (π β
β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )) β ((absβπ€) β β β§ 0 β€
(absβπ€) β§
(absβπ€) <
sup({π β β
β£ seq0( + , ((π‘
β β β¦ (π
β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )))) |
87 | 73, 83, 86 | 3imtr4d 294 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π€ β β) β ((0(abs β
β )π€) < 1 β
(absβπ€) β
(0[,)sup({π β β
β£ seq0( + , ((π‘
β β β¦ (π
β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )))) |
88 | 87 | imdistanda 573 |
. . . . . . . . . . . . . . . . . 18
β’ (π β ((π€ β β β§ (0(abs β β
)π€) < 1) β (π€ β β β§
(absβπ€) β
(0[,)sup({π β β
β£ seq0( + , ((π‘
β β β¦ (π
β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))))) |
89 | | 1xr 11270 |
. . . . . . . . . . . . . . . . . . 19
β’ 1 β
β* |
90 | | elbl 23886 |
. . . . . . . . . . . . . . . . . . 19
β’ (((abs
β β ) β (βMetββ) β§ 0 β β
β§ 1 β β*) β (π€ β (0(ballβ(abs β β
))1) β (π€ β
β β§ (0(abs β β )π€) < 1))) |
91 | 34, 74, 89, 90 | mp3an 1462 |
. . . . . . . . . . . . . . . . . 18
β’ (π€ β (0(ballβ(abs
β β ))1) β (π€ β β β§ (0(abs β β
)π€) <
1)) |
92 | | absf 15281 |
. . . . . . . . . . . . . . . . . . 19
β’
abs:ββΆβ |
93 | | ffn 6715 |
. . . . . . . . . . . . . . . . . . 19
β’
(abs:ββΆβ β abs Fn β) |
94 | | elpreima 7057 |
. . . . . . . . . . . . . . . . . . 19
β’ (abs Fn
β β (π€ β
(β‘abs β (0[,)sup({π β β β£ seq0( +
, ((π‘ β β
β¦ (π β
β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β (π€ β
β β§ (absβπ€)
β (0[,)sup({π β
β β£ seq0( + , ((π‘ β β β¦ (π β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))))) |
95 | 92, 93, 94 | mp2b 10 |
. . . . . . . . . . . . . . . . . 18
β’ (π€ β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β (π€ β
β β§ (absβπ€)
β (0[,)sup({π β
β β£ seq0( + , ((π‘ β β β¦ (π β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )))) |
96 | 88, 91, 95 | 3imtr4g 296 |
. . . . . . . . . . . . . . . . 17
β’ (π β (π€ β (0(ballβ(abs β β
))1) β π€ β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))))) |
97 | 96 | ssrdv 3988 |
. . . . . . . . . . . . . . . 16
β’ (π β (0(ballβ(abs β
β ))1) β (β‘abs β
(0[,)sup({π β β
β£ seq0( + , ((π‘
β β β¦ (π
β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )))) |
98 | 51, 97 | sstrd 3992 |
. . . . . . . . . . . . . . 15
β’ (π β (π β {1}) β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )))) |
99 | 98 | resmptd 6039 |
. . . . . . . . . . . . . 14
β’ (π β ((π₯ β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β¦ Ξ£π
β β0 ((π΄βπ) Β· (π₯βπ))) βΎ (π β {1})) = (π₯ β (π β {1}) β¦ Ξ£π β β0
((π΄βπ) Β· (π₯βπ)))) |
100 | 6 | reseq1i 5976 |
. . . . . . . . . . . . . . 15
β’ (πΉ βΎ (π β {1})) = ((π₯ β π β¦ Ξ£π β β0 ((π΄βπ) Β· (π₯βπ))) βΎ (π β {1})) |
101 | | difss 4131 |
. . . . . . . . . . . . . . . 16
β’ (π β {1}) β π |
102 | | resmpt 6036 |
. . . . . . . . . . . . . . . 16
β’ ((π β {1}) β π β ((π₯ β π β¦ Ξ£π β β0 ((π΄βπ) Β· (π₯βπ))) βΎ (π β {1})) = (π₯ β (π β {1}) β¦ Ξ£π β β0
((π΄βπ) Β· (π₯βπ)))) |
103 | 101, 102 | ax-mp 5 |
. . . . . . . . . . . . . . 15
β’ ((π₯ β π β¦ Ξ£π β β0 ((π΄βπ) Β· (π₯βπ))) βΎ (π β {1})) = (π₯ β (π β {1}) β¦ Ξ£π β β0
((π΄βπ) Β· (π₯βπ))) |
104 | 100, 103 | eqtri 2761 |
. . . . . . . . . . . . . 14
β’ (πΉ βΎ (π β {1})) = (π₯ β (π β {1}) β¦ Ξ£π β β0
((π΄βπ) Β· (π₯βπ))) |
105 | 99, 104 | eqtr4di 2791 |
. . . . . . . . . . . . 13
β’ (π β ((π₯ β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β¦ Ξ£π
β β0 ((π΄βπ) Β· (π₯βπ))) βΎ (π β {1})) = (πΉ βΎ (π β {1}))) |
106 | | cnvimass 6078 |
. . . . . . . . . . . . . . . . . . 19
β’ (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β dom abs |
107 | 92 | fdmi 6727 |
. . . . . . . . . . . . . . . . . . 19
β’ dom abs =
β |
108 | 106, 107 | sseqtri 4018 |
. . . . . . . . . . . . . . . . . 18
β’ (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β β |
109 | 108 | sseli 3978 |
. . . . . . . . . . . . . . . . 17
β’ (π₯ β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β π₯ β
β) |
110 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π β (π΄βπ) = (π΄βπ)) |
111 | | oveq2 7414 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π β (π₯βπ) = (π₯βπ)) |
112 | 110, 111 | oveq12d 7424 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π β ((π΄βπ) Β· (π₯βπ)) = ((π΄βπ) Β· (π₯βπ))) |
113 | 112 | cbvsumv 15639 |
. . . . . . . . . . . . . . . . . 18
β’
Ξ£π β
β0 ((π΄βπ) Β· (π₯βπ)) = Ξ£π β β0 ((π΄βπ) Β· (π₯βπ)) |
114 | 65 | pserval2 25915 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π₯ β β β§ π β β0)
β (((π‘ β β
β¦ (π β
β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ₯)βπ) = ((π΄βπ) Β· (π₯βπ))) |
115 | 114 | sumeq2dv 15646 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ β β β
Ξ£π β
β0 (((π‘
β β β¦ (π
β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ₯)βπ) = Ξ£π β β0 ((π΄βπ) Β· (π₯βπ))) |
116 | 113, 115 | eqtr4id 2792 |
. . . . . . . . . . . . . . . . 17
β’ (π₯ β β β
Ξ£π β
β0 ((π΄βπ) Β· (π₯βπ)) = Ξ£π β β0 (((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ₯)βπ)) |
117 | 109, 116 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (π₯ β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β Ξ£π
β β0 ((π΄βπ) Β· (π₯βπ)) = Ξ£π β β0 (((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ₯)βπ)) |
118 | 117 | mpteq2ia 5251 |
. . . . . . . . . . . . . . 15
β’ (π₯ β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β¦ Ξ£π
β β0 ((π΄βπ) Β· (π₯βπ))) = (π₯ β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β¦ Ξ£π
β β0 (((π‘ β β β¦ (π β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ₯)βπ)) |
119 | | eqid 2733 |
. . . . . . . . . . . . . . 15
β’ (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) = (β‘abs β
(0[,)sup({π β β
β£ seq0( + , ((π‘
β β β¦ (π
β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) |
120 | | eqid 2733 |
. . . . . . . . . . . . . . 15
β’
if(sup({π β
β β£ seq0( + , ((π‘ β β β¦ (π β β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ) β β, (((absβπ£) + sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )) / 2), ((absβπ£) + 1)) = if(sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ) β β, (((absβπ£) + sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )) / 2), ((absβπ£) + 1)) |
121 | 65, 118, 1, 66, 119, 120 | psercn 25930 |
. . . . . . . . . . . . . 14
β’ (π β (π₯ β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β¦ Ξ£π
β β0 ((π΄βπ) Β· (π₯βπ))) β ((β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )))βcnββ)) |
122 | | rescncf 24405 |
. . . . . . . . . . . . . 14
β’ ((π β {1}) β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β ((π₯ β
(β‘abs β (0[,)sup({π β β β£ seq0( +
, ((π‘ β β
β¦ (π β
β0 β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β¦ Ξ£π
β β0 ((π΄βπ) Β· (π₯βπ))) β ((β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< )))βcnββ) β
((π₯ β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β¦ Ξ£π
β β0 ((π΄βπ) Β· (π₯βπ))) βΎ (π β {1})) β ((π β {1})βcnββ))) |
123 | 98, 121, 122 | sylc 65 |
. . . . . . . . . . . . 13
β’ (π β ((π₯ β (β‘abs β (0[,)sup({π β β β£ seq0( + , ((π‘ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π‘βπ))))βπ)) β dom β }, β*,
< ))) β¦ Ξ£π
β β0 ((π΄βπ) Β· (π₯βπ))) βΎ (π β {1})) β ((π β {1})βcnββ)) |
124 | 105, 123 | eqeltrrd 2835 |
. . . . . . . . . . . 12
β’ (π β (πΉ βΎ (π β {1})) β ((π β {1})βcnββ)) |
125 | 124 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ π¦ β (π β {1})) β (πΉ βΎ (π β {1})) β ((π β {1})βcnββ)) |
126 | 101, 15 | sstri 3991 |
. . . . . . . . . . . 12
β’ (π β {1}) β
β |
127 | | ssid 4004 |
. . . . . . . . . . . 12
β’ β
β β |
128 | | eqid 2733 |
. . . . . . . . . . . . 13
β’
((TopOpenββfld) βΎt (π β {1})) =
((TopOpenββfld) βΎt (π β {1})) |
129 | 38 | cnfldtopon 24291 |
. . . . . . . . . . . . . 14
β’
(TopOpenββfld) β
(TopOnββ) |
130 | 129 | toponrestid 22415 |
. . . . . . . . . . . . 13
β’
(TopOpenββfld) =
((TopOpenββfld) βΎt
β) |
131 | 38, 128, 130 | cncfcn 24418 |
. . . . . . . . . . . 12
β’ (((π β {1}) β β
β§ β β β) β ((π β {1})βcnββ) =
(((TopOpenββfld) βΎt (π β {1})) Cn
(TopOpenββfld))) |
132 | 126, 127,
131 | mp2an 691 |
. . . . . . . . . . 11
β’ ((π β {1})βcnββ) =
(((TopOpenββfld) βΎt (π β {1})) Cn
(TopOpenββfld)) |
133 | 125, 132 | eleqtrdi 2844 |
. . . . . . . . . 10
β’ ((π β§ π¦ β (π β {1})) β (πΉ βΎ (π β {1})) β
(((TopOpenββfld) βΎt (π β {1})) Cn
(TopOpenββfld))) |
134 | | simpr 486 |
. . . . . . . . . 10
β’ ((π β§ π¦ β (π β {1})) β π¦ β (π β {1})) |
135 | | resttopon 22657 |
. . . . . . . . . . . . 13
β’
(((TopOpenββfld) β (TopOnββ)
β§ (π β {1})
β β) β ((TopOpenββfld)
βΎt (π
β {1})) β (TopOnβ(π β {1}))) |
136 | 129, 126,
135 | mp2an 691 |
. . . . . . . . . . . 12
β’
((TopOpenββfld) βΎt (π β {1})) β
(TopOnβ(π β
{1})) |
137 | 136 | toponunii 22410 |
. . . . . . . . . . 11
β’ (π β {1}) = βͺ ((TopOpenββfld)
βΎt (π
β {1})) |
138 | 137 | cncnpi 22774 |
. . . . . . . . . 10
β’ (((πΉ βΎ (π β {1})) β
(((TopOpenββfld) βΎt (π β {1})) Cn
(TopOpenββfld)) β§ π¦ β (π β {1})) β (πΉ βΎ (π β {1})) β
((((TopOpenββfld) βΎt (π β {1})) CnP
(TopOpenββfld))βπ¦)) |
139 | 133, 134,
138 | syl2anc 585 |
. . . . . . . . 9
β’ ((π β§ π¦ β (π β {1})) β (πΉ βΎ (π β {1})) β
((((TopOpenββfld) βΎt (π β {1})) CnP
(TopOpenββfld))βπ¦)) |
140 | 38 | cnfldtop 24292 |
. . . . . . . . . . . 12
β’
(TopOpenββfld) β Top |
141 | | cnex 11188 |
. . . . . . . . . . . . 13
β’ β
β V |
142 | 141, 15 | ssexi 5322 |
. . . . . . . . . . . 12
β’ π β V |
143 | | restabs 22661 |
. . . . . . . . . . . 12
β’
(((TopOpenββfld) β Top β§ (π β {1}) β π β§ π β V) β
(((TopOpenββfld) βΎt π) βΎt (π β {1})) =
((TopOpenββfld) βΎt (π β {1}))) |
144 | 140, 101,
142, 143 | mp3an 1462 |
. . . . . . . . . . 11
β’
(((TopOpenββfld) βΎt π) βΎt (π β {1})) =
((TopOpenββfld) βΎt (π β {1})) |
145 | 144 | oveq1i 7416 |
. . . . . . . . . 10
β’
((((TopOpenββfld) βΎt π) βΎt (π β {1})) CnP
(TopOpenββfld)) =
(((TopOpenββfld) βΎt (π β {1})) CnP
(TopOpenββfld)) |
146 | 145 | fveq1i 6890 |
. . . . . . . . 9
β’
(((((TopOpenββfld) βΎt π) βΎt (π β {1})) CnP
(TopOpenββfld))βπ¦) = ((((TopOpenββfld)
βΎt (π
β {1})) CnP (TopOpenββfld))βπ¦) |
147 | 139, 146 | eleqtrrdi 2845 |
. . . . . . . 8
β’ ((π β§ π¦ β (π β {1})) β (πΉ βΎ (π β {1})) β
(((((TopOpenββfld) βΎt π) βΎt (π β {1})) CnP
(TopOpenββfld))βπ¦)) |
148 | | resttop 22656 |
. . . . . . . . . . 11
β’
(((TopOpenββfld) β Top β§ π β V) β
((TopOpenββfld) βΎt π) β Top) |
149 | 140, 142,
148 | mp2an 691 |
. . . . . . . . . 10
β’
((TopOpenββfld) βΎt π) β Top |
150 | 149 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π¦ β (π β {1})) β
((TopOpenββfld) βΎt π) β Top) |
151 | 101 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π¦ β (π β {1})) β (π β {1}) β π) |
152 | 10 | snssd 4812 |
. . . . . . . . . . . . 13
β’ (π β {1} β π) |
153 | 38 | cnfldhaus 24293 |
. . . . . . . . . . . . . . 15
β’
(TopOpenββfld) β Haus |
154 | | unicntop 24294 |
. . . . . . . . . . . . . . . 16
β’ β =
βͺ
(TopOpenββfld) |
155 | 154 | sncld 22867 |
. . . . . . . . . . . . . . 15
β’
(((TopOpenββfld) β Haus β§ 1 β
β) β {1} β
(Clsdβ(TopOpenββfld))) |
156 | 153, 14, 155 | mp2an 691 |
. . . . . . . . . . . . . 14
β’ {1}
β (Clsdβ(TopOpenββfld)) |
157 | 154 | restcldi 22669 |
. . . . . . . . . . . . . 14
β’ ((π β β β§ {1}
β (Clsdβ(TopOpenββfld)) β§ {1} β
π) β {1} β
(Clsdβ((TopOpenββfld) βΎt π))) |
158 | 15, 156, 157 | mp3an12 1452 |
. . . . . . . . . . . . 13
β’ ({1}
β π β {1} β
(Clsdβ((TopOpenββfld) βΎt π))) |
159 | 154 | restuni 22658 |
. . . . . . . . . . . . . . 15
β’
(((TopOpenββfld) β Top β§ π β β) β π = βͺ
((TopOpenββfld) βΎt π)) |
160 | 140, 15, 159 | mp2an 691 |
. . . . . . . . . . . . . 14
β’ π = βͺ
((TopOpenββfld) βΎt π) |
161 | 160 | cldopn 22527 |
. . . . . . . . . . . . 13
β’ ({1}
β (Clsdβ((TopOpenββfld) βΎt
π)) β (π β {1}) β
((TopOpenββfld) βΎt π)) |
162 | 152, 158,
161 | 3syl 18 |
. . . . . . . . . . . 12
β’ (π β (π β {1}) β
((TopOpenββfld) βΎt π)) |
163 | 160 | isopn3 22562 |
. . . . . . . . . . . . 13
β’
((((TopOpenββfld) βΎt π) β Top β§ (π β {1}) β π) β ((π β {1}) β
((TopOpenββfld) βΎt π) β
((intβ((TopOpenββfld) βΎt π))β(π β {1})) = (π β {1}))) |
164 | 149, 101,
163 | mp2an 691 |
. . . . . . . . . . . 12
β’ ((π β {1}) β
((TopOpenββfld) βΎt π) β
((intβ((TopOpenββfld) βΎt π))β(π β {1})) = (π β {1})) |
165 | 162, 164 | sylib 217 |
. . . . . . . . . . 11
β’ (π β
((intβ((TopOpenββfld) βΎt π))β(π β {1})) = (π β {1})) |
166 | 165 | eleq2d 2820 |
. . . . . . . . . 10
β’ (π β (π¦ β
((intβ((TopOpenββfld) βΎt π))β(π β {1})) β π¦ β (π β {1}))) |
167 | 166 | biimpar 479 |
. . . . . . . . 9
β’ ((π β§ π¦ β (π β {1})) β π¦ β
((intβ((TopOpenββfld) βΎt π))β(π β {1}))) |
168 | 7 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ π¦ β (π β {1})) β πΉ:πβΆβ) |
169 | 160, 154 | cnprest 22785 |
. . . . . . . . 9
β’
(((((TopOpenββfld) βΎt π) β Top β§ (π β {1}) β π) β§ (π¦ β
((intβ((TopOpenββfld) βΎt π))β(π β {1})) β§ πΉ:πβΆβ)) β (πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))βπ¦) β (πΉ βΎ (π β {1})) β
(((((TopOpenββfld) βΎt π) βΎt (π β {1})) CnP
(TopOpenββfld))βπ¦))) |
170 | 150, 151,
167, 168, 169 | syl22anc 838 |
. . . . . . . 8
β’ ((π β§ π¦ β (π β {1})) β (πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))βπ¦) β (πΉ βΎ (π β {1})) β
(((((TopOpenββfld) βΎt π) βΎt (π β {1})) CnP
(TopOpenββfld))βπ¦))) |
171 | 147, 170 | mpbird 257 |
. . . . . . 7
β’ ((π β§ π¦ β (π β {1})) β πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))βπ¦)) |
172 | 50, 171 | sylan2br 596 |
. . . . . 6
β’ ((π β§ (π¦ β π β§ π¦ β 1)) β πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))βπ¦)) |
173 | 172 | anassrs 469 |
. . . . 5
β’ (((π β§ π¦ β π) β§ π¦ β 1) β πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))βπ¦)) |
174 | 49, 173 | pm2.61dane 3030 |
. . . 4
β’ ((π β§ π¦ β π) β πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))βπ¦)) |
175 | 174 | ralrimiva 3147 |
. . 3
β’ (π β βπ¦ β π πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))βπ¦)) |
176 | | resttopon 22657 |
. . . . 5
β’
(((TopOpenββfld) β (TopOnββ)
β§ π β β)
β ((TopOpenββfld) βΎt π) β (TopOnβπ)) |
177 | 129, 15, 176 | mp2an 691 |
. . . 4
β’
((TopOpenββfld) βΎt π) β (TopOnβπ) |
178 | | cncnp 22776 |
. . . 4
β’
((((TopOpenββfld) βΎt π) β (TopOnβπ) β§
(TopOpenββfld) β (TopOnββ)) β
(πΉ β
(((TopOpenββfld) βΎt π) Cn (TopOpenββfld))
β (πΉ:πβΆβ β§ βπ¦ β π πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))βπ¦)))) |
179 | 177, 129,
178 | mp2an 691 |
. . 3
β’ (πΉ β
(((TopOpenββfld) βΎt π) Cn (TopOpenββfld))
β (πΉ:πβΆβ β§ βπ¦ β π πΉ β
((((TopOpenββfld) βΎt π) CnP
(TopOpenββfld))βπ¦))) |
180 | 7, 175, 179 | sylanbrc 584 |
. 2
β’ (π β πΉ β
(((TopOpenββfld) βΎt π) Cn
(TopOpenββfld))) |
181 | | eqid 2733 |
. . . 4
β’
((TopOpenββfld) βΎt π) =
((TopOpenββfld) βΎt π) |
182 | 38, 181, 130 | cncfcn 24418 |
. . 3
β’ ((π β β β§ β
β β) β (πβcnββ) =
(((TopOpenββfld) βΎt π) Cn
(TopOpenββfld))) |
183 | 15, 127, 182 | mp2an 691 |
. 2
β’ (πβcnββ) =
(((TopOpenββfld) βΎt π) Cn
(TopOpenββfld)) |
184 | 180, 183 | eleqtrrdi 2845 |
1
β’ (π β πΉ β (πβcnββ)) |