Step | Hyp | Ref
| Expression |
1 | | fveq2 6892 |
. . . . . . . . . . 11
β’ (π’ = π΄ β (β―βπ’) = (β―βπ΄)) |
2 | 1 | oveq2d 7429 |
. . . . . . . . . 10
β’ (π’ = π΄ β (0...(β―βπ’)) = (0...(β―βπ΄))) |
3 | | id 22 |
. . . . . . . . . . . 12
β’ (π’ = π΄ β π’ = π΄) |
4 | | oveq1 7420 |
. . . . . . . . . . . 12
β’ (π’ = π΄ β (π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) = (π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©)) |
5 | 3, 4 | breq12d 5162 |
. . . . . . . . . . 11
β’ (π’ = π΄ β (π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) β π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©))) |
6 | 5 | 2ralbidv 3216 |
. . . . . . . . . 10
β’ (π’ = π΄ β (βπ β πΌ βπ β 2o π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) β
βπ β πΌ βπ β 2o π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©))) |
7 | 2, 6 | raleqbidv 3340 |
. . . . . . . . 9
β’ (π’ = π΄ β (βπ β (0...(β―βπ’))βπ β πΌ βπ β 2o π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) β
βπ β
(0...(β―βπ΄))βπ β πΌ βπ β 2o π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©))) |
8 | 7 | rspcv 3609 |
. . . . . . . 8
β’ (π΄ β π β (βπ’ β π βπ β (0...(β―βπ’))βπ β πΌ βπ β 2o π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) β
βπ β
(0...(β―βπ΄))βπ β πΌ βπ β 2o π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©))) |
9 | | oteq1 4883 |
. . . . . . . . . . . . 13
β’ (π = π β β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β© = β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) |
10 | | oteq2 4884 |
. . . . . . . . . . . . 13
β’ (π = π β β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β© = β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) |
11 | 9, 10 | eqtrd 2770 |
. . . . . . . . . . . 12
β’ (π = π β β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β© = β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) |
12 | 11 | oveq2d 7429 |
. . . . . . . . . . 11
β’ (π = π β (π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) = (π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©)) |
13 | 12 | breq2d 5161 |
. . . . . . . . . 10
β’ (π = π β (π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) β π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©))) |
14 | 13 | 2ralbidv 3216 |
. . . . . . . . 9
β’ (π = π β (βπ β πΌ βπ β 2o π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) β
βπ β πΌ βπ β 2o π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©))) |
15 | 14 | rspcv 3609 |
. . . . . . . 8
β’ (π β
(0...(β―βπ΄))
β (βπ β
(0...(β―βπ΄))βπ β πΌ βπ β 2o π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) β
βπ β πΌ βπ β 2o π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©))) |
16 | 8, 15 | sylan9 506 |
. . . . . . 7
β’ ((π΄ β π β§ π β (0...(β―βπ΄))) β (βπ’ β π βπ β (0...(β―βπ’))βπ β πΌ βπ β 2o π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) β
βπ β πΌ βπ β 2o π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©))) |
17 | | opeq1 4874 |
. . . . . . . . . . . 12
β’ (π = π½ β β¨π, πβ© = β¨π½, πβ©) |
18 | | opeq1 4874 |
. . . . . . . . . . . 12
β’ (π = π½ β β¨π, (1o β π)β© = β¨π½, (1o β π)β©) |
19 | 17, 18 | s2eqd 14820 |
. . . . . . . . . . 11
β’ (π = π½ β β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ© =
β¨ββ¨π½, πβ©β¨π½, (1o β π)β©ββ©) |
20 | 19 | oteq3d 4888 |
. . . . . . . . . 10
β’ (π = π½ β β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β© = β¨π, π, β¨ββ¨π½, πβ©β¨π½, (1o β π)β©ββ©β©) |
21 | 20 | oveq2d 7429 |
. . . . . . . . 9
β’ (π = π½ β (π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) = (π΄ splice β¨π, π, β¨ββ¨π½, πβ©β¨π½, (1o β π)β©ββ©β©)) |
22 | 21 | breq2d 5161 |
. . . . . . . 8
β’ (π = π½ β (π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) β π΄π(π΄ splice β¨π, π, β¨ββ¨π½, πβ©β¨π½, (1o β π)β©ββ©β©))) |
23 | | opeq2 4875 |
. . . . . . . . . . . . 13
β’ (π = πΎ β β¨π½, πβ© = β¨π½, πΎβ©) |
24 | | difeq2 4117 |
. . . . . . . . . . . . . 14
β’ (π = πΎ β (1o β π) = (1o β πΎ)) |
25 | 24 | opeq2d 4881 |
. . . . . . . . . . . . 13
β’ (π = πΎ β β¨π½, (1o β π)β© = β¨π½, (1o β πΎ)β©) |
26 | 23, 25 | s2eqd 14820 |
. . . . . . . . . . . 12
β’ (π = πΎ β β¨ββ¨π½, πβ©β¨π½, (1o β π)β©ββ© =
β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©) |
27 | 26 | oteq3d 4888 |
. . . . . . . . . . 11
β’ (π = πΎ β β¨π, π, β¨ββ¨π½, πβ©β¨π½, (1o β π)β©ββ©β© = β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©) |
28 | 27 | oveq2d 7429 |
. . . . . . . . . 10
β’ (π = πΎ β (π΄ splice β¨π, π, β¨ββ¨π½, πβ©β¨π½, (1o β π)β©ββ©β©) = (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)) |
29 | 28 | breq2d 5161 |
. . . . . . . . 9
β’ (π = πΎ β (π΄π(π΄ splice β¨π, π, β¨ββ¨π½, πβ©β¨π½, (1o β π)β©ββ©β©) β π΄π(π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©))) |
30 | | df-br 5150 |
. . . . . . . . 9
β’ (π΄π(π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©) β
β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
π) |
31 | 29, 30 | bitrdi 286 |
. . . . . . . 8
β’ (π = πΎ β (π΄π(π΄ splice β¨π, π, β¨ββ¨π½, πβ©β¨π½, (1o β π)β©ββ©β©) β
β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
π)) |
32 | 22, 31 | rspc2v 3623 |
. . . . . . 7
β’ ((π½ β πΌ β§ πΎ β 2o) β (βπ β πΌ βπ β 2o π΄π(π΄ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) β
β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
π)) |
33 | 16, 32 | sylan9 506 |
. . . . . 6
β’ (((π΄ β π β§ π β (0...(β―βπ΄))) β§ (π½ β πΌ β§ πΎ β 2o)) β
(βπ’ β π βπ β (0...(β―βπ’))βπ β πΌ βπ β 2o π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©) β
β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
π)) |
34 | 33 | adantld 489 |
. . . . 5
β’ (((π΄ β π β§ π β (0...(β―βπ΄))) β§ (π½ β πΌ β§ πΎ β 2o)) β ((π Er π β§ βπ’ β π βπ β (0...(β―βπ’))βπ β πΌ βπ β 2o π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©)) β
β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
π)) |
35 | 34 | alrimiv 1928 |
. . . 4
β’ (((π΄ β π β§ π β (0...(β―βπ΄))) β§ (π½ β πΌ β§ πΎ β 2o)) β βπ((π Er π β§ βπ’ β π βπ β (0...(β―βπ’))βπ β πΌ βπ β 2o π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©)) β
β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
π)) |
36 | | opex 5465 |
. . . . 5
β’
β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
V |
37 | 36 | elintab 4963 |
. . . 4
β’
(β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
β© {π β£ (π Er π β§ βπ’ β π βπ β (0...(β―βπ’))βπ β πΌ βπ β 2o π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©))} β
βπ((π Er π β§ βπ’ β π βπ β (0...(β―βπ’))βπ β πΌ βπ β 2o π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©)) β
β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
π)) |
38 | 35, 37 | sylibr 233 |
. . 3
β’ (((π΄ β π β§ π β (0...(β―βπ΄))) β§ (π½ β πΌ β§ πΎ β 2o)) β β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
β© {π β£ (π Er π β§ βπ’ β π βπ β (0...(β―βπ’))βπ β πΌ βπ β 2o π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©))}) |
39 | | efgval.w |
. . . 4
β’ π = ( I βWord (πΌ Γ
2o)) |
40 | | efgval.r |
. . . 4
β’ βΌ = (
~FG βπΌ) |
41 | 39, 40 | efgval 19628 |
. . 3
β’ βΌ =
β© {π β£ (π Er π β§ βπ’ β π βπ β (0...(β―βπ’))βπ β πΌ βπ β 2o π’π(π’ splice β¨π, π, β¨ββ¨π, πβ©β¨π, (1o β π)β©ββ©β©))} |
42 | 38, 41 | eleqtrrdi 2842 |
. 2
β’ (((π΄ β π β§ π β (0...(β―βπ΄))) β§ (π½ β πΌ β§ πΎ β 2o)) β β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
βΌ
) |
43 | | df-br 5150 |
. 2
β’ (π΄ βΌ (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©) β
β¨π΄, (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)β© β
βΌ
) |
44 | 42, 43 | sylibr 233 |
1
β’ (((π΄ β π β§ π β (0...(β―βπ΄))) β§ (π½ β πΌ β§ πΎ β 2o)) β π΄ βΌ (π΄ splice β¨π, π, β¨ββ¨π½, πΎβ©β¨π½, (1o β πΎ)β©ββ©β©)) |