Step | Hyp | Ref
| Expression |
1 | | fveq2 6191 |
. . . . . . . . . . 11
⊢ (𝑢 = 𝐴 → (#‘𝑢) = (#‘𝐴)) |
2 | 1 | oveq2d 6666 |
. . . . . . . . . 10
⊢ (𝑢 = 𝐴 → (0...(#‘𝑢)) = (0...(#‘𝐴))) |
3 | | id 22 |
. . . . . . . . . . . 12
⊢ (𝑢 = 𝐴 → 𝑢 = 𝐴) |
4 | | oveq1 6657 |
. . . . . . . . . . . 12
⊢ (𝑢 = 𝐴 → (𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉) =
(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)) |
5 | 3, 4 | breq12d 4666 |
. . . . . . . . . . 11
⊢ (𝑢 = 𝐴 → (𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)
↔ 𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
6 | 5 | 2ralbidv 2989 |
. . . . . . . . . 10
⊢ (𝑢 = 𝐴 → (∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)
↔ ∀𝑎 ∈
𝐼 ∀𝑏 ∈ 2𝑜
𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
7 | 2, 6 | raleqbidv 3152 |
. . . . . . . . 9
⊢ (𝑢 = 𝐴 → (∀𝑖 ∈ (0...(#‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)
↔ ∀𝑖 ∈
(0...(#‘𝐴))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
8 | 7 | rspcv 3305 |
. . . . . . . 8
⊢ (𝐴 ∈ 𝑊 → (∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(#‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)
→ ∀𝑖 ∈
(0...(#‘𝐴))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
9 | | oteq1 4411 |
. . . . . . . . . . . . 13
⊢ (𝑖 = 𝑁 → 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉 =
〈𝑁, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉) |
10 | | oteq2 4412 |
. . . . . . . . . . . . 13
⊢ (𝑖 = 𝑁 → 〈𝑁, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉 =
〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉) |
11 | 9, 10 | eqtrd 2656 |
. . . . . . . . . . . 12
⊢ (𝑖 = 𝑁 → 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉 =
〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉) |
12 | 11 | oveq2d 6666 |
. . . . . . . . . . 11
⊢ (𝑖 = 𝑁 → (𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉) =
(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)) |
13 | 12 | breq2d 4665 |
. . . . . . . . . 10
⊢ (𝑖 = 𝑁 → (𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)
↔ 𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
14 | 13 | 2ralbidv 2989 |
. . . . . . . . 9
⊢ (𝑖 = 𝑁 → (∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)
↔ ∀𝑎 ∈
𝐼 ∀𝑏 ∈ 2𝑜
𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
15 | 14 | rspcv 3305 |
. . . . . . . 8
⊢ (𝑁 ∈ (0...(#‘𝐴)) → (∀𝑖 ∈ (0...(#‘𝐴))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝐴𝑟(𝐴 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)
→ ∀𝑎 ∈
𝐼 ∀𝑏 ∈ 2𝑜
𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
16 | 8, 15 | sylan9 689 |
. . . . . . 7
⊢ ((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(#‘𝐴))) → (∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(#‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)
→ ∀𝑎 ∈
𝐼 ∀𝑏 ∈ 2𝑜
𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
17 | | opeq1 4402 |
. . . . . . . . . . . 12
⊢ (𝑎 = 𝐽 → 〈𝑎, 𝑏〉 = 〈𝐽, 𝑏〉) |
18 | | opeq1 4402 |
. . . . . . . . . . . 12
⊢ (𝑎 = 𝐽 → 〈𝑎, (1𝑜 ∖ 𝑏)〉 = 〈𝐽, (1𝑜 ∖
𝑏)〉) |
19 | 17, 18 | s2eqd 13608 |
. . . . . . . . . . 11
⊢ (𝑎 = 𝐽 → 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉 =
〈“〈𝐽, 𝑏〉〈𝐽, (1𝑜 ∖ 𝑏)〉”〉) |
20 | 19 | oteq3d 4416 |
. . . . . . . . . 10
⊢ (𝑎 = 𝐽 → 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉 =
〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1𝑜 ∖ 𝑏)〉”〉〉) |
21 | 20 | oveq2d 6666 |
. . . . . . . . 9
⊢ (𝑎 = 𝐽 → (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉) =
(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1𝑜 ∖ 𝑏)〉”〉〉)) |
22 | 21 | breq2d 4665 |
. . . . . . . 8
⊢ (𝑎 = 𝐽 → (𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)
↔ 𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1𝑜 ∖ 𝑏)〉”〉〉))) |
23 | | opeq2 4403 |
. . . . . . . . . . . . 13
⊢ (𝑏 = 𝐾 → 〈𝐽, 𝑏〉 = 〈𝐽, 𝐾〉) |
24 | | difeq2 3722 |
. . . . . . . . . . . . . 14
⊢ (𝑏 = 𝐾 → (1𝑜 ∖ 𝑏) = (1𝑜
∖ 𝐾)) |
25 | 24 | opeq2d 4409 |
. . . . . . . . . . . . 13
⊢ (𝑏 = 𝐾 → 〈𝐽, (1𝑜 ∖ 𝑏)〉 = 〈𝐽, (1𝑜 ∖
𝐾)〉) |
26 | 23, 25 | s2eqd 13608 |
. . . . . . . . . . . 12
⊢ (𝑏 = 𝐾 → 〈“〈𝐽, 𝑏〉〈𝐽, (1𝑜 ∖ 𝑏)〉”〉 =
〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉) |
27 | 26 | oteq3d 4416 |
. . . . . . . . . . 11
⊢ (𝑏 = 𝐾 → 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1𝑜 ∖ 𝑏)〉”〉〉 =
〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉) |
28 | 27 | oveq2d 6666 |
. . . . . . . . . 10
⊢ (𝑏 = 𝐾 → (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1𝑜 ∖ 𝑏)〉”〉〉) =
(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)) |
29 | 28 | breq2d 4665 |
. . . . . . . . 9
⊢ (𝑏 = 𝐾 → (𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1𝑜 ∖ 𝑏)〉”〉〉)
↔ 𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉))) |
30 | | df-br 4654 |
. . . . . . . . 9
⊢ (𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)
↔ 〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
𝑟) |
31 | 29, 30 | syl6bb 276 |
. . . . . . . 8
⊢ (𝑏 = 𝐾 → (𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝑏〉〈𝐽, (1𝑜 ∖ 𝑏)〉”〉〉)
↔ 〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
𝑟)) |
32 | 22, 31 | rspc2v 3322 |
. . . . . . 7
⊢ ((𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2𝑜) →
(∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝐴𝑟(𝐴 splice 〈𝑁, 𝑁, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)
→ 〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
𝑟)) |
33 | 16, 32 | sylan9 689 |
. . . . . 6
⊢ (((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(#‘𝐴))) ∧ (𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2𝑜)) →
(∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(#‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)
→ 〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
𝑟)) |
34 | 33 | adantld 483 |
. . . . 5
⊢ (((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(#‘𝐴))) ∧ (𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2𝑜)) →
((𝑟 Er 𝑊 ∧ ∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(#‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))
→ 〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
𝑟)) |
35 | 34 | alrimiv 1855 |
. . . 4
⊢ (((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(#‘𝐴))) ∧ (𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2𝑜)) →
∀𝑟((𝑟 Er 𝑊 ∧ ∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(#‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))
→ 〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
𝑟)) |
36 | | opex 4932 |
. . . . 5
⊢
〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
V |
37 | 36 | elintab 4487 |
. . . 4
⊢
(〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
∩ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(#‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))}
↔ ∀𝑟((𝑟 Er 𝑊 ∧ ∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(#‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))
→ 〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
𝑟)) |
38 | 35, 37 | sylibr 224 |
. . 3
⊢ (((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(#‘𝐴))) ∧ (𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2𝑜)) →
〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
∩ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(#‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))}) |
39 | | efgval.w |
. . . 4
⊢ 𝑊 = ( I ‘Word (𝐼 ×
2𝑜)) |
40 | | efgval.r |
. . . 4
⊢ ∼ = (
~FG ‘𝐼) |
41 | 39, 40 | efgval 18130 |
. . 3
⊢ ∼ =
∩ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑢 ∈ 𝑊 ∀𝑖 ∈ (0...(#‘𝑢))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑢𝑟(𝑢 splice 〈𝑖, 𝑖, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))} |
42 | 38, 41 | syl6eleqr 2712 |
. 2
⊢ (((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(#‘𝐴))) ∧ (𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2𝑜)) →
〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
∼
) |
43 | | df-br 4654 |
. 2
⊢ (𝐴 ∼ (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)
↔ 〈𝐴, (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)〉 ∈
∼
) |
44 | 42, 43 | sylibr 224 |
1
⊢ (((𝐴 ∈ 𝑊 ∧ 𝑁 ∈ (0...(#‘𝐴))) ∧ (𝐽 ∈ 𝐼 ∧ 𝐾 ∈ 2𝑜)) → 𝐴 ∼ (𝐴 splice 〈𝑁, 𝑁, 〈“〈𝐽, 𝐾〉〈𝐽, (1𝑜 ∖ 𝐾)〉”〉〉)) |