Step | Hyp | Ref
| Expression |
1 | | imasdsf1o.u |
. . . 4
β’ (π β π = (πΉ βs π
)) |
2 | | imasdsf1o.v |
. . . 4
β’ (π β π = (Baseβπ
)) |
3 | | imasdsf1o.f |
. . . . 5
β’ (π β πΉ:πβ1-1-ontoβπ΅) |
4 | | f1ofo 6838 |
. . . . 5
β’ (πΉ:πβ1-1-ontoβπ΅ β πΉ:πβontoβπ΅) |
5 | 3, 4 | syl 17 |
. . . 4
β’ (π β πΉ:πβontoβπ΅) |
6 | | imasdsf1o.r |
. . . 4
β’ (π β π
β π) |
7 | | eqid 2733 |
. . . 4
β’
(distβπ
) =
(distβπ
) |
8 | | imasdsf1o.d |
. . . 4
β’ π· = (distβπ) |
9 | | f1of 6831 |
. . . . . 6
β’ (πΉ:πβ1-1-ontoβπ΅ β πΉ:πβΆπ΅) |
10 | 3, 9 | syl 17 |
. . . . 5
β’ (π β πΉ:πβΆπ΅) |
11 | | imasdsf1o.x |
. . . . 5
β’ (π β π β π) |
12 | 10, 11 | ffvelcdmd 7085 |
. . . 4
β’ (π β (πΉβπ) β π΅) |
13 | | imasdsf1o.y |
. . . . 5
β’ (π β π β π) |
14 | 10, 13 | ffvelcdmd 7085 |
. . . 4
β’ (π β (πΉβπ) β π΅) |
15 | | imasdsf1o.s |
. . . 4
β’ π = {β β ((π Γ π) βm (1...π)) β£ ((πΉβ(1st β(ββ1))) = (πΉβπ) β§ (πΉβ(2nd β(ββπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(ββπ))) = (πΉβ(1st β(ββ(π + 1)))))} |
16 | | imasdsf1o.e |
. . . 4
β’ πΈ = ((distβπ
) βΎ (π Γ π)) |
17 | 1, 2, 5, 6, 7, 8, 12, 14, 15, 16 | imasdsval2 17459 |
. . 3
β’ (π β ((πΉβπ)π·(πΉβπ)) = inf(βͺ
π β β ran (π β π β¦
(β*π Ξ£g (πΈ β π))), β*, <
)) |
18 | | imasdsf1o.t |
. . . 4
β’ π = βͺ π β β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) |
19 | 18 | infeq1i 9470 |
. . 3
β’ inf(π, β*, < ) =
inf(βͺ π β β ran (π β π β¦
(β*π Ξ£g (πΈ β π))), β*, <
) |
20 | 17, 19 | eqtr4di 2791 |
. 2
β’ (π β ((πΉβπ)π·(πΉβπ)) = inf(π, β*, <
)) |
21 | | xrsbas 20954 |
. . . . . . . . . . . 12
β’
β* =
(Baseββ*π ) |
22 | | xrsadd 20955 |
. . . . . . . . . . . 12
β’
+π =
(+gββ*π ) |
23 | | imasdsf1o.w |
. . . . . . . . . . . 12
β’ π =
(β*π βΎs
(β* β {-β})) |
24 | | xrsex 20953 |
. . . . . . . . . . . . 13
β’
β*π β V |
25 | 24 | a1i 11 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ π β π) β
β*π β V) |
26 | | fzfid 13935 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ π β π) β (1...π) β Fin) |
27 | | difss 4131 |
. . . . . . . . . . . . 13
β’
(β* β {-β}) β
β* |
28 | 27 | a1i 11 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ π β π) β (β* β
{-β}) β β*) |
29 | | imasdsf1o.m |
. . . . . . . . . . . . . . . 16
β’ (π β πΈ β (βMetβπ)) |
30 | | xmetf 23827 |
. . . . . . . . . . . . . . . 16
β’ (πΈ β (βMetβπ) β πΈ:(π Γ π)βΆβ*) |
31 | | ffn 6715 |
. . . . . . . . . . . . . . . 16
β’ (πΈ:(π Γ π)βΆβ* β πΈ Fn (π Γ π)) |
32 | 29, 30, 31 | 3syl 18 |
. . . . . . . . . . . . . . 15
β’ (π β πΈ Fn (π Γ π)) |
33 | | xmetcl 23829 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πΈ β (βMetβπ) β§ π β π β§ π β π) β (ππΈπ) β
β*) |
34 | | xmetge0 23842 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πΈ β (βMetβπ) β§ π β π β§ π β π) β 0 β€ (ππΈπ)) |
35 | | ge0nemnf 13149 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((ππΈπ) β β* β§ 0 β€
(ππΈπ)) β (ππΈπ) β -β) |
36 | 33, 34, 35 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πΈ β (βMetβπ) β§ π β π β§ π β π) β (ππΈπ) β -β) |
37 | | eldifsn 4790 |
. . . . . . . . . . . . . . . . . . 19
β’ ((ππΈπ) β (β* β
{-β}) β ((ππΈπ) β β* β§ (ππΈπ) β -β)) |
38 | 33, 36, 37 | sylanbrc 584 |
. . . . . . . . . . . . . . . . . 18
β’ ((πΈ β (βMetβπ) β§ π β π β§ π β π) β (ππΈπ) β (β* β
{-β})) |
39 | 38 | 3expb 1121 |
. . . . . . . . . . . . . . . . 17
β’ ((πΈ β (βMetβπ) β§ (π β π β§ π β π)) β (ππΈπ) β (β* β
{-β})) |
40 | 29, 39 | sylan 581 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π β π β§ π β π)) β (ππΈπ) β (β* β
{-β})) |
41 | 40 | ralrimivva 3201 |
. . . . . . . . . . . . . . 15
β’ (π β βπ β π βπ β π (ππΈπ) β (β* β
{-β})) |
42 | | ffnov 7532 |
. . . . . . . . . . . . . . 15
β’ (πΈ:(π Γ π)βΆ(β* β
{-β}) β (πΈ Fn
(π Γ π) β§ βπ β π βπ β π (ππΈπ) β (β* β
{-β}))) |
43 | 32, 41, 42 | sylanbrc 584 |
. . . . . . . . . . . . . 14
β’ (π β πΈ:(π Γ π)βΆ(β* β
{-β})) |
44 | 43 | ad2antrr 725 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β) β§ π β π) β πΈ:(π Γ π)βΆ(β* β
{-β})) |
45 | 15 | ssrab3 4080 |
. . . . . . . . . . . . . . . 16
β’ π β ((π Γ π) βm (1...π)) |
46 | 45 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β) β π β ((π Γ π) βm (1...π))) |
47 | 46 | sselda 3982 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β) β§ π β π) β π β ((π Γ π) βm (1...π))) |
48 | | elmapi 8840 |
. . . . . . . . . . . . . 14
β’ (π β ((π Γ π) βm (1...π)) β π:(1...π)βΆ(π Γ π)) |
49 | 47, 48 | syl 17 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β) β§ π β π) β π:(1...π)βΆ(π Γ π)) |
50 | | fco 6739 |
. . . . . . . . . . . . 13
β’ ((πΈ:(π Γ π)βΆ(β* β
{-β}) β§ π:(1...π)βΆ(π Γ π)) β (πΈ β π):(1...π)βΆ(β* β
{-β})) |
51 | 44, 49, 50 | syl2anc 585 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ π β π) β (πΈ β π):(1...π)βΆ(β* β
{-β})) |
52 | | 0re 11213 |
. . . . . . . . . . . . 13
β’ 0 β
β |
53 | | rexr 11257 |
. . . . . . . . . . . . . 14
β’ (0 β
β β 0 β β*) |
54 | | renemnf 11260 |
. . . . . . . . . . . . . 14
β’ (0 β
β β 0 β -β) |
55 | | eldifsn 4790 |
. . . . . . . . . . . . . 14
β’ (0 β
(β* β {-β}) β (0 β β*
β§ 0 β -β)) |
56 | 53, 54, 55 | sylanbrc 584 |
. . . . . . . . . . . . 13
β’ (0 β
β β 0 β (β* β
{-β})) |
57 | 52, 56 | mp1i 13 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ π β π) β 0 β (β*
β {-β})) |
58 | | xaddlid 13218 |
. . . . . . . . . . . . . 14
β’ (π₯ β β*
β (0 +π π₯) = π₯) |
59 | | xaddrid 13217 |
. . . . . . . . . . . . . 14
β’ (π₯ β β*
β (π₯
+π 0) = π₯) |
60 | 58, 59 | jca 513 |
. . . . . . . . . . . . 13
β’ (π₯ β β*
β ((0 +π π₯) = π₯ β§ (π₯ +π 0) = π₯)) |
61 | 60 | adantl 483 |
. . . . . . . . . . . 12
β’ ((((π β§ π β β) β§ π β π) β§ π₯ β β*) β ((0
+π π₯) =
π₯ β§ (π₯ +π 0) = π₯)) |
62 | 21, 22, 23, 25, 26, 28, 51, 57, 61 | gsumress 18598 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β π) β
(β*π Ξ£g (πΈ β π)) = (π Ξ£g (πΈ β π))) |
63 | 23, 21 | ressbas2 17179 |
. . . . . . . . . . . . 13
β’
((β* β {-β}) β β*
β (β* β {-β}) = (Baseβπ)) |
64 | 27, 63 | ax-mp 5 |
. . . . . . . . . . . 12
β’
(β* β {-β}) = (Baseβπ) |
65 | 23 | xrs10 20977 |
. . . . . . . . . . . 12
β’ 0 =
(0gβπ) |
66 | 23 | xrs1cmn 20978 |
. . . . . . . . . . . . 13
β’ π β CMnd |
67 | 66 | a1i 11 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ π β π) β π β CMnd) |
68 | | c0ex 11205 |
. . . . . . . . . . . . . 14
β’ 0 β
V |
69 | 68 | a1i 11 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β) β§ π β π) β 0 β V) |
70 | 51, 26, 69 | fdmfifsupp 9370 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ π β π) β (πΈ β π) finSupp 0) |
71 | 64, 65, 67, 26, 51, 70 | gsumcl 19778 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β π) β (π Ξ£g (πΈ β π)) β (β* β
{-β})) |
72 | 62, 71 | eqeltrd 2834 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ π β π) β
(β*π Ξ£g (πΈ β π)) β (β* β
{-β})) |
73 | 72 | eldifad 3960 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ π β π) β
(β*π Ξ£g (πΈ β π)) β
β*) |
74 | 73 | fmpttd 7112 |
. . . . . . . 8
β’ ((π β§ π β β) β (π β π β¦
(β*π Ξ£g (πΈ β π))):πβΆβ*) |
75 | 74 | frnd 6723 |
. . . . . . 7
β’ ((π β§ π β β) β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β
β*) |
76 | 75 | ralrimiva 3147 |
. . . . . 6
β’ (π β βπ β β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β
β*) |
77 | | iunss 5048 |
. . . . . 6
β’ (βͺ π β β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β β* β
βπ β β
ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β
β*) |
78 | 76, 77 | sylibr 233 |
. . . . 5
β’ (π β βͺ π β β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β
β*) |
79 | 18, 78 | eqsstrid 4030 |
. . . 4
β’ (π β π β
β*) |
80 | | infxrcl 13309 |
. . . 4
β’ (π β β*
β inf(π,
β*, < ) β β*) |
81 | 79, 80 | syl 17 |
. . 3
β’ (π β inf(π, β*, < ) β
β*) |
82 | | xmetcl 23829 |
. . . 4
β’ ((πΈ β (βMetβπ) β§ π β π β§ π β π) β (ππΈπ) β
β*) |
83 | 29, 11, 13, 82 | syl3anc 1372 |
. . 3
β’ (π β (ππΈπ) β
β*) |
84 | | 1nn 12220 |
. . . . . . 7
β’ 1 β
β |
85 | | 1ex 11207 |
. . . . . . . . . . . 12
β’ 1 β
V |
86 | | opex 5464 |
. . . . . . . . . . . 12
β’
β¨π, πβ© β V |
87 | 85, 86 | f1osn 6871 |
. . . . . . . . . . 11
β’ {β¨1,
β¨π, πβ©β©}:{1}β1-1-ontoβ{β¨π, πβ©} |
88 | | f1of 6831 |
. . . . . . . . . . 11
β’
({β¨1, β¨π,
πβ©β©}:{1}β1-1-ontoβ{β¨π, πβ©} β {β¨1, β¨π, πβ©β©}:{1}βΆ{β¨π, πβ©}) |
89 | 87, 88 | ax-mp 5 |
. . . . . . . . . 10
β’ {β¨1,
β¨π, πβ©β©}:{1}βΆ{β¨π, πβ©} |
90 | 11, 13 | opelxpd 5714 |
. . . . . . . . . . 11
β’ (π β β¨π, πβ© β (π Γ π)) |
91 | 90 | snssd 4812 |
. . . . . . . . . 10
β’ (π β {β¨π, πβ©} β (π Γ π)) |
92 | | fss 6732 |
. . . . . . . . . 10
β’
(({β¨1, β¨π,
πβ©β©}:{1}βΆ{β¨π, πβ©} β§ {β¨π, πβ©} β (π Γ π)) β {β¨1, β¨π, πβ©β©}:{1}βΆ(π Γ π)) |
93 | 89, 91, 92 | sylancr 588 |
. . . . . . . . 9
β’ (π β {β¨1, β¨π, πβ©β©}:{1}βΆ(π Γ π)) |
94 | 29 | elfvexd 6928 |
. . . . . . . . . . 11
β’ (π β π β V) |
95 | 94, 94 | xpexd 7735 |
. . . . . . . . . 10
β’ (π β (π Γ π) β V) |
96 | | snex 5431 |
. . . . . . . . . 10
β’ {1}
β V |
97 | | elmapg 8830 |
. . . . . . . . . 10
β’ (((π Γ π) β V β§ {1} β V) β
({β¨1, β¨π, πβ©β©} β ((π Γ π) βm {1}) β {β¨1,
β¨π, πβ©β©}:{1}βΆ(π Γ π))) |
98 | 95, 96, 97 | sylancl 587 |
. . . . . . . . 9
β’ (π β ({β¨1, β¨π, πβ©β©} β ((π Γ π) βm {1}) β {β¨1,
β¨π, πβ©β©}:{1}βΆ(π Γ π))) |
99 | 93, 98 | mpbird 257 |
. . . . . . . 8
β’ (π β {β¨1, β¨π, πβ©β©} β ((π Γ π) βm {1})) |
100 | | op1stg 7984 |
. . . . . . . . . . 11
β’ ((π β π β§ π β π) β (1st ββ¨π, πβ©) = π) |
101 | 11, 13, 100 | syl2anc 585 |
. . . . . . . . . 10
β’ (π β (1st
ββ¨π, πβ©) = π) |
102 | 101 | fveq2d 6893 |
. . . . . . . . 9
β’ (π β (πΉβ(1st ββ¨π, πβ©)) = (πΉβπ)) |
103 | | op2ndg 7985 |
. . . . . . . . . . 11
β’ ((π β π β§ π β π) β (2nd ββ¨π, πβ©) = π) |
104 | 11, 13, 103 | syl2anc 585 |
. . . . . . . . . 10
β’ (π β (2nd
ββ¨π, πβ©) = π) |
105 | 104 | fveq2d 6893 |
. . . . . . . . 9
β’ (π β (πΉβ(2nd ββ¨π, πβ©)) = (πΉβπ)) |
106 | 102, 105 | jca 513 |
. . . . . . . 8
β’ (π β ((πΉβ(1st ββ¨π, πβ©)) = (πΉβπ) β§ (πΉβ(2nd ββ¨π, πβ©)) = (πΉβπ))) |
107 | 24 | a1i 11 |
. . . . . . . . . 10
β’ (π β
β*π β V) |
108 | | snfi 9041 |
. . . . . . . . . . 11
β’ {1}
β Fin |
109 | 108 | a1i 11 |
. . . . . . . . . 10
β’ (π β {1} β
Fin) |
110 | 27 | a1i 11 |
. . . . . . . . . 10
β’ (π β (β*
β {-β}) β β*) |
111 | | xmetge0 23842 |
. . . . . . . . . . . . . . 15
β’ ((πΈ β (βMetβπ) β§ π β π β§ π β π) β 0 β€ (ππΈπ)) |
112 | 29, 11, 13, 111 | syl3anc 1372 |
. . . . . . . . . . . . . 14
β’ (π β 0 β€ (ππΈπ)) |
113 | | ge0nemnf 13149 |
. . . . . . . . . . . . . 14
β’ (((ππΈπ) β β* β§ 0 β€
(ππΈπ)) β (ππΈπ) β -β) |
114 | 83, 112, 113 | syl2anc 585 |
. . . . . . . . . . . . 13
β’ (π β (ππΈπ) β -β) |
115 | | eldifsn 4790 |
. . . . . . . . . . . . 13
β’ ((ππΈπ) β (β* β
{-β}) β ((ππΈπ) β β* β§ (ππΈπ) β -β)) |
116 | 83, 114, 115 | sylanbrc 584 |
. . . . . . . . . . . 12
β’ (π β (ππΈπ) β (β* β
{-β})) |
117 | | fconst6g 6778 |
. . . . . . . . . . . 12
β’ ((ππΈπ) β (β* β
{-β}) β ({1} Γ {(ππΈπ)}):{1}βΆ(β* β
{-β})) |
118 | 116, 117 | syl 17 |
. . . . . . . . . . 11
β’ (π β ({1} Γ {(ππΈπ)}):{1}βΆ(β* β
{-β})) |
119 | | fcoconst 7129 |
. . . . . . . . . . . . . 14
β’ ((πΈ Fn (π Γ π) β§ β¨π, πβ© β (π Γ π)) β (πΈ β ({1} Γ {β¨π, πβ©})) = ({1} Γ {(πΈββ¨π, πβ©)})) |
120 | 32, 90, 119 | syl2anc 585 |
. . . . . . . . . . . . 13
β’ (π β (πΈ β ({1} Γ {β¨π, πβ©})) = ({1} Γ {(πΈββ¨π, πβ©)})) |
121 | 85, 86 | xpsn 7136 |
. . . . . . . . . . . . . 14
β’ ({1}
Γ {β¨π, πβ©}) = {β¨1, β¨π, πβ©β©} |
122 | 121 | coeq2i 5859 |
. . . . . . . . . . . . 13
β’ (πΈ β ({1} Γ
{β¨π, πβ©})) = (πΈ β {β¨1, β¨π, πβ©β©}) |
123 | | df-ov 7409 |
. . . . . . . . . . . . . . . 16
β’ (ππΈπ) = (πΈββ¨π, πβ©) |
124 | 123 | eqcomi 2742 |
. . . . . . . . . . . . . . 15
β’ (πΈββ¨π, πβ©) = (ππΈπ) |
125 | 124 | sneqi 4639 |
. . . . . . . . . . . . . 14
β’ {(πΈββ¨π, πβ©)} = {(ππΈπ)} |
126 | 125 | xpeq2i 5703 |
. . . . . . . . . . . . 13
β’ ({1}
Γ {(πΈββ¨π, πβ©)}) = ({1} Γ {(ππΈπ)}) |
127 | 120, 122,
126 | 3eqtr3g 2796 |
. . . . . . . . . . . 12
β’ (π β (πΈ β {β¨1, β¨π, πβ©β©}) = ({1} Γ {(ππΈπ)})) |
128 | 127 | feq1d 6700 |
. . . . . . . . . . 11
β’ (π β ((πΈ β {β¨1, β¨π, πβ©β©}):{1}βΆ(β*
β {-β}) β ({1} Γ {(ππΈπ)}):{1}βΆ(β* β
{-β}))) |
129 | 118, 128 | mpbird 257 |
. . . . . . . . . 10
β’ (π β (πΈ β {β¨1, β¨π, πβ©β©}):{1}βΆ(β*
β {-β})) |
130 | 52, 56 | mp1i 13 |
. . . . . . . . . 10
β’ (π β 0 β
(β* β {-β})) |
131 | 60 | adantl 483 |
. . . . . . . . . 10
β’ ((π β§ π₯ β β*) β ((0
+π π₯) =
π₯ β§ (π₯ +π 0) = π₯)) |
132 | 21, 22, 23, 107, 109, 110, 129, 130, 131 | gsumress 18598 |
. . . . . . . . 9
β’ (π β
(β*π Ξ£g (πΈ β {β¨1, β¨π, πβ©β©})) = (π Ξ£g (πΈ β {β¨1, β¨π, πβ©β©}))) |
133 | | fconstmpt 5737 |
. . . . . . . . . . 11
β’ ({1}
Γ {(ππΈπ)}) = (π β {1} β¦ (ππΈπ)) |
134 | 127, 133 | eqtrdi 2789 |
. . . . . . . . . 10
β’ (π β (πΈ β {β¨1, β¨π, πβ©β©}) = (π β {1} β¦ (ππΈπ))) |
135 | 134 | oveq2d 7422 |
. . . . . . . . 9
β’ (π β (π Ξ£g (πΈ β {β¨1, β¨π, πβ©β©})) = (π Ξ£g (π β {1} β¦ (ππΈπ)))) |
136 | | cmnmnd 19660 |
. . . . . . . . . . 11
β’ (π β CMnd β π β Mnd) |
137 | 66, 136 | mp1i 13 |
. . . . . . . . . 10
β’ (π β π β Mnd) |
138 | 84 | a1i 11 |
. . . . . . . . . 10
β’ (π β 1 β
β) |
139 | | eqidd 2734 |
. . . . . . . . . . 11
β’ (π = 1 β (ππΈπ) = (ππΈπ)) |
140 | 64, 139 | gsumsn 19817 |
. . . . . . . . . 10
β’ ((π β Mnd β§ 1 β
β β§ (ππΈπ) β (β* β
{-β})) β (π
Ξ£g (π β {1} β¦ (ππΈπ))) = (ππΈπ)) |
141 | 137, 138,
116, 140 | syl3anc 1372 |
. . . . . . . . 9
β’ (π β (π Ξ£g (π β {1} β¦ (ππΈπ))) = (ππΈπ)) |
142 | 132, 135,
141 | 3eqtrrd 2778 |
. . . . . . . 8
β’ (π β (ππΈπ) = (β*π
Ξ£g (πΈ β {β¨1, β¨π, πβ©β©}))) |
143 | | fveq1 6888 |
. . . . . . . . . . . . . 14
β’ (π = {β¨1, β¨π, πβ©β©} β (πβ1) = ({β¨1, β¨π, πβ©β©}β1)) |
144 | 85, 86 | fvsn 7176 |
. . . . . . . . . . . . . 14
β’
({β¨1, β¨π,
πβ©β©}β1) =
β¨π, πβ© |
145 | 143, 144 | eqtrdi 2789 |
. . . . . . . . . . . . 13
β’ (π = {β¨1, β¨π, πβ©β©} β (πβ1) = β¨π, πβ©) |
146 | 145 | fveq2d 6893 |
. . . . . . . . . . . 12
β’ (π = {β¨1, β¨π, πβ©β©} β (1st
β(πβ1)) =
(1st ββ¨π, πβ©)) |
147 | 146 | fveqeq2d 6897 |
. . . . . . . . . . 11
β’ (π = {β¨1, β¨π, πβ©β©} β ((πΉβ(1st β(πβ1))) = (πΉβπ) β (πΉβ(1st ββ¨π, πβ©)) = (πΉβπ))) |
148 | 145 | fveq2d 6893 |
. . . . . . . . . . . 12
β’ (π = {β¨1, β¨π, πβ©β©} β (2nd
β(πβ1)) =
(2nd ββ¨π, πβ©)) |
149 | 148 | fveqeq2d 6897 |
. . . . . . . . . . 11
β’ (π = {β¨1, β¨π, πβ©β©} β ((πΉβ(2nd β(πβ1))) = (πΉβπ) β (πΉβ(2nd ββ¨π, πβ©)) = (πΉβπ))) |
150 | 147, 149 | anbi12d 632 |
. . . . . . . . . 10
β’ (π = {β¨1, β¨π, πβ©β©} β (((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)) β ((πΉβ(1st ββ¨π, πβ©)) = (πΉβπ) β§ (πΉβ(2nd ββ¨π, πβ©)) = (πΉβπ)))) |
151 | | coeq2 5857 |
. . . . . . . . . . . 12
β’ (π = {β¨1, β¨π, πβ©β©} β (πΈ β π) = (πΈ β {β¨1, β¨π, πβ©β©})) |
152 | 151 | oveq2d 7422 |
. . . . . . . . . . 11
β’ (π = {β¨1, β¨π, πβ©β©} β
(β*π Ξ£g (πΈ β π)) = (β*π
Ξ£g (πΈ β {β¨1, β¨π, πβ©β©}))) |
153 | 152 | eqeq2d 2744 |
. . . . . . . . . 10
β’ (π = {β¨1, β¨π, πβ©β©} β ((ππΈπ) = (β*π
Ξ£g (πΈ β π)) β (ππΈπ) = (β*π
Ξ£g (πΈ β {β¨1, β¨π, πβ©β©})))) |
154 | 150, 153 | anbi12d 632 |
. . . . . . . . 9
β’ (π = {β¨1, β¨π, πβ©β©} β ((((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π))) β (((πΉβ(1st ββ¨π, πβ©)) = (πΉβπ) β§ (πΉβ(2nd ββ¨π, πβ©)) = (πΉβπ)) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β {β¨1, β¨π, πβ©β©}))))) |
155 | 154 | rspcev 3613 |
. . . . . . . 8
β’
(({β¨1, β¨π,
πβ©β©} β
((π Γ π) βm {1}) β§
(((πΉβ(1st
ββ¨π, πβ©)) = (πΉβπ) β§ (πΉβ(2nd ββ¨π, πβ©)) = (πΉβπ)) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β {β¨1, β¨π, πβ©β©})))) β βπ β ((π Γ π) βm {1})(((πΉβ(1st
β(πβ1))) =
(πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π)))) |
156 | 99, 106, 142, 155 | syl12anc 836 |
. . . . . . 7
β’ (π β βπ β ((π Γ π) βm {1})(((πΉβ(1st
β(πβ1))) =
(πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π)))) |
157 | | ovex 7439 |
. . . . . . . . . 10
β’ (ππΈπ) β V |
158 | | eqid 2733 |
. . . . . . . . . . 11
β’ (π β π β¦
(β*π Ξ£g (πΈ β π))) = (π β π β¦
(β*π Ξ£g (πΈ β π))) |
159 | 158 | elrnmpt 5954 |
. . . . . . . . . 10
β’ ((ππΈπ) β V β ((ππΈπ) β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β βπ β π (ππΈπ) = (β*π
Ξ£g (πΈ β π)))) |
160 | 157, 159 | ax-mp 5 |
. . . . . . . . 9
β’ ((ππΈπ) β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β βπ β π (ππΈπ) = (β*π
Ξ£g (πΈ β π))) |
161 | 15 | rexeqi 3325 |
. . . . . . . . . . 11
β’
(βπ β
π (ππΈπ) = (β*π
Ξ£g (πΈ β π)) β βπ β {β β ((π Γ π) βm (1...π)) β£ ((πΉβ(1st β(ββ1))) = (πΉβπ) β§ (πΉβ(2nd β(ββπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(ββπ))) = (πΉβ(1st β(ββ(π + 1)))))} (ππΈπ) = (β*π
Ξ£g (πΈ β π))) |
162 | | fveq1 6888 |
. . . . . . . . . . . . . . 15
β’ (β = π β (ββ1) = (πβ1)) |
163 | 162 | fveq2d 6893 |
. . . . . . . . . . . . . 14
β’ (β = π β (1st β(ββ1)) = (1st
β(πβ1))) |
164 | 163 | fveqeq2d 6897 |
. . . . . . . . . . . . 13
β’ (β = π β ((πΉβ(1st β(ββ1))) = (πΉβπ) β (πΉβ(1st β(πβ1))) = (πΉβπ))) |
165 | | fveq1 6888 |
. . . . . . . . . . . . . . 15
β’ (β = π β (ββπ) = (πβπ)) |
166 | 165 | fveq2d 6893 |
. . . . . . . . . . . . . 14
β’ (β = π β (2nd β(ββπ)) = (2nd β(πβπ))) |
167 | 166 | fveqeq2d 6897 |
. . . . . . . . . . . . 13
β’ (β = π β ((πΉβ(2nd β(ββπ))) = (πΉβπ) β (πΉβ(2nd β(πβπ))) = (πΉβπ))) |
168 | | fveq1 6888 |
. . . . . . . . . . . . . . . . 17
β’ (β = π β (ββπ) = (πβπ)) |
169 | 168 | fveq2d 6893 |
. . . . . . . . . . . . . . . 16
β’ (β = π β (2nd β(ββπ)) = (2nd β(πβπ))) |
170 | 169 | fveq2d 6893 |
. . . . . . . . . . . . . . 15
β’ (β = π β (πΉβ(2nd β(ββπ))) = (πΉβ(2nd β(πβπ)))) |
171 | | fveq1 6888 |
. . . . . . . . . . . . . . . . 17
β’ (β = π β (ββ(π + 1)) = (πβ(π + 1))) |
172 | 171 | fveq2d 6893 |
. . . . . . . . . . . . . . . 16
β’ (β = π β (1st β(ββ(π + 1))) = (1st β(πβ(π + 1)))) |
173 | 172 | fveq2d 6893 |
. . . . . . . . . . . . . . 15
β’ (β = π β (πΉβ(1st β(ββ(π + 1)))) = (πΉβ(1st β(πβ(π + 1))))) |
174 | 170, 173 | eqeq12d 2749 |
. . . . . . . . . . . . . 14
β’ (β = π β ((πΉβ(2nd β(ββπ))) = (πΉβ(1st β(ββ(π + 1)))) β (πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1)))))) |
175 | 174 | ralbidv 3178 |
. . . . . . . . . . . . 13
β’ (β = π β (βπ β (1...(π β 1))(πΉβ(2nd β(ββπ))) = (πΉβ(1st β(ββ(π + 1)))) β βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1)))))) |
176 | 164, 167,
175 | 3anbi123d 1437 |
. . . . . . . . . . . 12
β’ (β = π β (((πΉβ(1st β(ββ1))) = (πΉβπ) β§ (πΉβ(2nd β(ββπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(ββπ))) = (πΉβ(1st β(ββ(π + 1))))) β ((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))))) |
177 | 176 | rexrab 3692 |
. . . . . . . . . . 11
β’
(βπ β
{β β ((π Γ π) βm (1...π)) β£ ((πΉβ(1st β(ββ1))) = (πΉβπ) β§ (πΉβ(2nd β(ββπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(ββπ))) = (πΉβ(1st β(ββ(π + 1)))))} (ππΈπ) = (β*π
Ξ£g (πΈ β π)) β βπ β ((π Γ π) βm (1...π))(((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π)))) |
178 | 161, 177 | bitri 275 |
. . . . . . . . . 10
β’
(βπ β
π (ππΈπ) = (β*π
Ξ£g (πΈ β π)) β βπ β ((π Γ π) βm (1...π))(((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π)))) |
179 | | oveq2 7414 |
. . . . . . . . . . . . 13
β’ (π = 1 β (1...π) = (1...1)) |
180 | | 1z 12589 |
. . . . . . . . . . . . . 14
β’ 1 β
β€ |
181 | | fzsn 13540 |
. . . . . . . . . . . . . 14
β’ (1 β
β€ β (1...1) = {1}) |
182 | 180, 181 | ax-mp 5 |
. . . . . . . . . . . . 13
β’ (1...1) =
{1} |
183 | 179, 182 | eqtrdi 2789 |
. . . . . . . . . . . 12
β’ (π = 1 β (1...π) = {1}) |
184 | 183 | oveq2d 7422 |
. . . . . . . . . . 11
β’ (π = 1 β ((π Γ π) βm (1...π)) = ((π Γ π) βm {1})) |
185 | | df-3an 1090 |
. . . . . . . . . . . . 13
β’ (((πΉβ(1st
β(πβ1))) =
(πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))) β (((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ)) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1)))))) |
186 | | ral0 4512 |
. . . . . . . . . . . . . . . 16
β’
βπ β
β
(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1)))) |
187 | | oveq1 7413 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = 1 β (π β 1) = (1 β 1)) |
188 | | 1m1e0 12281 |
. . . . . . . . . . . . . . . . . . . 20
β’ (1
β 1) = 0 |
189 | 187, 188 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = 1 β (π β 1) = 0) |
190 | 189 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (π = 1 β (1...(π β 1)) =
(1...0)) |
191 | | fz10 13519 |
. . . . . . . . . . . . . . . . . 18
β’ (1...0) =
β
|
192 | 190, 191 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . 17
β’ (π = 1 β (1...(π β 1)) =
β
) |
193 | 192 | raleqdv 3326 |
. . . . . . . . . . . . . . . 16
β’ (π = 1 β (βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1)))) β βπ β β
(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1)))))) |
194 | 186, 193 | mpbiri 258 |
. . . . . . . . . . . . . . 15
β’ (π = 1 β βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))) |
195 | 194 | biantrud 533 |
. . . . . . . . . . . . . 14
β’ (π = 1 β (((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ)) β (((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ)) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))))) |
196 | | 2fveq3 6894 |
. . . . . . . . . . . . . . . 16
β’ (π = 1 β (2nd
β(πβπ)) = (2nd
β(πβ1))) |
197 | 196 | fveqeq2d 6897 |
. . . . . . . . . . . . . . 15
β’ (π = 1 β ((πΉβ(2nd β(πβπ))) = (πΉβπ) β (πΉβ(2nd β(πβ1))) = (πΉβπ))) |
198 | 197 | anbi2d 630 |
. . . . . . . . . . . . . 14
β’ (π = 1 β (((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ)) β ((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)))) |
199 | 195, 198 | bitr3d 281 |
. . . . . . . . . . . . 13
β’ (π = 1 β ((((πΉβ(1st
β(πβ1))) =
(πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ)) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))) β ((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)))) |
200 | 185, 199 | bitrid 283 |
. . . . . . . . . . . 12
β’ (π = 1 β (((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))) β ((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)))) |
201 | 200 | anbi1d 631 |
. . . . . . . . . . 11
β’ (π = 1 β ((((πΉβ(1st
β(πβ1))) =
(πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π))) β (((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π))))) |
202 | 184, 201 | rexeqbidv 3344 |
. . . . . . . . . 10
β’ (π = 1 β (βπ β ((π Γ π) βm (1...π))(((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π))) β βπ β ((π Γ π) βm {1})(((πΉβ(1st
β(πβ1))) =
(πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π))))) |
203 | 178, 202 | bitrid 283 |
. . . . . . . . 9
β’ (π = 1 β (βπ β π (ππΈπ) = (β*π
Ξ£g (πΈ β π)) β βπ β ((π Γ π) βm {1})(((πΉβ(1st
β(πβ1))) =
(πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π))))) |
204 | 160, 203 | bitrid 283 |
. . . . . . . 8
β’ (π = 1 β ((ππΈπ) β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β βπ β ((π Γ π) βm {1})(((πΉβ(1st
β(πβ1))) =
(πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π))))) |
205 | 204 | rspcev 3613 |
. . . . . . 7
β’ ((1
β β β§ βπ β ((π Γ π) βm {1})(((πΉβ(1st
β(πβ1))) =
(πΉβπ) β§ (πΉβ(2nd β(πβ1))) = (πΉβπ)) β§ (ππΈπ) = (β*π
Ξ£g (πΈ β π)))) β βπ β β (ππΈπ) β ran (π β π β¦
(β*π Ξ£g (πΈ β π)))) |
206 | 84, 156, 205 | sylancr 588 |
. . . . . 6
β’ (π β βπ β β (ππΈπ) β ran (π β π β¦
(β*π Ξ£g (πΈ β π)))) |
207 | | eliun 5001 |
. . . . . 6
β’ ((ππΈπ) β βͺ
π β β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β βπ β β (ππΈπ) β ran (π β π β¦
(β*π Ξ£g (πΈ β π)))) |
208 | 206, 207 | sylibr 233 |
. . . . 5
β’ (π β (ππΈπ) β βͺ
π β β ran (π β π β¦
(β*π Ξ£g (πΈ β π)))) |
209 | 208, 18 | eleqtrrdi 2845 |
. . . 4
β’ (π β (ππΈπ) β π) |
210 | | infxrlb 13310 |
. . . 4
β’ ((π β β*
β§ (ππΈπ) β π) β inf(π, β*, < ) β€ (ππΈπ)) |
211 | 79, 209, 210 | syl2anc 585 |
. . 3
β’ (π β inf(π, β*, < ) β€ (ππΈπ)) |
212 | 18 | eleq2i 2826 |
. . . . . . 7
β’ (π β π β π β βͺ
π β β ran (π β π β¦
(β*π Ξ£g (πΈ β π)))) |
213 | | eliun 5001 |
. . . . . . 7
β’ (π β βͺ π β β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β βπ β β π β ran (π β π β¦
(β*π Ξ£g (πΈ β π)))) |
214 | 212, 213 | bitri 275 |
. . . . . 6
β’ (π β π β βπ β β π β ran (π β π β¦
(β*π Ξ£g (πΈ β π)))) |
215 | 158 | elrnmpt 5954 |
. . . . . . . . 9
β’ (π β V β (π β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β βπ β π π = (β*π
Ξ£g (πΈ β π)))) |
216 | 215 | elv 3481 |
. . . . . . . 8
β’ (π β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β βπ β π π = (β*π
Ξ£g (πΈ β π))) |
217 | 176, 15 | elrab2 3686 |
. . . . . . . . . . . . . . . . 17
β’ (π β π β (π β ((π Γ π) βm (1...π)) β§ ((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))))) |
218 | 217 | simprbi 498 |
. . . . . . . . . . . . . . . 16
β’ (π β π β ((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1)))))) |
219 | 218 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β) β§ π β π) β ((πΉβ(1st β(πβ1))) = (πΉβπ) β§ (πΉβ(2nd β(πβπ))) = (πΉβπ) β§ βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1)))))) |
220 | 219 | simp2d 1144 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β) β§ π β π) β (πΉβ(2nd β(πβπ))) = (πΉβπ)) |
221 | 3 | ad2antrr 725 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β) β§ π β π) β πΉ:πβ1-1-ontoβπ΅) |
222 | | f1of1 6830 |
. . . . . . . . . . . . . . . 16
β’ (πΉ:πβ1-1-ontoβπ΅ β πΉ:πβ1-1βπ΅) |
223 | 221, 222 | syl 17 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β) β§ π β π) β πΉ:πβ1-1βπ΅) |
224 | | simplr 768 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β β) β§ π β π) β π β β) |
225 | | elfz1end 13528 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β π β (1...π)) |
226 | 224, 225 | sylib 217 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β) β§ π β π) β π β (1...π)) |
227 | 49, 226 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β) β§ π β π) β (πβπ) β (π Γ π)) |
228 | | xp2nd 8005 |
. . . . . . . . . . . . . . . 16
β’ ((πβπ) β (π Γ π) β (2nd β(πβπ)) β π) |
229 | 227, 228 | syl 17 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β) β§ π β π) β (2nd β(πβπ)) β π) |
230 | 13 | ad2antrr 725 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β) β§ π β π) β π β π) |
231 | | f1fveq 7258 |
. . . . . . . . . . . . . . 15
β’ ((πΉ:πβ1-1βπ΅ β§ ((2nd β(πβπ)) β π β§ π β π)) β ((πΉβ(2nd β(πβπ))) = (πΉβπ) β (2nd β(πβπ)) = π)) |
232 | 223, 229,
230, 231 | syl12anc 836 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β) β§ π β π) β ((πΉβ(2nd β(πβπ))) = (πΉβπ) β (2nd β(πβπ)) = π)) |
233 | 220, 232 | mpbid 231 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β) β§ π β π) β (2nd β(πβπ)) = π) |
234 | 233 | oveq2d 7422 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ π β π) β (ππΈ(2nd β(πβπ))) = (ππΈπ)) |
235 | | eleq1 2822 |
. . . . . . . . . . . . . . . . 17
β’ (π = 1 β (π β (1...π) β 1 β (1...π))) |
236 | | 2fveq3 6894 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = 1 β (2nd
β(πβπ)) = (2nd
β(πβ1))) |
237 | 236 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (π = 1 β (ππΈ(2nd β(πβπ))) = (ππΈ(2nd β(πβ1)))) |
238 | | oveq2 7414 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = 1 β (1...π) = (1...1)) |
239 | 238, 182 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = 1 β (1...π) = {1}) |
240 | 239 | reseq2d 5980 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = 1 β ((πΈ β π) βΎ (1...π)) = ((πΈ β π) βΎ {1})) |
241 | 240 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (π = 1 β (π Ξ£g ((πΈ β π) βΎ (1...π))) = (π Ξ£g ((πΈ β π) βΎ {1}))) |
242 | 237, 241 | breq12d 5161 |
. . . . . . . . . . . . . . . . 17
β’ (π = 1 β ((ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π))) β (ππΈ(2nd β(πβ1))) β€ (π Ξ£g ((πΈ β π) βΎ {1})))) |
243 | 235, 242 | imbi12d 345 |
. . . . . . . . . . . . . . . 16
β’ (π = 1 β ((π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π)))) β (1 β (1...π) β (ππΈ(2nd β(πβ1))) β€ (π Ξ£g ((πΈ β π) βΎ {1}))))) |
244 | 243 | imbi2d 341 |
. . . . . . . . . . . . . . 15
β’ (π = 1 β ((((π β§ π β β) β§ π β π) β (π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π))))) β (((π β§ π β β) β§ π β π) β (1 β (1...π) β (ππΈ(2nd β(πβ1))) β€ (π Ξ£g ((πΈ β π) βΎ {1})))))) |
245 | | eleq1 2822 |
. . . . . . . . . . . . . . . . 17
β’ (π = π₯ β (π β (1...π) β π₯ β (1...π))) |
246 | | 2fveq3 6894 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π₯ β (2nd β(πβπ)) = (2nd β(πβπ₯))) |
247 | 246 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π₯ β (ππΈ(2nd β(πβπ))) = (ππΈ(2nd β(πβπ₯)))) |
248 | | oveq2 7414 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π₯ β (1...π) = (1...π₯)) |
249 | 248 | reseq2d 5980 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π₯ β ((πΈ β π) βΎ (1...π)) = ((πΈ β π) βΎ (1...π₯))) |
250 | 249 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π₯ β (π Ξ£g ((πΈ β π) βΎ (1...π))) = (π Ξ£g ((πΈ β π) βΎ (1...π₯)))) |
251 | 247, 250 | breq12d 5161 |
. . . . . . . . . . . . . . . . 17
β’ (π = π₯ β ((ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π))) β (ππΈ(2nd β(πβπ₯))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π₯))))) |
252 | 245, 251 | imbi12d 345 |
. . . . . . . . . . . . . . . 16
β’ (π = π₯ β ((π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π)))) β (π₯ β (1...π) β (ππΈ(2nd β(πβπ₯))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π₯)))))) |
253 | 252 | imbi2d 341 |
. . . . . . . . . . . . . . 15
β’ (π = π₯ β ((((π β§ π β β) β§ π β π) β (π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π))))) β (((π β§ π β β) β§ π β π) β (π₯ β (1...π) β (ππΈ(2nd β(πβπ₯))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π₯))))))) |
254 | | eleq1 2822 |
. . . . . . . . . . . . . . . . 17
β’ (π = (π₯ + 1) β (π β (1...π) β (π₯ + 1) β (1...π))) |
255 | | 2fveq3 6894 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = (π₯ + 1) β (2nd β(πβπ)) = (2nd β(πβ(π₯ + 1)))) |
256 | 255 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (π = (π₯ + 1) β (ππΈ(2nd β(πβπ))) = (ππΈ(2nd β(πβ(π₯ + 1))))) |
257 | | oveq2 7414 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = (π₯ + 1) β (1...π) = (1...(π₯ + 1))) |
258 | 257 | reseq2d 5980 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = (π₯ + 1) β ((πΈ β π) βΎ (1...π)) = ((πΈ β π) βΎ (1...(π₯ + 1)))) |
259 | 258 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (π = (π₯ + 1) β (π Ξ£g ((πΈ β π) βΎ (1...π))) = (π Ξ£g ((πΈ β π) βΎ (1...(π₯ + 1))))) |
260 | 256, 259 | breq12d 5161 |
. . . . . . . . . . . . . . . . 17
β’ (π = (π₯ + 1) β ((ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π))) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ (π Ξ£g ((πΈ β π) βΎ (1...(π₯ + 1)))))) |
261 | 254, 260 | imbi12d 345 |
. . . . . . . . . . . . . . . 16
β’ (π = (π₯ + 1) β ((π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π)))) β ((π₯ + 1) β (1...π) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ (π Ξ£g ((πΈ β π) βΎ (1...(π₯ + 1))))))) |
262 | 261 | imbi2d 341 |
. . . . . . . . . . . . . . 15
β’ (π = (π₯ + 1) β ((((π β§ π β β) β§ π β π) β (π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π))))) β (((π β§ π β β) β§ π β π) β ((π₯ + 1) β (1...π) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ (π Ξ£g ((πΈ β π) βΎ (1...(π₯ + 1)))))))) |
263 | | eleq1 2822 |
. . . . . . . . . . . . . . . . 17
β’ (π = π β (π β (1...π) β π β (1...π))) |
264 | | 2fveq3 6894 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π β (2nd β(πβπ)) = (2nd β(πβπ))) |
265 | 264 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π β (ππΈ(2nd β(πβπ))) = (ππΈ(2nd β(πβπ)))) |
266 | | oveq2 7414 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = π β (1...π) = (1...π)) |
267 | 266 | reseq2d 5980 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = π β ((πΈ β π) βΎ (1...π)) = ((πΈ β π) βΎ (1...π))) |
268 | 267 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π β (π Ξ£g ((πΈ β π) βΎ (1...π))) = (π Ξ£g ((πΈ β π) βΎ (1...π)))) |
269 | 265, 268 | breq12d 5161 |
. . . . . . . . . . . . . . . . 17
β’ (π = π β ((ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π))) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π))))) |
270 | 263, 269 | imbi12d 345 |
. . . . . . . . . . . . . . . 16
β’ (π = π β ((π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π)))) β (π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π)))))) |
271 | 270 | imbi2d 341 |
. . . . . . . . . . . . . . 15
β’ (π = π β ((((π β§ π β β) β§ π β π) β (π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π))))) β (((π β§ π β β) β§ π β π) β (π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π))))))) |
272 | 29 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β) β§ π β π) β πΈ β (βMetβπ)) |
273 | 11 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β) β§ π β π) β π β π) |
274 | | nnuz 12862 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ β =
(β€β₯β1) |
275 | 224, 274 | eleqtrdi 2844 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β β) β§ π β π) β π β
(β€β₯β1)) |
276 | | eluzfz1 13505 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β
(β€β₯β1) β 1 β (1...π)) |
277 | 275, 276 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β β) β§ π β π) β 1 β (1...π)) |
278 | 49, 277 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β β) β§ π β π) β (πβ1) β (π Γ π)) |
279 | | xp2nd 8005 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πβ1) β (π Γ π) β (2nd β(πβ1)) β π) |
280 | 278, 279 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β) β§ π β π) β (2nd β(πβ1)) β π) |
281 | | xmetcl 23829 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πΈ β (βMetβπ) β§ π β π β§ (2nd β(πβ1)) β π) β (ππΈ(2nd β(πβ1))) β
β*) |
282 | 272, 273,
280, 281 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β β) β§ π β π) β (ππΈ(2nd β(πβ1))) β
β*) |
283 | 282 | xrleidd 13128 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β) β§ π β π) β (ππΈ(2nd β(πβ1))) β€ (ππΈ(2nd β(πβ1)))) |
284 | 137 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β) β§ π β π) β π β Mnd) |
285 | 84 | a1i 11 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β) β§ π β π) β 1 β β) |
286 | 44, 278 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β) β§ π β π) β (πΈβ(πβ1)) β (β*
β {-β})) |
287 | | 2fveq3 6894 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = 1 β (πΈβ(πβπ)) = (πΈβ(πβ1))) |
288 | 64, 287 | gsumsn 19817 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β Mnd β§ 1 β
β β§ (πΈβ(πβ1)) β (β*
β {-β})) β (π Ξ£g (π β {1} β¦ (πΈβ(πβπ)))) = (πΈβ(πβ1))) |
289 | 284, 285,
286, 288 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β β) β§ π β π) β (π Ξ£g (π β {1} β¦ (πΈβ(πβπ)))) = (πΈβ(πβ1))) |
290 | 272, 30 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β β) β§ π β π) β πΈ:(π Γ π)βΆβ*) |
291 | | fcompt 7128 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((πΈ:(π Γ π)βΆβ* β§ π:(1...π)βΆ(π Γ π)) β (πΈ β π) = (π β (1...π) β¦ (πΈβ(πβπ)))) |
292 | 290, 49, 291 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β β) β§ π β π) β (πΈ β π) = (π β (1...π) β¦ (πΈβ(πβπ)))) |
293 | 292 | reseq1d 5979 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β β) β§ π β π) β ((πΈ β π) βΎ {1}) = ((π β (1...π) β¦ (πΈβ(πβπ))) βΎ {1})) |
294 | 277 | snssd 4812 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β β) β§ π β π) β {1} β (1...π)) |
295 | 294 | resmptd 6039 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β β) β§ π β π) β ((π β (1...π) β¦ (πΈβ(πβπ))) βΎ {1}) = (π β {1} β¦ (πΈβ(πβπ)))) |
296 | 293, 295 | eqtrd 2773 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β) β§ π β π) β ((πΈ β π) βΎ {1}) = (π β {1} β¦ (πΈβ(πβπ)))) |
297 | 296 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β β) β§ π β π) β (π Ξ£g ((πΈ β π) βΎ {1})) = (π Ξ£g (π β {1} β¦ (πΈβ(πβπ))))) |
298 | | df-ov 7409 |
. . . . . . . . . . . . . . . . . . 19
β’ (ππΈ(2nd β(πβ1))) = (πΈββ¨π, (2nd β(πβ1))β©) |
299 | | 1st2nd2 8011 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((πβ1) β (π Γ π) β (πβ1) = β¨(1st
β(πβ1)),
(2nd β(πβ1))β©) |
300 | 278, 299 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β β) β§ π β π) β (πβ1) = β¨(1st
β(πβ1)),
(2nd β(πβ1))β©) |
301 | 219 | simp1d 1143 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β β) β§ π β π) β (πΉβ(1st β(πβ1))) = (πΉβπ)) |
302 | | xp1st 8004 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((πβ1) β (π Γ π) β (1st β(πβ1)) β π) |
303 | 278, 302 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π β β) β§ π β π) β (1st β(πβ1)) β π) |
304 | | f1fveq 7258 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((πΉ:πβ1-1βπ΅ β§ ((1st β(πβ1)) β π β§ π β π)) β ((πΉβ(1st β(πβ1))) = (πΉβπ) β (1st β(πβ1)) = π)) |
305 | 223, 303,
273, 304 | syl12anc 836 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β β) β§ π β π) β ((πΉβ(1st β(πβ1))) = (πΉβπ) β (1st β(πβ1)) = π)) |
306 | 301, 305 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β β) β§ π β π) β (1st β(πβ1)) = π) |
307 | 306 | opeq1d 4879 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β β) β§ π β π) β β¨(1st β(πβ1)), (2nd
β(πβ1))β© =
β¨π, (2nd
β(πβ1))β©) |
308 | 300, 307 | eqtr2d 2774 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β β) β§ π β π) β β¨π, (2nd β(πβ1))β© = (πβ1)) |
309 | 308 | fveq2d 6893 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β) β§ π β π) β (πΈββ¨π, (2nd β(πβ1))β©) = (πΈβ(πβ1))) |
310 | 298, 309 | eqtrid 2785 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β β) β§ π β π) β (ππΈ(2nd β(πβ1))) = (πΈβ(πβ1))) |
311 | 289, 297,
310 | 3eqtr4d 2783 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β) β§ π β π) β (π Ξ£g ((πΈ β π) βΎ {1})) = (ππΈ(2nd β(πβ1)))) |
312 | 283, 311 | breqtrrd 5176 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β) β§ π β π) β (ππΈ(2nd β(πβ1))) β€ (π Ξ£g ((πΈ β π) βΎ {1}))) |
313 | 312 | a1d 25 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β) β§ π β π) β (1 β (1...π) β (ππΈ(2nd β(πβ1))) β€ (π Ξ£g ((πΈ β π) βΎ {1})))) |
314 | | simprl 770 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β π₯ β β) |
315 | 314, 274 | eleqtrdi 2844 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β π₯ β
(β€β₯β1)) |
316 | | simprr 772 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (π₯ + 1) β (1...π)) |
317 | | peano2fzr 13511 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π₯ β
(β€β₯β1) β§ (π₯ + 1) β (1...π)) β π₯ β (1...π)) |
318 | 315, 316,
317 | syl2anc 585 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β π₯ β (1...π)) |
319 | 318 | expr 458 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β β) β§ π β π) β§ π₯ β β) β ((π₯ + 1) β (1...π) β π₯ β (1...π))) |
320 | 319 | imim1d 82 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β β) β§ π β π) β§ π₯ β β) β ((π₯ β (1...π) β (ππΈ(2nd β(πβπ₯))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π₯)))) β ((π₯ + 1) β (1...π) β (ππΈ(2nd β(πβπ₯))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π₯)))))) |
321 | 272 | adantr 482 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β πΈ β (βMetβπ)) |
322 | 273 | adantr 482 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β π β π) |
323 | 49 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β π:(1...π)βΆ(π Γ π)) |
324 | 323, 318 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (πβπ₯) β (π Γ π)) |
325 | | xp2nd 8005 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((πβπ₯) β (π Γ π) β (2nd β(πβπ₯)) β π) |
326 | 324, 325 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (2nd β(πβπ₯)) β π) |
327 | | xmetcl 23829 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πΈ β (βMetβπ) β§ π β π β§ (2nd β(πβπ₯)) β π) β (ππΈ(2nd β(πβπ₯))) β
β*) |
328 | 321, 322,
326, 327 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (ππΈ(2nd β(πβπ₯))) β
β*) |
329 | 66 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β π β CMnd) |
330 | | fzfid 13935 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (1...π₯) β Fin) |
331 | 51 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (πΈ β π):(1...π)βΆ(β* β
{-β})) |
332 | | fzsuc 13545 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π₯ β
(β€β₯β1) β (1...(π₯ + 1)) = ((1...π₯) βͺ {(π₯ + 1)})) |
333 | 315, 332 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (1...(π₯ + 1)) = ((1...π₯) βͺ {(π₯ + 1)})) |
334 | | elfzuz3 13495 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π₯ + 1) β (1...π) β π β (β€β₯β(π₯ + 1))) |
335 | 334 | ad2antll 728 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β π β (β€β₯β(π₯ + 1))) |
336 | | fzss2 13538 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β
(β€β₯β(π₯ + 1)) β (1...(π₯ + 1)) β (1...π)) |
337 | 335, 336 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (1...(π₯ + 1)) β (1...π)) |
338 | 333, 337 | eqsstrrd 4021 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((1...π₯) βͺ {(π₯ + 1)}) β (1...π)) |
339 | 338 | unssad 4187 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (1...π₯) β (1...π)) |
340 | 331, 339 | fssresd 6756 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((πΈ β π) βΎ (1...π₯)):(1...π₯)βΆ(β* β
{-β})) |
341 | 68 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β 0 β V) |
342 | 340, 330,
341 | fdmfifsupp 9370 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((πΈ β π) βΎ (1...π₯)) finSupp 0) |
343 | 64, 65, 329, 330, 340, 342 | gsumcl 19778 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (π Ξ£g ((πΈ β π) βΎ (1...π₯))) β (β* β
{-β})) |
344 | 343 | eldifad 3960 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (π Ξ£g ((πΈ β π) βΎ (1...π₯))) β
β*) |
345 | 321, 30 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β πΈ:(π Γ π)βΆβ*) |
346 | 323, 316 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (πβ(π₯ + 1)) β (π Γ π)) |
347 | 345, 346 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (πΈβ(πβ(π₯ + 1))) β
β*) |
348 | | xleadd1a 13229 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((ππΈ(2nd β(πβπ₯))) β β* β§ (π Ξ£g
((πΈ β π) βΎ (1...π₯))) β β*
β§ (πΈβ(πβ(π₯ + 1))) β β*) β§
(ππΈ(2nd β(πβπ₯))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π₯)))) β ((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1)))) β€ ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1))))) |
349 | 348 | ex 414 |
. . . . . . . . . . . . . . . . . . 19
β’ (((ππΈ(2nd β(πβπ₯))) β β* β§ (π Ξ£g
((πΈ β π) βΎ (1...π₯))) β β*
β§ (πΈβ(πβ(π₯ + 1))) β β*) β
((ππΈ(2nd β(πβπ₯))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π₯))) β ((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1)))) β€ ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1)))))) |
350 | 328, 344,
347, 349 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((ππΈ(2nd β(πβπ₯))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π₯))) β ((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1)))) β€ ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1)))))) |
351 | | xp2nd 8005 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((πβ(π₯ + 1)) β (π Γ π) β (2nd β(πβ(π₯ + 1))) β π) |
352 | 346, 351 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (2nd β(πβ(π₯ + 1))) β π) |
353 | | xmettri 23849 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((πΈ β (βMetβπ) β§ (π β π β§ (2nd β(πβ(π₯ + 1))) β π β§ (2nd β(πβπ₯)) β π)) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ ((ππΈ(2nd β(πβπ₯))) +π ((2nd
β(πβπ₯))πΈ(2nd β(πβ(π₯ + 1)))))) |
354 | 321, 322,
352, 326, 353 | syl13anc 1373 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ ((ππΈ(2nd β(πβπ₯))) +π ((2nd
β(πβπ₯))πΈ(2nd β(πβ(π₯ + 1)))))) |
355 | | 1st2nd2 8011 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((πβ(π₯ + 1)) β (π Γ π) β (πβ(π₯ + 1)) = β¨(1st β(πβ(π₯ + 1))), (2nd β(πβ(π₯ + 1)))β©) |
356 | 346, 355 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (πβ(π₯ + 1)) = β¨(1st β(πβ(π₯ + 1))), (2nd β(πβ(π₯ + 1)))β©) |
357 | | 2fveq3 6894 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π = π₯ β (2nd β(πβπ)) = (2nd β(πβπ₯))) |
358 | 357 | fveq2d 6893 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π = π₯ β (πΉβ(2nd β(πβπ))) = (πΉβ(2nd β(πβπ₯)))) |
359 | | fvoveq1 7429 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (π = π₯ β (πβ(π + 1)) = (πβ(π₯ + 1))) |
360 | 359 | fveq2d 6893 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π = π₯ β (1st β(πβ(π + 1))) = (1st β(πβ(π₯ + 1)))) |
361 | 360 | fveq2d 6893 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π = π₯ β (πΉβ(1st β(πβ(π + 1)))) = (πΉβ(1st β(πβ(π₯ + 1))))) |
362 | 358, 361 | eqeq12d 2749 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π = π₯ β ((πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1)))) β (πΉβ(2nd β(πβπ₯))) = (πΉβ(1st β(πβ(π₯ + 1)))))) |
363 | 219 | simp3d 1145 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β β) β§ π β π) β βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))) |
364 | 363 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β βπ β (1...(π β 1))(πΉβ(2nd β(πβπ))) = (πΉβ(1st β(πβ(π + 1))))) |
365 | | nnz 12576 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (π₯ β β β π₯ β
β€) |
366 | 365 | ad2antrl 727 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β π₯ β β€) |
367 | | eluzp1m1 12845 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((π₯ β β€ β§ π β
(β€β₯β(π₯ + 1))) β (π β 1) β
(β€β₯βπ₯)) |
368 | 366, 335,
367 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (π β 1) β
(β€β₯βπ₯)) |
369 | | elfzuzb 13492 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π₯ β (1...(π β 1)) β (π₯ β (β€β₯β1)
β§ (π β 1) β
(β€β₯βπ₯))) |
370 | 315, 368,
369 | sylanbrc 584 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β π₯ β (1...(π β 1))) |
371 | 362, 364,
370 | rspcdva 3614 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (πΉβ(2nd β(πβπ₯))) = (πΉβ(1st β(πβ(π₯ + 1))))) |
372 | 223 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β πΉ:πβ1-1βπ΅) |
373 | | xp1st 8004 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((πβ(π₯ + 1)) β (π Γ π) β (1st β(πβ(π₯ + 1))) β π) |
374 | 346, 373 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (1st β(πβ(π₯ + 1))) β π) |
375 | | f1fveq 7258 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((πΉ:πβ1-1βπ΅ β§ ((2nd β(πβπ₯)) β π β§ (1st β(πβ(π₯ + 1))) β π)) β ((πΉβ(2nd β(πβπ₯))) = (πΉβ(1st β(πβ(π₯ + 1)))) β (2nd β(πβπ₯)) = (1st β(πβ(π₯ + 1))))) |
376 | 372, 326,
374, 375 | syl12anc 836 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((πΉβ(2nd β(πβπ₯))) = (πΉβ(1st β(πβ(π₯ + 1)))) β (2nd β(πβπ₯)) = (1st β(πβ(π₯ + 1))))) |
377 | 371, 376 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (2nd β(πβπ₯)) = (1st β(πβ(π₯ + 1)))) |
378 | 377 | opeq1d 4879 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β β¨(2nd
β(πβπ₯)), (2nd
β(πβ(π₯ + 1)))β© =
β¨(1st β(πβ(π₯ + 1))), (2nd β(πβ(π₯ + 1)))β©) |
379 | 356, 378 | eqtr4d 2776 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (πβ(π₯ + 1)) = β¨(2nd β(πβπ₯)), (2nd β(πβ(π₯ + 1)))β©) |
380 | 379 | fveq2d 6893 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (πΈβ(πβ(π₯ + 1))) = (πΈββ¨(2nd β(πβπ₯)), (2nd β(πβ(π₯ + 1)))β©)) |
381 | | df-ov 7409 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((2nd β(πβπ₯))πΈ(2nd β(πβ(π₯ + 1)))) = (πΈββ¨(2nd β(πβπ₯)), (2nd β(πβ(π₯ + 1)))β©) |
382 | 380, 381 | eqtr4di 2791 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (πΈβ(πβ(π₯ + 1))) = ((2nd β(πβπ₯))πΈ(2nd β(πβ(π₯ + 1))))) |
383 | 382 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1)))) = ((ππΈ(2nd β(πβπ₯))) +π ((2nd
β(πβπ₯))πΈ(2nd β(πβ(π₯ + 1)))))) |
384 | 354, 383 | breqtrrd 5176 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ ((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1))))) |
385 | | xmetcl 23829 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((πΈ β (βMetβπ) β§ π β π β§ (2nd β(πβ(π₯ + 1))) β π) β (ππΈ(2nd β(πβ(π₯ + 1)))) β
β*) |
386 | 321, 322,
352, 385 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (ππΈ(2nd β(πβ(π₯ + 1)))) β
β*) |
387 | 328, 347 | xaddcld 13277 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1)))) β
β*) |
388 | 344, 347 | xaddcld 13277 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1)))) β
β*) |
389 | | xrletr 13134 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((ππΈ(2nd β(πβ(π₯ + 1)))) β β* β§
((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1)))) β β* β§
((π
Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1)))) β β*) β
(((ππΈ(2nd β(πβ(π₯ + 1)))) β€ ((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1)))) β§ ((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1)))) β€ ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1))))) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1)))))) |
390 | 386, 387,
388, 389 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (((ππΈ(2nd β(πβ(π₯ + 1)))) β€ ((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1)))) β§ ((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1)))) β€ ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1))))) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1)))))) |
391 | 384, 390 | mpand 694 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (((ππΈ(2nd β(πβπ₯))) +π (πΈβ(πβ(π₯ + 1)))) β€ ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1)))) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1)))))) |
392 | 350, 391 | syld 47 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((ππΈ(2nd β(πβπ₯))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π₯))) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1)))))) |
393 | | xrex 12968 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
β* β V |
394 | 393 | difexi 5328 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(β* β {-β}) β V |
395 | 23, 22 | ressplusg 17232 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((β* β {-β}) β V β
+π = (+gβπ)) |
396 | 394, 395 | ax-mp 5 |
. . . . . . . . . . . . . . . . . . . 20
β’
+π = (+gβπ) |
397 | 44 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β§ π β (1...π₯)) β πΈ:(π Γ π)βΆ(β* β
{-β})) |
398 | | fzelp1 13550 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β (1...π₯) β π β (1...(π₯ + 1))) |
399 | 49 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β§ π β (1...(π₯ + 1))) β π:(1...π)βΆ(π Γ π)) |
400 | 337 | sselda 3982 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β§ π β (1...(π₯ + 1))) β π β (1...π)) |
401 | 399, 400 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β§ π β (1...(π₯ + 1))) β (πβπ) β (π Γ π)) |
402 | 398, 401 | sylan2 594 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β§ π β (1...π₯)) β (πβπ) β (π Γ π)) |
403 | 397, 402 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β§ π β (1...π₯)) β (πΈβ(πβπ)) β (β* β
{-β})) |
404 | | fzp1disj 13557 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((1...π₯) β©
{(π₯ + 1)}) =
β
|
405 | 404 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((1...π₯) β© {(π₯ + 1)}) = β
) |
406 | | disjsn 4715 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((1...π₯) β©
{(π₯ + 1)}) = β
β
Β¬ (π₯ + 1) β
(1...π₯)) |
407 | 405, 406 | sylib 217 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β Β¬ (π₯ + 1) β (1...π₯)) |
408 | 44 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β πΈ:(π Γ π)βΆ(β* β
{-β})) |
409 | 408, 346 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (πΈβ(πβ(π₯ + 1))) β (β* β
{-β})) |
410 | | 2fveq3 6894 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = (π₯ + 1) β (πΈβ(πβπ)) = (πΈβ(πβ(π₯ + 1)))) |
411 | 64, 396, 329, 330, 403, 316, 407, 409, 410 | gsumunsn 19823 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (π Ξ£g (π β ((1...π₯) βͺ {(π₯ + 1)}) β¦ (πΈβ(πβπ)))) = ((π Ξ£g (π β (1...π₯) β¦ (πΈβ(πβπ)))) +π (πΈβ(πβ(π₯ + 1))))) |
412 | 292 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (πΈ β π) = (π β (1...π) β¦ (πΈβ(πβπ)))) |
413 | 412, 333 | reseq12d 5981 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((πΈ β π) βΎ (1...(π₯ + 1))) = ((π β (1...π) β¦ (πΈβ(πβπ))) βΎ ((1...π₯) βͺ {(π₯ + 1)}))) |
414 | 338 | resmptd 6039 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((π β (1...π) β¦ (πΈβ(πβπ))) βΎ ((1...π₯) βͺ {(π₯ + 1)})) = (π β ((1...π₯) βͺ {(π₯ + 1)}) β¦ (πΈβ(πβπ)))) |
415 | 413, 414 | eqtrd 2773 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((πΈ β π) βΎ (1...(π₯ + 1))) = (π β ((1...π₯) βͺ {(π₯ + 1)}) β¦ (πΈβ(πβπ)))) |
416 | 415 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (π Ξ£g ((πΈ β π) βΎ (1...(π₯ + 1)))) = (π Ξ£g (π β ((1...π₯) βͺ {(π₯ + 1)}) β¦ (πΈβ(πβπ))))) |
417 | 412 | reseq1d 5979 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((πΈ β π) βΎ (1...π₯)) = ((π β (1...π) β¦ (πΈβ(πβπ))) βΎ (1...π₯))) |
418 | 339 | resmptd 6039 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((π β (1...π) β¦ (πΈβ(πβπ))) βΎ (1...π₯)) = (π β (1...π₯) β¦ (πΈβ(πβπ)))) |
419 | 417, 418 | eqtrd 2773 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((πΈ β π) βΎ (1...π₯)) = (π β (1...π₯) β¦ (πΈβ(πβπ)))) |
420 | 419 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (π Ξ£g ((πΈ β π) βΎ (1...π₯))) = (π Ξ£g (π β (1...π₯) β¦ (πΈβ(πβπ))))) |
421 | 420 | oveq1d 7421 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1)))) = ((π Ξ£g (π β (1...π₯) β¦ (πΈβ(πβπ)))) +π (πΈβ(πβ(π₯ + 1))))) |
422 | 411, 416,
421 | 3eqtr4d 2783 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β (π Ξ£g ((πΈ β π) βΎ (1...(π₯ + 1)))) = ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1))))) |
423 | 422 | breq2d 5160 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((ππΈ(2nd β(πβ(π₯ + 1)))) β€ (π Ξ£g ((πΈ β π) βΎ (1...(π₯ + 1)))) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ ((π Ξ£g ((πΈ β π) βΎ (1...π₯))) +π (πΈβ(πβ(π₯ + 1)))))) |
424 | 392, 423 | sylibrd 259 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β β) β§ π β π) β§ (π₯ β β β§ (π₯ + 1) β (1...π))) β ((ππΈ(2nd β(πβπ₯))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π₯))) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ (π Ξ£g ((πΈ β π) βΎ (1...(π₯ + 1)))))) |
425 | 320, 424 | animpimp2impd 845 |
. . . . . . . . . . . . . . 15
β’ (π₯ β β β ((((π β§ π β β) β§ π β π) β (π₯ β (1...π) β (ππΈ(2nd β(πβπ₯))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π₯))))) β (((π β§ π β β) β§ π β π) β ((π₯ + 1) β (1...π) β (ππΈ(2nd β(πβ(π₯ + 1)))) β€ (π Ξ£g ((πΈ β π) βΎ (1...(π₯ + 1)))))))) |
426 | 244, 253,
262, 271, 313, 425 | nnind 12227 |
. . . . . . . . . . . . . 14
β’ (π β β β (((π β§ π β β) β§ π β π) β (π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π)))))) |
427 | 224, 426 | mpcom 38 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β) β§ π β π) β (π β (1...π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π))))) |
428 | 226, 427 | mpd 15 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ π β π) β (ππΈ(2nd β(πβπ))) β€ (π Ξ£g ((πΈ β π) βΎ (1...π)))) |
429 | 234, 428 | eqbrtrrd 5172 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β π) β (ππΈπ) β€ (π Ξ£g ((πΈ β π) βΎ (1...π)))) |
430 | | ffn 6715 |
. . . . . . . . . . . . . 14
β’ ((πΈ β π):(1...π)βΆ(β* β
{-β}) β (πΈ
β π) Fn (1...π)) |
431 | | fnresdm 6667 |
. . . . . . . . . . . . . 14
β’ ((πΈ β π) Fn (1...π) β ((πΈ β π) βΎ (1...π)) = (πΈ β π)) |
432 | 51, 430, 431 | 3syl 18 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β) β§ π β π) β ((πΈ β π) βΎ (1...π)) = (πΈ β π)) |
433 | 432 | oveq2d 7422 |
. . . . . . . . . . . 12
β’ (((π β§ π β β) β§ π β π) β (π Ξ£g ((πΈ β π) βΎ (1...π))) = (π Ξ£g (πΈ β π))) |
434 | 62, 433 | eqtr4d 2776 |
. . . . . . . . . . 11
β’ (((π β§ π β β) β§ π β π) β
(β*π Ξ£g (πΈ β π)) = (π Ξ£g ((πΈ β π) βΎ (1...π)))) |
435 | 429, 434 | breqtrrd 5176 |
. . . . . . . . . 10
β’ (((π β§ π β β) β§ π β π) β (ππΈπ) β€
(β*π Ξ£g (πΈ β π))) |
436 | | breq2 5152 |
. . . . . . . . . 10
β’ (π =
(β*π Ξ£g (πΈ β π)) β ((ππΈπ) β€ π β (ππΈπ) β€
(β*π Ξ£g (πΈ β π)))) |
437 | 435, 436 | syl5ibrcom 246 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ π β π) β (π = (β*π
Ξ£g (πΈ β π)) β (ππΈπ) β€ π)) |
438 | 437 | rexlimdva 3156 |
. . . . . . . 8
β’ ((π β§ π β β) β (βπ β π π = (β*π
Ξ£g (πΈ β π)) β (ππΈπ) β€ π)) |
439 | 216, 438 | biimtrid 241 |
. . . . . . 7
β’ ((π β§ π β β) β (π β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β (ππΈπ) β€ π)) |
440 | 439 | rexlimdva 3156 |
. . . . . 6
β’ (π β (βπ β β π β ran (π β π β¦
(β*π Ξ£g (πΈ β π))) β (ππΈπ) β€ π)) |
441 | 214, 440 | biimtrid 241 |
. . . . 5
β’ (π β (π β π β (ππΈπ) β€ π)) |
442 | 441 | ralrimiv 3146 |
. . . 4
β’ (π β βπ β π (ππΈπ) β€ π) |
443 | | infxrgelb 13311 |
. . . . 5
β’ ((π β β*
β§ (ππΈπ) β β*) β ((ππΈπ) β€ inf(π, β*, < ) β
βπ β π (ππΈπ) β€ π)) |
444 | 79, 83, 443 | syl2anc 585 |
. . . 4
β’ (π β ((ππΈπ) β€ inf(π, β*, < ) β
βπ β π (ππΈπ) β€ π)) |
445 | 442, 444 | mpbird 257 |
. . 3
β’ (π β (ππΈπ) β€ inf(π, β*, <
)) |
446 | 81, 83, 211, 445 | xrletrid 13131 |
. 2
β’ (π β inf(π, β*, < ) = (ππΈπ)) |
447 | 20, 446 | eqtrd 2773 |
1
β’ (π β ((πΉβπ)π·(πΉβπ)) = (ππΈπ)) |