Step | Hyp | Ref
| Expression |
1 | | fveq2 6756 |
. . . . . . . . . . 11
⊢ (𝑢 = 𝐴 → (♯‘𝑢) = (♯‘𝐴)) |
2 | 1 | oveq2d 7271 |
. . . . . . . . . 10
⊢ (𝑢 = 𝐴 → (0...(♯‘𝑢)) = (0...(♯‘𝐴))) |
3 | | id 22 |
. . . . . . . . . . . 12
⊢ (𝑢 = 𝐴 → 𝑢 = 𝐴) |
4 | | oveq1 7262 |
. . . . . . . . . . . 12
⊢ (𝑢 = 𝐴 → (𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) = (𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉)) |
5 | 3, 4 | breq12d 5083 |
. . . . . . . . . . 11
⊢ (𝑢 = 𝐴 → (𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) ↔ 𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉))) |
6 | 5 | 2ralbidv 3122 |
. . . . . . . . . 10
⊢ (𝑢 = 𝐴 → (∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) ↔
∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉))) |
7 | 2, 6 | raleqbidv 3327 |
. . . . . . . . 9
⊢ (𝑢 = 𝐴 → (∀𝑖 ∈ (0...(♯‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) ↔
∀𝑖 ∈
(0...(♯‘𝐴))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉))) |
8 | 7 | rspcv 3547 |
. . . . . . . 8
⊢ (𝐴 ∈ 𝑊 → (∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(♯‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) →
∀𝑖 ∈
(0...(♯‘𝐴))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉))) |
9 | | oteq1 4810 |
. . . . . . . . . . . . 13
⊢ (𝑖 = 𝑁 → 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉 = 〈𝑁, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) |
10 | | oteq2 4811 |
. . . . . . . . . . . . 13
⊢ (𝑖 = 𝑁 → 〈𝑁, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉 = 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) |
11 | 9, 10 | eqtrd 2778 |
. . . . . . . . . . . 12
⊢ (𝑖 = 𝑁 → 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉 = 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) |
12 | 11 | oveq2d 7271 |
. . . . . . . . . . 11
⊢ (𝑖 = 𝑁 → (𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) = (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉)) |
13 | 12 | breq2d 5082 |
. . . . . . . . . 10
⊢ (𝑖 = 𝑁 → (𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) ↔ 𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉))) |
14 | 13 | 2ralbidv 3122 |
. . . . . . . . 9
⊢ (𝑖 = 𝑁 → (∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) ↔
∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉))) |
15 | 14 | rspcv 3547 |
. . . . . . . 8
⊢ (𝑁 ∈
(0...(♯‘𝐴))
→ (∀𝑖 ∈
(0...(♯‘𝐴))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) →
∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉))) |
16 | 8, 15 | sylan9 507 |
. . . . . . 7
⊢ ((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(♯‘𝐴))) → (∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(♯‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) →
∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉))) |
17 | | opeq1 4801 |
. . . . . . . . . . . 12
⊢ (𝑎 = 𝐽 → 〈𝑎, 𝑏〉 = 〈𝐽, 𝑏〉) |
18 | | opeq1 4801 |
. . . . . . . . . . . 12
⊢ (𝑎 = 𝐽 → 〈𝑎, (1o ∖ 𝑏)〉 = 〈𝐽, (1o ∖ 𝑏)〉) |
19 | 17, 18 | s2eqd 14504 |
. . . . . . . . . . 11
⊢ (𝑎 = 𝐽 → 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉 =
〈“〈𝐽, 𝑏〉〈𝐽, (1o ∖ 𝑏)〉”〉) |
20 | 19 | oteq3d 4815 |
. . . . . . . . . 10
⊢ (𝑎 = 𝐽 → 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉 = 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1o ∖ 𝑏)〉”〉〉) |
21 | 20 | oveq2d 7271 |
. . . . . . . . 9
⊢ (𝑎 = 𝐽 → (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) = (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1o ∖ 𝑏)〉”〉〉)) |
22 | 21 | breq2d 5082 |
. . . . . . . 8
⊢ (𝑎 = 𝐽 → (𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) ↔ 𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1o ∖ 𝑏)〉”〉〉))) |
23 | | opeq2 4802 |
. . . . . . . . . . . . 13
⊢ (𝑏 = 𝐾 → 〈𝐽, 𝑏〉 = 〈𝐽, 𝐾〉) |
24 | | difeq2 4047 |
. . . . . . . . . . . . . 14
⊢ (𝑏 = 𝐾 → (1o ∖ 𝑏) = (1o ∖ 𝐾)) |
25 | 24 | opeq2d 4808 |
. . . . . . . . . . . . 13
⊢ (𝑏 = 𝐾 → 〈𝐽, (1o ∖ 𝑏)〉 = 〈𝐽, (1o ∖ 𝐾)〉) |
26 | 23, 25 | s2eqd 14504 |
. . . . . . . . . . . 12
⊢ (𝑏 = 𝐾 → 〈“〈𝐽, 𝑏〉〈𝐽, (1o ∖ 𝑏)〉”〉 =
〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉) |
27 | 26 | oteq3d 4815 |
. . . . . . . . . . 11
⊢ (𝑏 = 𝐾 → 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1o ∖ 𝑏)〉”〉〉 = 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉) |
28 | 27 | oveq2d 7271 |
. . . . . . . . . 10
⊢ (𝑏 = 𝐾 → (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1o ∖ 𝑏)〉”〉〉) = (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉)) |
29 | 28 | breq2d 5082 |
. . . . . . . . 9
⊢ (𝑏 = 𝐾 → (𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1o ∖ 𝑏)〉”〉〉) ↔ 𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉))) |
30 | | df-br 5071 |
. . . . . . . . 9
⊢ (𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉) ↔
〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉)〉 ∈
𝑟) |
31 | 29, 30 | bitrdi 286 |
. . . . . . . 8
⊢ (𝑏 = 𝐾 → (𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1o ∖ 𝑏)〉”〉〉) ↔
〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉)〉 ∈
𝑟)) |
32 | 22, 31 | rspc2v 3562 |
. . . . . . 7
⊢ ((𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2o) → (∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) →
〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉)〉 ∈
𝑟)) |
33 | 16, 32 | sylan9 507 |
. . . . . 6
⊢ (((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(♯‘𝐴))) ∧ (𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2o)) →
(∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(♯‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉) →
〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉)〉 ∈
𝑟)) |
34 | 33 | adantld 490 |
. . . . 5
⊢ (((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(♯‘𝐴))) ∧ (𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2o)) → ((𝑟 Er 𝑊 ∧ ∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(♯‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉)) →
〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉)〉 ∈
𝑟)) |
35 | 34 | alrimiv 1931 |
. . . 4
⊢ (((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(♯‘𝐴))) ∧ (𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2o)) → ∀𝑟((𝑟 Er 𝑊 ∧ ∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(♯‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉)) →
〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉)〉 ∈
𝑟)) |
36 | | opex 5373 |
. . . . 5
⊢
〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉)〉 ∈
V |
37 | 36 | elintab 4887 |
. . . 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 19238 |
. . 3
⊢ ∼ =
∩ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(♯‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2o 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1o ∖ 𝑏)〉”〉〉))} |
42 | 38, 41 | eleqtrrdi 2850 |
. 2
⊢ (((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(♯‘𝐴))) ∧ (𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2o)) → 〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉)〉 ∈
∼
) |
43 | | df-br 5071 |
. 2
⊢ (𝐴 ∼ (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉) ↔
〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉)〉 ∈
∼
) |
44 | 42, 43 | sylibr 233 |
1
⊢ (((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(♯‘𝐴))) ∧ (𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2o)) → 𝐴 ∼ (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1o ∖ 𝐾)〉”〉〉)) |