Step | Hyp | Ref
| Expression |
1 | | efgval.w |
. . 3
⊢ 𝑊 = ( I ‘Word (𝐼 ×
2𝑜)) |
2 | | efgval.r |
. . 3
⊢ ∼ = (
~FG ‘𝐼) |
3 | 1, 2 | efgval 18176 |
. 2
⊢ ∼ =
∩ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑚 ∈ (0...(#‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))} |
4 | | efgval2.m |
. . . . . . . . . . 11
⊢ 𝑀 = (𝑦 ∈ 𝐼, 𝑧 ∈ 2𝑜 ↦
〈𝑦,
(1𝑜 ∖ 𝑧)〉) |
5 | | efgval2.t |
. . . . . . . . . . 11
⊢ 𝑇 = (𝑣 ∈ 𝑊 ↦ (𝑛 ∈ (0...(#‘𝑣)), 𝑤 ∈ (𝐼 × 2𝑜) ↦
(𝑣 splice 〈𝑛, 𝑛, 〈“𝑤(𝑀‘𝑤)”〉〉))) |
6 | 1, 2, 4, 5 | efgtf 18181 |
. . . . . . . . . 10
⊢ (𝑥 ∈ 𝑊 → ((𝑇‘𝑥) = (𝑚 ∈ (0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉)) ∧ (𝑇‘𝑥):((0...(#‘𝑥)) × (𝐼 ×
2𝑜))⟶𝑊)) |
7 | 6 | simpld 474 |
. . . . . . . . 9
⊢ (𝑥 ∈ 𝑊 → (𝑇‘𝑥) = (𝑚 ∈ (0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉))) |
8 | 7 | rneqd 5385 |
. . . . . . . 8
⊢ (𝑥 ∈ 𝑊 → ran (𝑇‘𝑥) = ran (𝑚 ∈ (0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉))) |
9 | 8 | sseq1d 3665 |
. . . . . . 7
⊢ (𝑥 ∈ 𝑊 → (ran (𝑇‘𝑥) ⊆ [𝑥]𝑟 ↔ ran (𝑚 ∈ (0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉)) ⊆ [𝑥]𝑟)) |
10 | | dfss3 3625 |
. . . . . . . 8
⊢ (ran
(𝑚 ∈
(0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉)) ⊆ [𝑥]𝑟 ↔ ∀𝑎 ∈ ran (𝑚 ∈ (0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉))𝑎 ∈ [𝑥]𝑟) |
11 | | ovex 6718 |
. . . . . . . . . . 11
⊢ (𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉) ∈
V |
12 | 11 | rgen2w 2954 |
. . . . . . . . . 10
⊢
∀𝑚 ∈
(0...(#‘𝑥))∀𝑢 ∈ (𝐼 × 2𝑜)(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉) ∈
V |
13 | | eqid 2651 |
. . . . . . . . . . 11
⊢ (𝑚 ∈ (0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉)) = (𝑚 ∈ (0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉)) |
14 | | vex 3234 |
. . . . . . . . . . . . 13
⊢ 𝑎 ∈ V |
15 | | vex 3234 |
. . . . . . . . . . . . 13
⊢ 𝑥 ∈ V |
16 | 14, 15 | elec 7829 |
. . . . . . . . . . . 12
⊢ (𝑎 ∈ [𝑥]𝑟 ↔ 𝑥𝑟𝑎) |
17 | | breq2 4689 |
. . . . . . . . . . . 12
⊢ (𝑎 = (𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉) → (𝑥𝑟𝑎 ↔ 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉))) |
18 | 16, 17 | syl5bb 272 |
. . . . . . . . . . 11
⊢ (𝑎 = (𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉) → (𝑎 ∈ [𝑥]𝑟 ↔ 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉))) |
19 | 13, 18 | ralrnmpt2 6817 |
. . . . . . . . . 10
⊢
(∀𝑚 ∈
(0...(#‘𝑥))∀𝑢 ∈ (𝐼 × 2𝑜)(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉) ∈ V →
(∀𝑎 ∈ ran
(𝑚 ∈
(0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉))𝑎 ∈ [𝑥]𝑟 ↔ ∀𝑚 ∈ (0...(#‘𝑥))∀𝑢 ∈ (𝐼 × 2𝑜)𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉))) |
20 | 12, 19 | ax-mp 5 |
. . . . . . . . 9
⊢
(∀𝑎 ∈
ran (𝑚 ∈
(0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉))𝑎 ∈ [𝑥]𝑟 ↔ ∀𝑚 ∈ (0...(#‘𝑥))∀𝑢 ∈ (𝐼 × 2𝑜)𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉)) |
21 | | id 22 |
. . . . . . . . . . . . . . . 16
⊢ (𝑢 = 〈𝑎, 𝑏〉 → 𝑢 = 〈𝑎, 𝑏〉) |
22 | | fveq2 6229 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑢 = 〈𝑎, 𝑏〉 → (𝑀‘𝑢) = (𝑀‘〈𝑎, 𝑏〉)) |
23 | | df-ov 6693 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑎𝑀𝑏) = (𝑀‘〈𝑎, 𝑏〉) |
24 | 22, 23 | syl6eqr 2703 |
. . . . . . . . . . . . . . . 16
⊢ (𝑢 = 〈𝑎, 𝑏〉 → (𝑀‘𝑢) = (𝑎𝑀𝑏)) |
25 | 21, 24 | s2eqd 13654 |
. . . . . . . . . . . . . . 15
⊢ (𝑢 = 〈𝑎, 𝑏〉 → 〈“𝑢(𝑀‘𝑢)”〉 = 〈“〈𝑎, 𝑏〉(𝑎𝑀𝑏)”〉) |
26 | 25 | oteq3d 4447 |
. . . . . . . . . . . . . 14
⊢ (𝑢 = 〈𝑎, 𝑏〉 → 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉 = 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉(𝑎𝑀𝑏)”〉〉) |
27 | 26 | oveq2d 6706 |
. . . . . . . . . . . . 13
⊢ (𝑢 = 〈𝑎, 𝑏〉 → (𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉) = (𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉(𝑎𝑀𝑏)”〉〉)) |
28 | 27 | breq2d 4697 |
. . . . . . . . . . . 12
⊢ (𝑢 = 〈𝑎, 𝑏〉 → (𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉) ↔ 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉(𝑎𝑀𝑏)”〉〉))) |
29 | 28 | ralxp 5296 |
. . . . . . . . . . 11
⊢
(∀𝑢 ∈
(𝐼 ×
2𝑜)𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉) ↔ ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉(𝑎𝑀𝑏)”〉〉)) |
30 | | eqidd 2652 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2𝑜) →
〈𝑎, 𝑏〉 = 〈𝑎, 𝑏〉) |
31 | 4 | efgmval 18171 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2𝑜) → (𝑎𝑀𝑏) = 〈𝑎, (1𝑜 ∖ 𝑏)〉) |
32 | 30, 31 | s2eqd 13654 |
. . . . . . . . . . . . . . . 16
⊢ ((𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2𝑜) →
〈“〈𝑎, 𝑏〉(𝑎𝑀𝑏)”〉 = 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉) |
33 | 32 | oteq3d 4447 |
. . . . . . . . . . . . . . 15
⊢ ((𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2𝑜) →
〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉(𝑎𝑀𝑏)”〉〉 = 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉) |
34 | 33 | oveq2d 6706 |
. . . . . . . . . . . . . 14
⊢ ((𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2𝑜) → (𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉(𝑎𝑀𝑏)”〉〉) = (𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)) |
35 | 34 | breq2d 4697 |
. . . . . . . . . . . . 13
⊢ ((𝑎 ∈ 𝐼 ∧ 𝑏 ∈ 2𝑜) → (𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉(𝑎𝑀𝑏)”〉〉) ↔ 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
36 | 35 | ralbidva 3014 |
. . . . . . . . . . . 12
⊢ (𝑎 ∈ 𝐼 → (∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉(𝑎𝑀𝑏)”〉〉) ↔ ∀𝑏 ∈ 2𝑜
𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
37 | 36 | ralbiia 3008 |
. . . . . . . . . . 11
⊢
(∀𝑎 ∈
𝐼 ∀𝑏 ∈ 2𝑜
𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉(𝑎𝑀𝑏)”〉〉) ↔ ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)) |
38 | 29, 37 | bitri 264 |
. . . . . . . . . 10
⊢
(∀𝑢 ∈
(𝐼 ×
2𝑜)𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉) ↔ ∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)) |
39 | 38 | ralbii 3009 |
. . . . . . . . 9
⊢
(∀𝑚 ∈
(0...(#‘𝑥))∀𝑢 ∈ (𝐼 × 2𝑜)𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉) ↔ ∀𝑚 ∈ (0...(#‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)) |
40 | 20, 39 | bitri 264 |
. . . . . . . 8
⊢
(∀𝑎 ∈
ran (𝑚 ∈
(0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉))𝑎 ∈ [𝑥]𝑟 ↔ ∀𝑚 ∈ (0...(#‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)) |
41 | 10, 40 | bitri 264 |
. . . . . . 7
⊢ (ran
(𝑚 ∈
(0...(#‘𝑥)), 𝑢 ∈ (𝐼 × 2𝑜) ↦
(𝑥 splice 〈𝑚, 𝑚, 〈“𝑢(𝑀‘𝑢)”〉〉)) ⊆ [𝑥]𝑟 ↔ ∀𝑚 ∈ (0...(#‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)) |
42 | 9, 41 | syl6bb 276 |
. . . . . 6
⊢ (𝑥 ∈ 𝑊 → (ran (𝑇‘𝑥) ⊆ [𝑥]𝑟 ↔ ∀𝑚 ∈ (0...(#‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
43 | 42 | ralbiia 3008 |
. . . . 5
⊢
(∀𝑥 ∈
𝑊 ran (𝑇‘𝑥) ⊆ [𝑥]𝑟 ↔ ∀𝑥 ∈ 𝑊 ∀𝑚 ∈ (0...(#‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉)) |
44 | 43 | anbi2i 730 |
. . . 4
⊢ ((𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ran (𝑇‘𝑥) ⊆ [𝑥]𝑟) ↔ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑚 ∈ (0...(#‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))) |
45 | 44 | abbii 2768 |
. . 3
⊢ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ran (𝑇‘𝑥) ⊆ [𝑥]𝑟)} = {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑚 ∈ (0...(#‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))} |
46 | 45 | inteqi 4511 |
. 2
⊢ ∩ {𝑟
∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ran (𝑇‘𝑥) ⊆ [𝑥]𝑟)} = ∩ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ∀𝑚 ∈ (0...(#‘𝑥))∀𝑎 ∈ 𝐼 ∀𝑏 ∈ 2𝑜 𝑥𝑟(𝑥 splice 〈𝑚, 𝑚, 〈“〈𝑎, 𝑏〉〈𝑎, (1𝑜 ∖ 𝑏)〉”〉〉))} |
47 | 3, 46 | eqtr4i 2676 |
1
⊢ ∼ =
∩ {𝑟 ∣ (𝑟 Er 𝑊 ∧ ∀𝑥 ∈ 𝑊 ran (𝑇‘𝑥) ⊆ [𝑥]𝑟)} |