Step | Hyp | Ref
| Expression |
1 | | pi1co.g |
. . . 4
β’ πΊ = ran (π β βͺ π β¦ β¨[π](
βphβπ½), [(πΉ β π)]( βphβπΎ)β©) |
2 | | fvex 6902 |
. . . . 5
β’ (
βphβπ½) β V |
3 | | ecexg 8704 |
. . . . 5
β’ ((
βphβπ½) β V β [π]( βphβπ½) β V) |
4 | 2, 3 | mp1i 13 |
. . . 4
β’ ((π β§ π β βͺ π) β [π]( βphβπ½) β V) |
5 | | pi1co.q |
. . . . 5
β’ π = (πΎ Ο1 π΅) |
6 | | eqid 2733 |
. . . . 5
β’
(Baseβπ) =
(Baseβπ) |
7 | | pi1co.f |
. . . . . . . 8
β’ (π β πΉ β (π½ Cn πΎ)) |
8 | | cntop2 22737 |
. . . . . . . 8
β’ (πΉ β (π½ Cn πΎ) β πΎ β Top) |
9 | 7, 8 | syl 17 |
. . . . . . 7
β’ (π β πΎ β Top) |
10 | | toptopon2 22412 |
. . . . . . 7
β’ (πΎ β Top β πΎ β (TopOnββͺ πΎ)) |
11 | 9, 10 | sylib 217 |
. . . . . 6
β’ (π β πΎ β (TopOnββͺ πΎ)) |
12 | 11 | adantr 482 |
. . . . 5
β’ ((π β§ π β βͺ π) β πΎ β (TopOnββͺ πΎ)) |
13 | | pi1co.b |
. . . . . . 7
β’ (π β (πΉβπ΄) = π΅) |
14 | | pi1co.j |
. . . . . . . . 9
β’ (π β π½ β (TopOnβπ)) |
15 | | cnf2 22745 |
. . . . . . . . 9
β’ ((π½ β (TopOnβπ) β§ πΎ β (TopOnββͺ πΎ)
β§ πΉ β (π½ Cn πΎ)) β πΉ:πβΆβͺ πΎ) |
16 | 14, 11, 7, 15 | syl3anc 1372 |
. . . . . . . 8
β’ (π β πΉ:πβΆβͺ πΎ) |
17 | | pi1co.a |
. . . . . . . 8
β’ (π β π΄ β π) |
18 | 16, 17 | ffvelcdmd 7085 |
. . . . . . 7
β’ (π β (πΉβπ΄) β βͺ πΎ) |
19 | 13, 18 | eqeltrrd 2835 |
. . . . . 6
β’ (π β π΅ β βͺ πΎ) |
20 | 19 | adantr 482 |
. . . . 5
β’ ((π β§ π β βͺ π) β π΅ β βͺ πΎ) |
21 | | pi1co.p |
. . . . . . . . 9
β’ π = (π½ Ο1 π΄) |
22 | | pi1co.v |
. . . . . . . . . 10
β’ π = (Baseβπ) |
23 | 22 | a1i 11 |
. . . . . . . . 9
β’ (π β π = (Baseβπ)) |
24 | 21, 14, 17, 23 | pi1eluni 24550 |
. . . . . . . 8
β’ (π β (π β βͺ π β (π β (II Cn π½) β§ (πβ0) = π΄ β§ (πβ1) = π΄))) |
25 | 24 | biimpa 478 |
. . . . . . 7
β’ ((π β§ π β βͺ π) β (π β (II Cn π½) β§ (πβ0) = π΄ β§ (πβ1) = π΄)) |
26 | 25 | simp1d 1143 |
. . . . . 6
β’ ((π β§ π β βͺ π) β π β (II Cn π½)) |
27 | 7 | adantr 482 |
. . . . . 6
β’ ((π β§ π β βͺ π) β πΉ β (π½ Cn πΎ)) |
28 | | cnco 22762 |
. . . . . 6
β’ ((π β (II Cn π½) β§ πΉ β (π½ Cn πΎ)) β (πΉ β π) β (II Cn πΎ)) |
29 | 26, 27, 28 | syl2anc 585 |
. . . . 5
β’ ((π β§ π β βͺ π) β (πΉ β π) β (II Cn πΎ)) |
30 | | iitopon 24387 |
. . . . . . . 8
β’ II β
(TopOnβ(0[,]1)) |
31 | | cnf2 22745 |
. . . . . . . 8
β’ ((II
β (TopOnβ(0[,]1)) β§ π½ β (TopOnβπ) β§ π β (II Cn π½)) β π:(0[,]1)βΆπ) |
32 | 30, 14, 26, 31 | mp3an2ani 1469 |
. . . . . . 7
β’ ((π β§ π β βͺ π) β π:(0[,]1)βΆπ) |
33 | | 0elunit 13443 |
. . . . . . 7
β’ 0 β
(0[,]1) |
34 | | fvco3 6988 |
. . . . . . 7
β’ ((π:(0[,]1)βΆπ β§ 0 β (0[,]1)) β
((πΉ β π)β0) = (πΉβ(πβ0))) |
35 | 32, 33, 34 | sylancl 587 |
. . . . . 6
β’ ((π β§ π β βͺ π) β ((πΉ β π)β0) = (πΉβ(πβ0))) |
36 | 25 | simp2d 1144 |
. . . . . . 7
β’ ((π β§ π β βͺ π) β (πβ0) = π΄) |
37 | 36 | fveq2d 6893 |
. . . . . 6
β’ ((π β§ π β βͺ π) β (πΉβ(πβ0)) = (πΉβπ΄)) |
38 | 13 | adantr 482 |
. . . . . 6
β’ ((π β§ π β βͺ π) β (πΉβπ΄) = π΅) |
39 | 35, 37, 38 | 3eqtrd 2777 |
. . . . 5
β’ ((π β§ π β βͺ π) β ((πΉ β π)β0) = π΅) |
40 | | 1elunit 13444 |
. . . . . . 7
β’ 1 β
(0[,]1) |
41 | | fvco3 6988 |
. . . . . . 7
β’ ((π:(0[,]1)βΆπ β§ 1 β (0[,]1)) β
((πΉ β π)β1) = (πΉβ(πβ1))) |
42 | 32, 40, 41 | sylancl 587 |
. . . . . 6
β’ ((π β§ π β βͺ π) β ((πΉ β π)β1) = (πΉβ(πβ1))) |
43 | 25 | simp3d 1145 |
. . . . . . 7
β’ ((π β§ π β βͺ π) β (πβ1) = π΄) |
44 | 43 | fveq2d 6893 |
. . . . . 6
β’ ((π β§ π β βͺ π) β (πΉβ(πβ1)) = (πΉβπ΄)) |
45 | 42, 44, 38 | 3eqtrd 2777 |
. . . . 5
β’ ((π β§ π β βͺ π) β ((πΉ β π)β1) = π΅) |
46 | 5, 6, 12, 20, 29, 39, 45 | elpi1i 24554 |
. . . 4
β’ ((π β§ π β βͺ π) β [(πΉ β π)]( βphβπΎ) β (Baseβπ)) |
47 | | eceq1 8738 |
. . . 4
β’ (π = β β [π]( βphβπ½) = [β]( βphβπ½)) |
48 | | coeq2 5857 |
. . . . 5
β’ (π = β β (πΉ β π) = (πΉ β β)) |
49 | 48 | eceq1d 8739 |
. . . 4
β’ (π = β β [(πΉ β π)]( βphβπΎ) = [(πΉ β β)]( βphβπΎ)) |
50 | | phtpcer 24503 |
. . . . . 6
β’ (
βphβπΎ) Er (II Cn πΎ) |
51 | 50 | a1i 11 |
. . . . 5
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β (
βphβπΎ) Er (II Cn πΎ)) |
52 | | simpr3 1197 |
. . . . . . 7
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β [π]( βphβπ½) = [β]( βphβπ½)) |
53 | | phtpcer 24503 |
. . . . . . . . 9
β’ (
βphβπ½) Er (II Cn π½) |
54 | 53 | a1i 11 |
. . . . . . . 8
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β (
βphβπ½) Er (II Cn π½)) |
55 | | simpr1 1195 |
. . . . . . . . . 10
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β π β βͺ π) |
56 | 24 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β (π β βͺ π β (π β (II Cn π½) β§ (πβ0) = π΄ β§ (πβ1) = π΄))) |
57 | 55, 56 | mpbid 231 |
. . . . . . . . 9
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β (π β (II Cn π½) β§ (πβ0) = π΄ β§ (πβ1) = π΄)) |
58 | 57 | simp1d 1143 |
. . . . . . . 8
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β π β (II Cn π½)) |
59 | 54, 58 | erth 8749 |
. . . . . . 7
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β (π( βphβπ½)β β [π]( βphβπ½) = [β]( βphβπ½))) |
60 | 52, 59 | mpbird 257 |
. . . . . 6
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β π( βphβπ½)β) |
61 | 7 | adantr 482 |
. . . . . 6
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β πΉ β (π½ Cn πΎ)) |
62 | 60, 61 | phtpcco2 24507 |
. . . . 5
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β (πΉ β π)( βphβπΎ)(πΉ β β)) |
63 | 51, 62 | erthi 8751 |
. . . 4
β’ ((π β§ (π β βͺ π β§ β β βͺ π β§ [π]( βphβπ½) = [β]( βphβπ½))) β [(πΉ β π)]( βphβπΎ) = [(πΉ β β)]( βphβπΎ)) |
64 | 1, 4, 46, 47, 49, 63 | fliftfund 7307 |
. . 3
β’ (π β Fun πΊ) |
65 | 1, 4, 46 | fliftf 7309 |
. . 3
β’ (π β (Fun πΊ β πΊ:ran (π β βͺ π β¦ [π]( βphβπ½))βΆ(Baseβπ))) |
66 | 64, 65 | mpbid 231 |
. 2
β’ (π β πΊ:ran (π β βͺ π β¦ [π]( βphβπ½))βΆ(Baseβπ)) |
67 | 21, 14, 17, 23 | pi1bas2 24549 |
. . . 4
β’ (π β π = (βͺ π / (
βphβπ½))) |
68 | | df-qs 8706 |
. . . . 5
β’ (βͺ π
/ ( βphβπ½)) = {π β£ βπ β βͺ ππ = [π]( βphβπ½)} |
69 | | eqid 2733 |
. . . . . 6
β’ (π β βͺ π
β¦ [π](
βphβπ½)) = (π β βͺ π β¦ [π]( βphβπ½)) |
70 | 69 | rnmpt 5953 |
. . . . 5
β’ ran
(π β βͺ π
β¦ [π](
βphβπ½)) = {π β£ βπ β βͺ ππ = [π]( βphβπ½)} |
71 | 68, 70 | eqtr4i 2764 |
. . . 4
β’ (βͺ π
/ ( βphβπ½)) = ran (π β βͺ π β¦ [π]( βphβπ½)) |
72 | 67, 71 | eqtrdi 2789 |
. . 3
β’ (π β π = ran (π β βͺ π β¦ [π]( βphβπ½))) |
73 | 72 | feq2d 6701 |
. 2
β’ (π β (πΊ:πβΆ(Baseβπ) β πΊ:ran (π β βͺ π β¦ [π]( βphβπ½))βΆ(Baseβπ))) |
74 | 66, 73 | mpbird 257 |
1
β’ (π β πΊ:πβΆ(Baseβπ)) |