Step | Hyp | Ref
| Expression |
1 | | nfv 1917 |
. 2
β’
β²ππ |
2 | | smfco.s |
. 2
β’ (π β π β SAlg) |
3 | | cnvimass 6053 |
. . . 4
β’ (β‘πΉ β dom π») β dom πΉ |
4 | 3 | a1i 11 |
. . 3
β’ (π β (β‘πΉ β dom π») β dom πΉ) |
5 | | smfco.f |
. . . 4
β’ (π β πΉ β (SMblFnβπ)) |
6 | | eqid 2731 |
. . . 4
β’ dom πΉ = dom πΉ |
7 | 2, 5, 6 | smfdmss 45127 |
. . 3
β’ (π β dom πΉ β βͺ π) |
8 | 4, 7 | sstrd 3972 |
. 2
β’ (π β (β‘πΉ β dom π») β βͺ π) |
9 | | smfco.j |
. . . . . . . . 9
β’ π½ = (topGenβran
(,)) |
10 | | retop 24177 |
. . . . . . . . 9
β’
(topGenβran (,)) β Top |
11 | 9, 10 | eqeltri 2828 |
. . . . . . . 8
β’ π½ β Top |
12 | 11 | a1i 11 |
. . . . . . 7
β’ (π β π½ β Top) |
13 | | smfco.b |
. . . . . . 7
β’ π΅ = (SalGenβπ½) |
14 | 12, 13 | salgencld 44743 |
. . . . . 6
β’ (π β π΅ β SAlg) |
15 | | smfco.h |
. . . . . 6
β’ (π β π» β (SMblFnβπ΅)) |
16 | | eqid 2731 |
. . . . . 6
β’ dom π» = dom π» |
17 | 14, 15, 16 | smff 45126 |
. . . . 5
β’ (π β π»:dom π»βΆβ) |
18 | 17 | ffund 6692 |
. . . 4
β’ (π β Fun π») |
19 | 2, 5, 6 | smff 45126 |
. . . . 5
β’ (π β πΉ:dom πΉβΆβ) |
20 | 19 | ffund 6692 |
. . . 4
β’ (π β Fun πΉ) |
21 | 18, 20 | funcofd 6721 |
. . 3
β’ (π β (π» β πΉ):(β‘πΉ β dom π»)βΆran π») |
22 | 17 | frnd 6696 |
. . 3
β’ (π β ran π» β β) |
23 | 21, 22 | fssd 6706 |
. 2
β’ (π β (π» β πΉ):(β‘πΉ β dom π»)βΆβ) |
24 | | cnvco 5861 |
. . . . 5
β’ β‘(π» β πΉ) = (β‘πΉ β β‘π») |
25 | 24 | imaeq1i 6030 |
. . . 4
β’ (β‘(π» β πΉ) β (-β(,)π)) = ((β‘πΉ β β‘π») β (-β(,)π)) |
26 | 23 | adantr 481 |
. . . . 5
β’ ((π β§ π β β) β (π» β πΉ):(β‘πΉ β dom π»)βΆβ) |
27 | | rexr 11225 |
. . . . . 6
β’ (π β β β π β
β*) |
28 | 27 | adantl 482 |
. . . . 5
β’ ((π β§ π β β) β π β β*) |
29 | 26, 28 | preimaioomnf 45113 |
. . . 4
β’ ((π β§ π β β) β (β‘(π» β πΉ) β (-β(,)π)) = {π₯ β (β‘πΉ β dom π») β£ ((π» β πΉ)βπ₯) < π}) |
30 | | imaco 6223 |
. . . . 5
β’ ((β‘πΉ β β‘π») β (-β(,)π)) = (β‘πΉ β (β‘π» β (-β(,)π))) |
31 | 30 | a1i 11 |
. . . 4
β’ ((π β§ π β β) β ((β‘πΉ β β‘π») β (-β(,)π)) = (β‘πΉ β (β‘π» β (-β(,)π)))) |
32 | 25, 29, 31 | 3eqtr3a 2795 |
. . 3
β’ ((π β§ π β β) β {π₯ β (β‘πΉ β dom π») β£ ((π» β πΉ)βπ₯) < π} = (β‘πΉ β (β‘π» β (-β(,)π)))) |
33 | 17 | adantr 481 |
. . . . . . 7
β’ ((π β§ π β β) β π»:dom π»βΆβ) |
34 | 33, 28 | preimaioomnf 45113 |
. . . . . 6
β’ ((π β§ π β β) β (β‘π» β (-β(,)π)) = {π₯ β dom π» β£ (π»βπ₯) < π}) |
35 | 14 | adantr 481 |
. . . . . . 7
β’ ((π β§ π β β) β π΅ β SAlg) |
36 | 15 | adantr 481 |
. . . . . . 7
β’ ((π β§ π β β) β π» β (SMblFnβπ΅)) |
37 | | simpr 485 |
. . . . . . 7
β’ ((π β§ π β β) β π β β) |
38 | 35, 36, 16, 37 | smfpreimalt 45125 |
. . . . . 6
β’ ((π β§ π β β) β {π₯ β dom π» β£ (π»βπ₯) < π} β (π΅ βΎt dom π»)) |
39 | 34, 38 | eqeltrd 2832 |
. . . . 5
β’ ((π β§ π β β) β (β‘π» β (-β(,)π)) β (π΅ βΎt dom π»)) |
40 | 14 | elexd 3479 |
. . . . . . 7
β’ (π β π΅ β V) |
41 | 15 | dmexd 7862 |
. . . . . . 7
β’ (π β dom π» β V) |
42 | | elrest 17338 |
. . . . . . 7
β’ ((π΅ β V β§ dom π» β V) β ((β‘π» β (-β(,)π)) β (π΅ βΎt dom π») β βπ β π΅ (β‘π» β (-β(,)π)) = (π β© dom π»))) |
43 | 40, 41, 42 | syl2anc 584 |
. . . . . 6
β’ (π β ((β‘π» β (-β(,)π)) β (π΅ βΎt dom π») β βπ β π΅ (β‘π» β (-β(,)π)) = (π β© dom π»))) |
44 | 43 | adantr 481 |
. . . . 5
β’ ((π β§ π β β) β ((β‘π» β (-β(,)π)) β (π΅ βΎt dom π») β βπ β π΅ (β‘π» β (-β(,)π)) = (π β© dom π»))) |
45 | 39, 44 | mpbid 231 |
. . . 4
β’ ((π β§ π β β) β βπ β π΅ (β‘π» β (-β(,)π)) = (π β© dom π»)) |
46 | | imaeq2 6029 |
. . . . . . . . 9
β’ ((β‘π» β (-β(,)π)) = (π β© dom π») β (β‘πΉ β (β‘π» β (-β(,)π))) = (β‘πΉ β (π β© dom π»))) |
47 | 46 | 3ad2ant3 1135 |
. . . . . . . 8
β’ ((π β§ π β π΅ β§ (β‘π» β (-β(,)π)) = (π β© dom π»)) β (β‘πΉ β (β‘π» β (-β(,)π))) = (β‘πΉ β (π β© dom π»))) |
48 | | ovexd 7412 |
. . . . . . . . . . 11
β’ ((π β§ π β π΅) β (π βΎt dom πΉ) β V) |
49 | 5 | elexd 3479 |
. . . . . . . . . . . . 13
β’ (π β πΉ β V) |
50 | | cnvexg 7881 |
. . . . . . . . . . . . 13
β’ (πΉ β V β β‘πΉ β V) |
51 | | imaexg 7872 |
. . . . . . . . . . . . 13
β’ (β‘πΉ β V β (β‘πΉ β dom π») β V) |
52 | 49, 50, 51 | 3syl 18 |
. . . . . . . . . . . 12
β’ (π β (β‘πΉ β dom π») β V) |
53 | 52 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π β π΅) β (β‘πΉ β dom π») β V) |
54 | 2 | adantr 481 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΅) β π β SAlg) |
55 | 5 | adantr 481 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΅) β πΉ β (SMblFnβπ)) |
56 | | simpr 485 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΅) β π β π΅) |
57 | | eqid 2731 |
. . . . . . . . . . . 12
β’ (β‘πΉ β π) = (β‘πΉ β π) |
58 | 54, 55, 6, 9, 13, 56, 57 | smfpimbor1 45194 |
. . . . . . . . . . 11
β’ ((π β§ π β π΅) β (β‘πΉ β π) β (π βΎt dom πΉ)) |
59 | | eqid 2731 |
. . . . . . . . . . 11
β’ ((β‘πΉ β π) β© (β‘πΉ β dom π»)) = ((β‘πΉ β π) β© (β‘πΉ β dom π»)) |
60 | 48, 53, 58, 59 | elrestd 43473 |
. . . . . . . . . 10
β’ ((π β§ π β π΅) β ((β‘πΉ β π) β© (β‘πΉ β dom π»)) β ((π βΎt dom πΉ) βΎt (β‘πΉ β dom π»))) |
61 | | inpreima 7034 |
. . . . . . . . . . . 12
β’ (Fun
πΉ β (β‘πΉ β (π β© dom π»)) = ((β‘πΉ β π) β© (β‘πΉ β dom π»))) |
62 | 20, 61 | syl 17 |
. . . . . . . . . . 11
β’ (π β (β‘πΉ β (π β© dom π»)) = ((β‘πΉ β π) β© (β‘πΉ β dom π»))) |
63 | 62 | adantr 481 |
. . . . . . . . . 10
β’ ((π β§ π β π΅) β (β‘πΉ β (π β© dom π»)) = ((β‘πΉ β π) β© (β‘πΉ β dom π»))) |
64 | 5 | dmexd 7862 |
. . . . . . . . . . . . 13
β’ (π β dom πΉ β V) |
65 | | restabs 22568 |
. . . . . . . . . . . . 13
β’ ((π β SAlg β§ (β‘πΉ β dom π») β dom πΉ β§ dom πΉ β V) β ((π βΎt dom πΉ) βΎt (β‘πΉ β dom π»)) = (π βΎt (β‘πΉ β dom π»))) |
66 | 2, 4, 64, 65 | syl3anc 1371 |
. . . . . . . . . . . 12
β’ (π β ((π βΎt dom πΉ) βΎt (β‘πΉ β dom π»)) = (π βΎt (β‘πΉ β dom π»))) |
67 | 66 | eqcomd 2737 |
. . . . . . . . . . 11
β’ (π β (π βΎt (β‘πΉ β dom π»)) = ((π βΎt dom πΉ) βΎt (β‘πΉ β dom π»))) |
68 | 67 | adantr 481 |
. . . . . . . . . 10
β’ ((π β§ π β π΅) β (π βΎt (β‘πΉ β dom π»)) = ((π βΎt dom πΉ) βΎt (β‘πΉ β dom π»))) |
69 | 60, 63, 68 | 3eltr4d 2847 |
. . . . . . . . 9
β’ ((π β§ π β π΅) β (β‘πΉ β (π β© dom π»)) β (π βΎt (β‘πΉ β dom π»))) |
70 | 69 | 3adant3 1132 |
. . . . . . . 8
β’ ((π β§ π β π΅ β§ (β‘π» β (-β(,)π)) = (π β© dom π»)) β (β‘πΉ β (π β© dom π»)) β (π βΎt (β‘πΉ β dom π»))) |
71 | 47, 70 | eqeltrd 2832 |
. . . . . . 7
β’ ((π β§ π β π΅ β§ (β‘π» β (-β(,)π)) = (π β© dom π»)) β (β‘πΉ β (β‘π» β (-β(,)π))) β (π βΎt (β‘πΉ β dom π»))) |
72 | 71 | 3exp 1119 |
. . . . . 6
β’ (π β (π β π΅ β ((β‘π» β (-β(,)π)) = (π β© dom π») β (β‘πΉ β (β‘π» β (-β(,)π))) β (π βΎt (β‘πΉ β dom π»))))) |
73 | 72 | adantr 481 |
. . . . 5
β’ ((π β§ π β β) β (π β π΅ β ((β‘π» β (-β(,)π)) = (π β© dom π») β (β‘πΉ β (β‘π» β (-β(,)π))) β (π βΎt (β‘πΉ β dom π»))))) |
74 | 73 | rexlimdv 3152 |
. . . 4
β’ ((π β§ π β β) β (βπ β π΅ (β‘π» β (-β(,)π)) = (π β© dom π») β (β‘πΉ β (β‘π» β (-β(,)π))) β (π βΎt (β‘πΉ β dom π»)))) |
75 | 45, 74 | mpd 15 |
. . 3
β’ ((π β§ π β β) β (β‘πΉ β (β‘π» β (-β(,)π))) β (π βΎt (β‘πΉ β dom π»))) |
76 | 32, 75 | eqeltrd 2832 |
. 2
β’ ((π β§ π β β) β {π₯ β (β‘πΉ β dom π») β£ ((π» β πΉ)βπ₯) < π} β (π βΎt (β‘πΉ β dom π»))) |
77 | 1, 2, 8, 23, 76 | issmfd 45129 |
1
β’ (π β (π» β πΉ) β (SMblFnβπ)) |