Step | Hyp | Ref
| Expression |
1 | | opsrval.o |
. 2
⊢ 𝑂 = ((𝐼 ordPwSer 𝑅)‘𝑇) |
2 | | opsrval.i |
. . . . 5
⊢ (𝜑 → 𝐼 ∈ 𝑉) |
3 | | elex 3212 |
. . . . 5
⊢ (𝐼 ∈ 𝑉 → 𝐼 ∈ V) |
4 | 2, 3 | syl 17 |
. . . 4
⊢ (𝜑 → 𝐼 ∈ V) |
5 | | opsrval.r |
. . . . 5
⊢ (𝜑 → 𝑅 ∈ 𝑊) |
6 | | elex 3212 |
. . . . 5
⊢ (𝑅 ∈ 𝑊 → 𝑅 ∈ V) |
7 | 5, 6 | syl 17 |
. . . 4
⊢ (𝜑 → 𝑅 ∈ V) |
8 | | xpexg 6960 |
. . . . . 6
⊢ ((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) → (𝐼 × 𝐼) ∈ V) |
9 | 2, 2, 8 | syl2anc 693 |
. . . . 5
⊢ (𝜑 → (𝐼 × 𝐼) ∈ V) |
10 | | pwexg 4850 |
. . . . 5
⊢ ((𝐼 × 𝐼) ∈ V → 𝒫 (𝐼 × 𝐼) ∈ V) |
11 | | mptexg 6484 |
. . . . 5
⊢
(𝒫 (𝐼
× 𝐼) ∈ V →
(𝑟 ∈ 𝒫 (𝐼 × 𝐼) ↦ (𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉)) ∈ V) |
12 | 9, 10, 11 | 3syl 18 |
. . . 4
⊢ (𝜑 → (𝑟 ∈ 𝒫 (𝐼 × 𝐼) ↦ (𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉)) ∈ V) |
13 | | simpl 473 |
. . . . . . . 8
⊢ ((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) → 𝑖 = 𝐼) |
14 | 13 | sqxpeqd 5141 |
. . . . . . 7
⊢ ((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) → (𝑖 × 𝑖) = (𝐼 × 𝐼)) |
15 | 14 | pweqd 4163 |
. . . . . 6
⊢ ((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) → 𝒫 (𝑖 × 𝑖) = 𝒫 (𝐼 × 𝐼)) |
16 | | ovexd 6680 |
. . . . . . 7
⊢ ((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) → (𝑖 mPwSer 𝑠) ∈ V) |
17 | | id 22 |
. . . . . . . . . 10
⊢ (𝑝 = (𝑖 mPwSer 𝑠) → 𝑝 = (𝑖 mPwSer 𝑠)) |
18 | | oveq12 6659 |
. . . . . . . . . 10
⊢ ((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) → (𝑖 mPwSer 𝑠) = (𝐼 mPwSer 𝑅)) |
19 | 17, 18 | sylan9eqr 2678 |
. . . . . . . . 9
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → 𝑝 = (𝐼 mPwSer 𝑅)) |
20 | | opsrval.s |
. . . . . . . . 9
⊢ 𝑆 = (𝐼 mPwSer 𝑅) |
21 | 19, 20 | syl6eqr 2674 |
. . . . . . . 8
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → 𝑝 = 𝑆) |
22 | 21 | fveq2d 6195 |
. . . . . . . . . . . . 13
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → (Base‘𝑝) = (Base‘𝑆)) |
23 | | opsrval.b |
. . . . . . . . . . . . 13
⊢ 𝐵 = (Base‘𝑆) |
24 | 22, 23 | syl6eqr 2674 |
. . . . . . . . . . . 12
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → (Base‘𝑝) = 𝐵) |
25 | 24 | sseq2d 3633 |
. . . . . . . . . . 11
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → ({𝑥, 𝑦} ⊆ (Base‘𝑝) ↔ {𝑥, 𝑦} ⊆ 𝐵)) |
26 | | ovex 6678 |
. . . . . . . . . . . . . . 15
⊢
(ℕ0 ↑𝑚 𝑖) ∈ V |
27 | 26 | rabex 4813 |
. . . . . . . . . . . . . 14
⊢ {ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} ∈
V |
28 | 27 | a1i 11 |
. . . . . . . . . . . . 13
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → {ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} ∈
V) |
29 | 13 | adantr 481 |
. . . . . . . . . . . . . . . 16
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → 𝑖 = 𝐼) |
30 | 29 | oveq2d 6666 |
. . . . . . . . . . . . . . 15
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → (ℕ0
↑𝑚 𝑖) = (ℕ0
↑𝑚 𝐼)) |
31 | | rabeq 3192 |
. . . . . . . . . . . . . . 15
⊢
((ℕ0 ↑𝑚 𝑖) = (ℕ0
↑𝑚 𝐼) → {ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} = {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈
Fin}) |
32 | 30, 31 | syl 17 |
. . . . . . . . . . . . . 14
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → {ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} = {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈
Fin}) |
33 | | opsrval.d |
. . . . . . . . . . . . . 14
⊢ 𝐷 = {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} |
34 | 32, 33 | syl6eqr 2674 |
. . . . . . . . . . . . 13
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → {ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} = 𝐷) |
35 | | simpr 477 |
. . . . . . . . . . . . . 14
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → 𝑑 = 𝐷) |
36 | | simpllr 799 |
. . . . . . . . . . . . . . . . . 18
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → 𝑠 = 𝑅) |
37 | 36 | fveq2d 6195 |
. . . . . . . . . . . . . . . . 17
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → (lt‘𝑠) = (lt‘𝑅)) |
38 | | opsrval.q |
. . . . . . . . . . . . . . . . 17
⊢ < =
(lt‘𝑅) |
39 | 37, 38 | syl6eqr 2674 |
. . . . . . . . . . . . . . . 16
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → (lt‘𝑠) = < ) |
40 | 39 | breqd 4664 |
. . . . . . . . . . . . . . 15
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → ((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ↔ (𝑥‘𝑧) < (𝑦‘𝑧))) |
41 | 29 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → 𝑖 = 𝐼) |
42 | 41 | oveq2d 6666 |
. . . . . . . . . . . . . . . . . 18
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → (𝑟 <bag 𝑖) = (𝑟 <bag 𝐼)) |
43 | 42 | breqd 4664 |
. . . . . . . . . . . . . . . . 17
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → (𝑤(𝑟 <bag 𝑖)𝑧 ↔ 𝑤(𝑟 <bag 𝐼)𝑧)) |
44 | 43 | imbi1d 331 |
. . . . . . . . . . . . . . . 16
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → ((𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤)) ↔ (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤)))) |
45 | 35, 44 | raleqbidv 3152 |
. . . . . . . . . . . . . . 15
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → (∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤)) ↔ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤)))) |
46 | 40, 45 | anbi12d 747 |
. . . . . . . . . . . . . 14
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → (((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ↔ ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))))) |
47 | 35, 46 | rexeqbidv 3153 |
. . . . . . . . . . . . 13
⊢ ((((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) ∧ 𝑑 = 𝐷) → (∃𝑧 ∈ 𝑑 ((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ↔ ∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))))) |
48 | 28, 34, 47 | sbcied2 3473 |
. . . . . . . . . . . 12
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → ([{ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} / 𝑑]∃𝑧 ∈ 𝑑 ((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ↔ ∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))))) |
49 | 48 | orbi1d 739 |
. . . . . . . . . . 11
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → (([{ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} / 𝑑]∃𝑧 ∈ 𝑑 ((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦) ↔ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))) |
50 | 25, 49 | anbi12d 747 |
. . . . . . . . . 10
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → (({𝑥, 𝑦} ⊆ (Base‘𝑝) ∧ ([{ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} / 𝑑]∃𝑧 ∈ 𝑑 ((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦)) ↔ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦)))) |
51 | 50 | opabbidv 4716 |
. . . . . . . . 9
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ (Base‘𝑝) ∧ ([{ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} / 𝑑]∃𝑧 ∈ 𝑑 ((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} = {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}) |
52 | 51 | opeq2d 4409 |
. . . . . . . 8
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ (Base‘𝑝) ∧ ([{ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} / 𝑑]∃𝑧 ∈ 𝑑 ((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉 = 〈(le‘ndx),
{〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉) |
53 | 21, 52 | oveq12d 6668 |
. . . . . . 7
⊢ (((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) ∧ 𝑝 = (𝑖 mPwSer 𝑠)) → (𝑝 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ (Base‘𝑝) ∧ ([{ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} / 𝑑]∃𝑧 ∈ 𝑑 ((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉) = (𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉)) |
54 | 16, 53 | csbied 3560 |
. . . . . 6
⊢ ((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) → ⦋(𝑖 mPwSer 𝑠) / 𝑝⦌(𝑝 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ (Base‘𝑝) ∧ ([{ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} / 𝑑]∃𝑧 ∈ 𝑑 ((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉) = (𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉)) |
55 | 15, 54 | mpteq12dv 4733 |
. . . . 5
⊢ ((𝑖 = 𝐼 ∧ 𝑠 = 𝑅) → (𝑟 ∈ 𝒫 (𝑖 × 𝑖) ↦ ⦋(𝑖 mPwSer 𝑠) / 𝑝⦌(𝑝 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ (Base‘𝑝) ∧ ([{ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} / 𝑑]∃𝑧 ∈ 𝑑 ((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉)) = (𝑟 ∈ 𝒫 (𝐼 × 𝐼) ↦ (𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉))) |
56 | | df-opsr 19360 |
. . . . 5
⊢ ordPwSer
= (𝑖 ∈ V, 𝑠 ∈ V ↦ (𝑟 ∈ 𝒫 (𝑖 × 𝑖) ↦ ⦋(𝑖 mPwSer 𝑠) / 𝑝⦌(𝑝 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ (Base‘𝑝) ∧ ([{ℎ ∈ (ℕ0
↑𝑚 𝑖) ∣ (◡ℎ “ ℕ) ∈ Fin} / 𝑑]∃𝑧 ∈ 𝑑 ((𝑥‘𝑧)(lt‘𝑠)(𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝑑 (𝑤(𝑟 <bag 𝑖)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉))) |
57 | 55, 56 | ovmpt2ga 6790 |
. . . 4
⊢ ((𝐼 ∈ V ∧ 𝑅 ∈ V ∧ (𝑟 ∈ 𝒫 (𝐼 × 𝐼) ↦ (𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉)) ∈ V) → (𝐼 ordPwSer 𝑅) = (𝑟 ∈ 𝒫 (𝐼 × 𝐼) ↦ (𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉))) |
58 | 4, 7, 12, 57 | syl3anc 1326 |
. . 3
⊢ (𝜑 → (𝐼 ordPwSer 𝑅) = (𝑟 ∈ 𝒫 (𝐼 × 𝐼) ↦ (𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉))) |
59 | | simpr 477 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → 𝑟 = 𝑇) |
60 | 59 | oveq1d 6665 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → (𝑟 <bag 𝐼) = (𝑇 <bag 𝐼)) |
61 | | opsrval.c |
. . . . . . . . . . . . . . 15
⊢ 𝐶 = (𝑇 <bag 𝐼) |
62 | 60, 61 | syl6eqr 2674 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → (𝑟 <bag 𝐼) = 𝐶) |
63 | 62 | breqd 4664 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → (𝑤(𝑟 <bag 𝐼)𝑧 ↔ 𝑤𝐶𝑧)) |
64 | 63 | imbi1d 331 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → ((𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤)) ↔ (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤)))) |
65 | 64 | ralbidv 2986 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → (∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤)) ↔ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤)))) |
66 | 65 | anbi2d 740 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → (((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ↔ ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))))) |
67 | 66 | rexbidv 3052 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ↔ ∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))))) |
68 | 67 | orbi1d 739 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → ((∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦) ↔ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))) |
69 | 68 | anbi2d 740 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → (({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦)) ↔ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦)))) |
70 | 69 | opabbidv 4716 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} = {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}) |
71 | | opsrval.l |
. . . . . 6
⊢ ≤ =
{〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} |
72 | 70, 71 | syl6eqr 2674 |
. . . . 5
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} = ≤ ) |
73 | 72 | opeq2d 4409 |
. . . 4
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉 = 〈(le‘ndx), ≤
〉) |
74 | 73 | oveq2d 6666 |
. . 3
⊢ ((𝜑 ∧ 𝑟 = 𝑇) → (𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤(𝑟 <bag 𝐼)𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉) = (𝑆 sSet 〈(le‘ndx), ≤
〉)) |
75 | | opsrval.t |
. . . 4
⊢ (𝜑 → 𝑇 ⊆ (𝐼 × 𝐼)) |
76 | | elpw2g 4827 |
. . . . 5
⊢ ((𝐼 × 𝐼) ∈ V → (𝑇 ∈ 𝒫 (𝐼 × 𝐼) ↔ 𝑇 ⊆ (𝐼 × 𝐼))) |
77 | 9, 76 | syl 17 |
. . . 4
⊢ (𝜑 → (𝑇 ∈ 𝒫 (𝐼 × 𝐼) ↔ 𝑇 ⊆ (𝐼 × 𝐼))) |
78 | 75, 77 | mpbird 247 |
. . 3
⊢ (𝜑 → 𝑇 ∈ 𝒫 (𝐼 × 𝐼)) |
79 | | ovexd 6680 |
. . 3
⊢ (𝜑 → (𝑆 sSet 〈(le‘ndx), ≤ 〉)
∈ V) |
80 | 58, 74, 78, 79 | fvmptd 6288 |
. 2
⊢ (𝜑 → ((𝐼 ordPwSer 𝑅)‘𝑇) = (𝑆 sSet 〈(le‘ndx), ≤
〉)) |
81 | 1, 80 | syl5eq 2668 |
1
⊢ (𝜑 → 𝑂 = (𝑆 sSet 〈(le‘ndx), ≤
〉)) |