Proof of Theorem opsrle
Step | Hyp | Ref
| Expression |
1 | | opsrle.s |
. . . . 5
⊢ 𝑆 = (𝐼 mPwSer 𝑅) |
2 | | opsrle.o |
. . . . 5
⊢ 𝑂 = ((𝐼 ordPwSer 𝑅)‘𝑇) |
3 | | opsrle.b |
. . . . 5
⊢ 𝐵 = (Base‘𝑆) |
4 | | opsrle.q |
. . . . 5
⊢ < =
(lt‘𝑅) |
5 | | opsrle.c |
. . . . 5
⊢ 𝐶 = (𝑇 <bag 𝐼) |
6 | | opsrle.d |
. . . . 5
⊢ 𝐷 = {ℎ ∈ (ℕ0
↑m 𝐼)
∣ (◡ℎ “ ℕ) ∈ Fin} |
7 | | eqid 2738 |
. . . . 5
⊢
{〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} = {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} |
8 | | simprl 768 |
. . . . 5
⊢ ((𝜑 ∧ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → 𝐼 ∈ V) |
9 | | simprr 770 |
. . . . 5
⊢ ((𝜑 ∧ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → 𝑅 ∈ V) |
10 | | opsrle.t |
. . . . . 6
⊢ (𝜑 → 𝑇 ⊆ (𝐼 × 𝐼)) |
11 | 10 | adantr 481 |
. . . . 5
⊢ ((𝜑 ∧ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → 𝑇 ⊆ (𝐼 × 𝐼)) |
12 | 1, 2, 3, 4, 5, 6, 7, 8, 9, 11 | opsrval 21247 |
. . . 4
⊢ ((𝜑 ∧ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → 𝑂 = (𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉)) |
13 | 12 | fveq2d 6778 |
. . 3
⊢ ((𝜑 ∧ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → (le‘𝑂) = (le‘(𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉))) |
14 | | opsrle.l |
. . 3
⊢ ≤ =
(le‘𝑂) |
15 | 1 | ovexi 7309 |
. . . 4
⊢ 𝑆 ∈ V |
16 | 3 | fvexi 6788 |
. . . . . 6
⊢ 𝐵 ∈ V |
17 | 16, 16 | xpex 7603 |
. . . . 5
⊢ (𝐵 × 𝐵) ∈ V |
18 | | vex 3436 |
. . . . . . . . 9
⊢ 𝑥 ∈ V |
19 | | vex 3436 |
. . . . . . . . 9
⊢ 𝑦 ∈ V |
20 | 18, 19 | prss 4753 |
. . . . . . . 8
⊢ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) ↔ {𝑥, 𝑦} ⊆ 𝐵) |
21 | 20 | anbi1i 624 |
. . . . . . 7
⊢ (((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦)) ↔ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))) |
22 | 21 | opabbii 5141 |
. . . . . 6
⊢
{〈𝑥, 𝑦〉 ∣ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} = {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} |
23 | | opabssxp 5679 |
. . . . . 6
⊢
{〈𝑥, 𝑦〉 ∣ ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} ⊆ (𝐵 × 𝐵) |
24 | 22, 23 | eqsstrri 3956 |
. . . . 5
⊢
{〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} ⊆ (𝐵 × 𝐵) |
25 | 17, 24 | ssexi 5246 |
. . . 4
⊢
{〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} ∈ V |
26 | | pleid 17077 |
. . . . 5
⊢ le = Slot
(le‘ndx) |
27 | 26 | setsid 16909 |
. . . 4
⊢ ((𝑆 ∈ V ∧ {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} ∈ V) → {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} = (le‘(𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉))) |
28 | 15, 25, 27 | mp2an 689 |
. . 3
⊢
{〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} = (le‘(𝑆 sSet 〈(le‘ndx), {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}〉)) |
29 | 13, 14, 28 | 3eqtr4g 2803 |
. 2
⊢ ((𝜑 ∧ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → ≤ = {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}) |
30 | | reldmopsr 21246 |
. . . . . . . . . 10
⊢ Rel dom
ordPwSer |
31 | 30 | ovprc 7313 |
. . . . . . . . 9
⊢ (¬
(𝐼 ∈ V ∧ 𝑅 ∈ V) → (𝐼 ordPwSer 𝑅) = ∅) |
32 | 31 | adantl 482 |
. . . . . . . 8
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → (𝐼 ordPwSer 𝑅) = ∅) |
33 | 32 | fveq1d 6776 |
. . . . . . 7
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → ((𝐼 ordPwSer 𝑅)‘𝑇) = (∅‘𝑇)) |
34 | 2, 33 | eqtrid 2790 |
. . . . . 6
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → 𝑂 = (∅‘𝑇)) |
35 | | 0fv 6813 |
. . . . . 6
⊢
(∅‘𝑇) =
∅ |
36 | 34, 35 | eqtrdi 2794 |
. . . . 5
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → 𝑂 = ∅) |
37 | 36 | fveq2d 6778 |
. . . 4
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → (le‘𝑂) =
(le‘∅)) |
38 | 26 | str0 16890 |
. . . 4
⊢ ∅ =
(le‘∅) |
39 | 37, 14, 38 | 3eqtr4g 2803 |
. . 3
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → ≤ =
∅) |
40 | | reldmpsr 21117 |
. . . . . . . . . . 11
⊢ Rel dom
mPwSer |
41 | 40 | ovprc 7313 |
. . . . . . . . . 10
⊢ (¬
(𝐼 ∈ V ∧ 𝑅 ∈ V) → (𝐼 mPwSer 𝑅) = ∅) |
42 | 41 | adantl 482 |
. . . . . . . . 9
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → (𝐼 mPwSer 𝑅) = ∅) |
43 | 1, 42 | eqtrid 2790 |
. . . . . . . 8
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → 𝑆 = ∅) |
44 | 43 | fveq2d 6778 |
. . . . . . 7
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → (Base‘𝑆) =
(Base‘∅)) |
45 | | base0 16917 |
. . . . . . 7
⊢ ∅ =
(Base‘∅) |
46 | 44, 3, 45 | 3eqtr4g 2803 |
. . . . . 6
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → 𝐵 = ∅) |
47 | 46 | xpeq2d 5619 |
. . . . 5
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → (𝐵 × 𝐵) = (𝐵 × ∅)) |
48 | | xp0 6061 |
. . . . 5
⊢ (𝐵 × ∅) =
∅ |
49 | 47, 48 | eqtrdi 2794 |
. . . 4
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → (𝐵 × 𝐵) = ∅) |
50 | | sseq0 4333 |
. . . 4
⊢
(({〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} ⊆ (𝐵 × 𝐵) ∧ (𝐵 × 𝐵) = ∅) → {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} = ∅) |
51 | 24, 49, 50 | sylancr 587 |
. . 3
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))} = ∅) |
52 | 39, 51 | eqtr4d 2781 |
. 2
⊢ ((𝜑 ∧ ¬ (𝐼 ∈ V ∧ 𝑅 ∈ V)) → ≤ = {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}) |
53 | 29, 52 | pm2.61dan 810 |
1
⊢ (𝜑 → ≤ = {〈𝑥, 𝑦〉 ∣ ({𝑥, 𝑦} ⊆ 𝐵 ∧ (∃𝑧 ∈ 𝐷 ((𝑥‘𝑧) < (𝑦‘𝑧) ∧ ∀𝑤 ∈ 𝐷 (𝑤𝐶𝑧 → (𝑥‘𝑤) = (𝑦‘𝑤))) ∨ 𝑥 = 𝑦))}) |