Step | Hyp | Ref
| Expression |
1 | | ordtrest2.2 |
. . . 4
⊢ (𝜑 → 𝑅 ∈ TosetRel ) |
2 | | tsrps 18382 |
. . . 4
⊢ (𝑅 ∈ TosetRel → 𝑅 ∈
PosetRel) |
3 | 1, 2 | syl 17 |
. . 3
⊢ (𝜑 → 𝑅 ∈ PosetRel) |
4 | | ordtrest2.1 |
. . . . 5
⊢ 𝑋 = dom 𝑅 |
5 | 1 | dmexd 7799 |
. . . . 5
⊢ (𝜑 → dom 𝑅 ∈ V) |
6 | 4, 5 | eqeltrid 2842 |
. . . 4
⊢ (𝜑 → 𝑋 ∈ V) |
7 | | ordtrest2.3 |
. . . 4
⊢ (𝜑 → 𝐴 ⊆ 𝑋) |
8 | 6, 7 | ssexd 5263 |
. . 3
⊢ (𝜑 → 𝐴 ∈ V) |
9 | | ordtrest 22436 |
. . 3
⊢ ((𝑅 ∈ PosetRel ∧ 𝐴 ∈ V) →
(ordTop‘(𝑅 ∩
(𝐴 × 𝐴))) ⊆ ((ordTop‘𝑅) ↾t 𝐴)) |
10 | 3, 8, 9 | syl2anc 584 |
. 2
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ⊆ ((ordTop‘𝑅) ↾t 𝐴)) |
11 | | eqid 2737 |
. . . . . . . 8
⊢ ran
(𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) = ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) |
12 | | eqid 2737 |
. . . . . . . 8
⊢ ran
(𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}) = ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}) |
13 | 4, 11, 12 | ordtval 22423 |
. . . . . . 7
⊢ (𝑅 ∈ TosetRel →
(ordTop‘𝑅) =
(topGen‘(fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))))) |
14 | 1, 13 | syl 17 |
. . . . . 6
⊢ (𝜑 → (ordTop‘𝑅) =
(topGen‘(fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))))) |
15 | 14 | oveq1d 7332 |
. . . . 5
⊢ (𝜑 → ((ordTop‘𝑅) ↾t 𝐴) =
((topGen‘(fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))))) ↾t 𝐴)) |
16 | | fibas 22210 |
. . . . . 6
⊢
(fi‘({𝑋} ∪
(ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ∈ TopBases |
17 | | tgrest 22393 |
. . . . . 6
⊢
(((fi‘({𝑋}
∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ∈ TopBases ∧ 𝐴 ∈ V) →
(topGen‘((fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ↾t 𝐴)) = ((topGen‘(fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))))) ↾t 𝐴)) |
18 | 16, 8, 17 | sylancr 587 |
. . . . 5
⊢ (𝜑 →
(topGen‘((fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ↾t 𝐴)) = ((topGen‘(fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))))) ↾t 𝐴)) |
19 | 15, 18 | eqtr4d 2780 |
. . . 4
⊢ (𝜑 → ((ordTop‘𝑅) ↾t 𝐴) =
(topGen‘((fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ↾t 𝐴))) |
20 | | firest 17220 |
. . . . 5
⊢
(fi‘(({𝑋}
∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴)) = ((fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ↾t 𝐴) |
21 | 20 | fveq2i 6815 |
. . . 4
⊢
(topGen‘(fi‘(({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴))) = (topGen‘((fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ↾t 𝐴)) |
22 | 19, 21 | eqtr4di 2795 |
. . 3
⊢ (𝜑 → ((ordTop‘𝑅) ↾t 𝐴) =
(topGen‘(fi‘(({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴)))) |
23 | | inex1g 5258 |
. . . . . 6
⊢ (𝑅 ∈ TosetRel → (𝑅 ∩ (𝐴 × 𝐴)) ∈ V) |
24 | 1, 23 | syl 17 |
. . . . 5
⊢ (𝜑 → (𝑅 ∩ (𝐴 × 𝐴)) ∈ V) |
25 | | ordttop 22434 |
. . . . 5
⊢ ((𝑅 ∩ (𝐴 × 𝐴)) ∈ V → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∈ Top) |
26 | 24, 25 | syl 17 |
. . . 4
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∈ Top) |
27 | 4, 11, 12 | ordtuni 22424 |
. . . . . . . . 9
⊢ (𝑅 ∈ TosetRel → 𝑋 = ∪
({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) |
28 | 1, 27 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → 𝑋 = ∪ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) |
29 | 28, 6 | eqeltrrd 2839 |
. . . . . . 7
⊢ (𝜑 → ∪ ({𝑋}
∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ∈ V) |
30 | | uniexb 7656 |
. . . . . . 7
⊢ (({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ∈ V ↔ ∪ ({𝑋}
∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ∈ V) |
31 | 29, 30 | sylibr 233 |
. . . . . 6
⊢ (𝜑 → ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ∈ V) |
32 | | restval 17214 |
. . . . . 6
⊢ ((({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ∈ V ∧ 𝐴 ∈ V) → (({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴) = ran (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴))) |
33 | 31, 8, 32 | syl2anc 584 |
. . . . 5
⊢ (𝜑 → (({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴) = ran (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴))) |
34 | | sseqin2 4160 |
. . . . . . . . . . . 12
⊢ (𝐴 ⊆ 𝑋 ↔ (𝑋 ∩ 𝐴) = 𝐴) |
35 | 7, 34 | sylib 217 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑋 ∩ 𝐴) = 𝐴) |
36 | | eqid 2737 |
. . . . . . . . . . . . . . 15
⊢ dom
(𝑅 ∩ (𝐴 × 𝐴)) = dom (𝑅 ∩ (𝐴 × 𝐴)) |
37 | 36 | ordttopon 22427 |
. . . . . . . . . . . . . 14
⊢ ((𝑅 ∩ (𝐴 × 𝐴)) ∈ V → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∈ (TopOn‘dom (𝑅 ∩ (𝐴 × 𝐴)))) |
38 | 24, 37 | syl 17 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∈ (TopOn‘dom (𝑅 ∩ (𝐴 × 𝐴)))) |
39 | 4 | psssdm 18377 |
. . . . . . . . . . . . . . 15
⊢ ((𝑅 ∈ PosetRel ∧ 𝐴 ⊆ 𝑋) → dom (𝑅 ∩ (𝐴 × 𝐴)) = 𝐴) |
40 | 3, 7, 39 | syl2anc 584 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → dom (𝑅 ∩ (𝐴 × 𝐴)) = 𝐴) |
41 | 40 | fveq2d 6816 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (TopOn‘dom (𝑅 ∩ (𝐴 × 𝐴))) = (TopOn‘𝐴)) |
42 | 38, 41 | eleqtrd 2840 |
. . . . . . . . . . . 12
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∈ (TopOn‘𝐴)) |
43 | | toponmax 22158 |
. . . . . . . . . . . 12
⊢
((ordTop‘(𝑅
∩ (𝐴 × 𝐴))) ∈ (TopOn‘𝐴) → 𝐴 ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
44 | 42, 43 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐴 ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
45 | 35, 44 | eqeltrd 2838 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑋 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
46 | | elsni 4588 |
. . . . . . . . . . . 12
⊢ (𝑣 ∈ {𝑋} → 𝑣 = 𝑋) |
47 | 46 | ineq1d 4156 |
. . . . . . . . . . 11
⊢ (𝑣 ∈ {𝑋} → (𝑣 ∩ 𝐴) = (𝑋 ∩ 𝐴)) |
48 | 47 | eleq1d 2822 |
. . . . . . . . . 10
⊢ (𝑣 ∈ {𝑋} → ((𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ (𝑋 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))))) |
49 | 45, 48 | syl5ibrcom 246 |
. . . . . . . . 9
⊢ (𝜑 → (𝑣 ∈ {𝑋} → (𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))))) |
50 | 49 | ralrimiv 3139 |
. . . . . . . 8
⊢ (𝜑 → ∀𝑣 ∈ {𝑋} (𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
51 | | ordtrest2.4 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → {𝑧 ∈ 𝑋 ∣ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)} ⊆ 𝐴) |
52 | 4, 1, 7, 51 | ordtrest2lem 22437 |
. . . . . . . . 9
⊢ (𝜑 → ∀𝑣 ∈ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧})(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
53 | | df-rn 5619 |
. . . . . . . . . . 11
⊢ ran 𝑅 = dom ◡𝑅 |
54 | | cnvtsr 18383 |
. . . . . . . . . . . 12
⊢ (𝑅 ∈ TosetRel → ◡𝑅 ∈ TosetRel ) |
55 | 1, 54 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → ◡𝑅 ∈ TosetRel ) |
56 | 4 | psrn 18370 |
. . . . . . . . . . . . 13
⊢ (𝑅 ∈ PosetRel → 𝑋 = ran 𝑅) |
57 | 3, 56 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝑋 = ran 𝑅) |
58 | 7, 57 | sseqtrd 3971 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐴 ⊆ ran 𝑅) |
59 | 57 | adantr 481 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → 𝑋 = ran 𝑅) |
60 | 59 | rabeqdv 3418 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → {𝑧 ∈ 𝑋 ∣ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)} = {𝑧 ∈ ran 𝑅 ∣ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)}) |
61 | | vex 3445 |
. . . . . . . . . . . . . . . . 17
⊢ 𝑦 ∈ V |
62 | | vex 3445 |
. . . . . . . . . . . . . . . . 17
⊢ 𝑧 ∈ V |
63 | 61, 62 | brcnv 5812 |
. . . . . . . . . . . . . . . 16
⊢ (𝑦◡𝑅𝑧 ↔ 𝑧𝑅𝑦) |
64 | | vex 3445 |
. . . . . . . . . . . . . . . . 17
⊢ 𝑥 ∈ V |
65 | 62, 64 | brcnv 5812 |
. . . . . . . . . . . . . . . 16
⊢ (𝑧◡𝑅𝑥 ↔ 𝑥𝑅𝑧) |
66 | 63, 65 | anbi12ci 628 |
. . . . . . . . . . . . . . 15
⊢ ((𝑦◡𝑅𝑧 ∧ 𝑧◡𝑅𝑥) ↔ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)) |
67 | 66 | rabbii 3410 |
. . . . . . . . . . . . . 14
⊢ {𝑧 ∈ ran 𝑅 ∣ (𝑦◡𝑅𝑧 ∧ 𝑧◡𝑅𝑥)} = {𝑧 ∈ ran 𝑅 ∣ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)} |
68 | 60, 67 | eqtr4di 2795 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → {𝑧 ∈ 𝑋 ∣ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)} = {𝑧 ∈ ran 𝑅 ∣ (𝑦◡𝑅𝑧 ∧ 𝑧◡𝑅𝑥)}) |
69 | 68, 51 | eqsstrrd 3970 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → {𝑧 ∈ ran 𝑅 ∣ (𝑦◡𝑅𝑧 ∧ 𝑧◡𝑅𝑥)} ⊆ 𝐴) |
70 | 69 | ancom2s 647 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴)) → {𝑧 ∈ ran 𝑅 ∣ (𝑦◡𝑅𝑧 ∧ 𝑧◡𝑅𝑥)} ⊆ 𝐴) |
71 | 53, 55, 58, 70 | ordtrest2lem 22437 |
. . . . . . . . . 10
⊢ (𝜑 → ∀𝑣 ∈ ran (𝑧 ∈ ran 𝑅 ↦ {𝑤 ∈ ran 𝑅 ∣ ¬ 𝑤◡𝑅𝑧})(𝑣 ∩ 𝐴) ∈ (ordTop‘(◡𝑅 ∩ (𝐴 × 𝐴)))) |
72 | | vex 3445 |
. . . . . . . . . . . . . . . . . 18
⊢ 𝑤 ∈ V |
73 | 72, 62 | brcnv 5812 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑤◡𝑅𝑧 ↔ 𝑧𝑅𝑤) |
74 | 73 | bicomi 223 |
. . . . . . . . . . . . . . . 16
⊢ (𝑧𝑅𝑤 ↔ 𝑤◡𝑅𝑧) |
75 | 74 | a1i 11 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (𝑧𝑅𝑤 ↔ 𝑤◡𝑅𝑧)) |
76 | 75 | notbid 317 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (¬ 𝑧𝑅𝑤 ↔ ¬ 𝑤◡𝑅𝑧)) |
77 | 57, 76 | rabeqbidv 3420 |
. . . . . . . . . . . . 13
⊢ (𝜑 → {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤} = {𝑤 ∈ ran 𝑅 ∣ ¬ 𝑤◡𝑅𝑧}) |
78 | 57, 77 | mpteq12dv 5178 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}) = (𝑧 ∈ ran 𝑅 ↦ {𝑤 ∈ ran 𝑅 ∣ ¬ 𝑤◡𝑅𝑧})) |
79 | 78 | rneqd 5867 |
. . . . . . . . . . 11
⊢ (𝜑 → ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}) = ran (𝑧 ∈ ran 𝑅 ↦ {𝑤 ∈ ran 𝑅 ∣ ¬ 𝑤◡𝑅𝑧})) |
80 | | psss 18375 |
. . . . . . . . . . . . . . 15
⊢ (𝑅 ∈ PosetRel → (𝑅 ∩ (𝐴 × 𝐴)) ∈ PosetRel) |
81 | 3, 80 | syl 17 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑅 ∩ (𝐴 × 𝐴)) ∈ PosetRel) |
82 | | ordtcnv 22435 |
. . . . . . . . . . . . . 14
⊢ ((𝑅 ∩ (𝐴 × 𝐴)) ∈ PosetRel →
(ordTop‘◡(𝑅 ∩ (𝐴 × 𝐴))) = (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
83 | 81, 82 | syl 17 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (ordTop‘◡(𝑅 ∩ (𝐴 × 𝐴))) = (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
84 | | cnvin 6071 |
. . . . . . . . . . . . . . 15
⊢ ◡(𝑅 ∩ (𝐴 × 𝐴)) = (◡𝑅 ∩ ◡(𝐴 × 𝐴)) |
85 | | cnvxp 6083 |
. . . . . . . . . . . . . . . 16
⊢ ◡(𝐴 × 𝐴) = (𝐴 × 𝐴) |
86 | 85 | ineq2i 4154 |
. . . . . . . . . . . . . . 15
⊢ (◡𝑅 ∩ ◡(𝐴 × 𝐴)) = (◡𝑅 ∩ (𝐴 × 𝐴)) |
87 | 84, 86 | eqtri 2765 |
. . . . . . . . . . . . . 14
⊢ ◡(𝑅 ∩ (𝐴 × 𝐴)) = (◡𝑅 ∩ (𝐴 × 𝐴)) |
88 | 87 | fveq2i 6815 |
. . . . . . . . . . . . 13
⊢
(ordTop‘◡(𝑅 ∩ (𝐴 × 𝐴))) = (ordTop‘(◡𝑅 ∩ (𝐴 × 𝐴))) |
89 | 83, 88 | eqtr3di 2792 |
. . . . . . . . . . . 12
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) = (ordTop‘(◡𝑅 ∩ (𝐴 × 𝐴)))) |
90 | 89 | eleq2d 2823 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ (𝑣 ∩ 𝐴) ∈ (ordTop‘(◡𝑅 ∩ (𝐴 × 𝐴))))) |
91 | 79, 90 | raleqbidv 3316 |
. . . . . . . . . 10
⊢ (𝜑 → (∀𝑣 ∈ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ ∀𝑣 ∈ ran (𝑧 ∈ ran 𝑅 ↦ {𝑤 ∈ ran 𝑅 ∣ ¬ 𝑤◡𝑅𝑧})(𝑣 ∩ 𝐴) ∈ (ordTop‘(◡𝑅 ∩ (𝐴 × 𝐴))))) |
92 | 71, 91 | mpbird 256 |
. . . . . . . . 9
⊢ (𝜑 → ∀𝑣 ∈ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
93 | | ralunb 4136 |
. . . . . . . . 9
⊢
(∀𝑣 ∈
(ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ (∀𝑣 ∈ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧})(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∧ ∀𝑣 ∈ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))))) |
94 | 52, 92, 93 | sylanbrc 583 |
. . . . . . . 8
⊢ (𝜑 → ∀𝑣 ∈ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
95 | | ralunb 4136 |
. . . . . . . 8
⊢
(∀𝑣 ∈
({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ (∀𝑣 ∈ {𝑋} (𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∧ ∀𝑣 ∈ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))))) |
96 | 50, 94, 95 | sylanbrc 583 |
. . . . . . 7
⊢ (𝜑 → ∀𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
97 | | eqid 2737 |
. . . . . . . 8
⊢ (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴)) = (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴)) |
98 | 97 | fmpt 7024 |
. . . . . . 7
⊢
(∀𝑣 ∈
({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴)):({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))⟶(ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
99 | 96, 98 | sylib 217 |
. . . . . 6
⊢ (𝜑 → (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴)):({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))⟶(ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
100 | 99 | frnd 6646 |
. . . . 5
⊢ (𝜑 → ran (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴)) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
101 | 33, 100 | eqsstrd 3969 |
. . . 4
⊢ (𝜑 → (({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
102 | | tgfiss 22224 |
. . . 4
⊢
(((ordTop‘(𝑅
∩ (𝐴 × 𝐴))) ∈ Top ∧ (({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) → (topGen‘(fi‘(({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴))) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
103 | 26, 101, 102 | syl2anc 584 |
. . 3
⊢ (𝜑 →
(topGen‘(fi‘(({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴))) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
104 | 22, 103 | eqsstrd 3969 |
. 2
⊢ (𝜑 → ((ordTop‘𝑅) ↾t 𝐴) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
105 | 10, 104 | eqssd 3948 |
1
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) = ((ordTop‘𝑅) ↾t 𝐴)) |