Step | Hyp | Ref
| Expression |
1 | | ordtrest2.2 |
. . . 4
⊢ (𝜑 → 𝑅 ∈ TosetRel ) |
2 | | tsrps 18093 |
. . . 4
⊢ (𝑅 ∈ TosetRel → 𝑅 ∈
PosetRel) |
3 | 1, 2 | syl 17 |
. . 3
⊢ (𝜑 → 𝑅 ∈ PosetRel) |
4 | | ordtrest2.1 |
. . . . 5
⊢ 𝑋 = dom 𝑅 |
5 | 1 | dmexd 7683 |
. . . . 5
⊢ (𝜑 → dom 𝑅 ∈ V) |
6 | 4, 5 | eqeltrid 2842 |
. . . 4
⊢ (𝜑 → 𝑋 ∈ V) |
7 | | ordtrest2.3 |
. . . 4
⊢ (𝜑 → 𝐴 ⊆ 𝑋) |
8 | 6, 7 | ssexd 5217 |
. . 3
⊢ (𝜑 → 𝐴 ∈ V) |
9 | | ordtrest 22099 |
. . 3
⊢ ((𝑅 ∈ PosetRel ∧ 𝐴 ∈ V) →
(ordTop‘(𝑅 ∩
(𝐴 × 𝐴))) ⊆ ((ordTop‘𝑅) ↾t 𝐴)) |
10 | 3, 8, 9 | syl2anc 587 |
. 2
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ⊆ ((ordTop‘𝑅) ↾t 𝐴)) |
11 | | eqid 2737 |
. . . . . . . 8
⊢ ran
(𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) = ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) |
12 | | eqid 2737 |
. . . . . . . 8
⊢ ran
(𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}) = ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}) |
13 | 4, 11, 12 | ordtval 22086 |
. . . . . . 7
⊢ (𝑅 ∈ TosetRel →
(ordTop‘𝑅) =
(topGen‘(fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))))) |
14 | 1, 13 | syl 17 |
. . . . . 6
⊢ (𝜑 → (ordTop‘𝑅) =
(topGen‘(fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))))) |
15 | 14 | oveq1d 7228 |
. . . . 5
⊢ (𝜑 → ((ordTop‘𝑅) ↾t 𝐴) =
((topGen‘(fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))))) ↾t 𝐴)) |
16 | | fibas 21874 |
. . . . . 6
⊢
(fi‘({𝑋} ∪
(ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ∈ TopBases |
17 | | tgrest 22056 |
. . . . . 6
⊢
(((fi‘({𝑋}
∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ∈ TopBases ∧ 𝐴 ∈ V) →
(topGen‘((fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ↾t 𝐴)) = ((topGen‘(fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))))) ↾t 𝐴)) |
18 | 16, 8, 17 | sylancr 590 |
. . . . 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 16937 |
. . . . 5
⊢
(fi‘(({𝑋}
∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴)) = ((fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ↾t 𝐴) |
21 | 20 | fveq2i 6720 |
. . . 4
⊢
(topGen‘(fi‘(({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴))) = (topGen‘((fi‘({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) ↾t 𝐴)) |
22 | 19, 21 | eqtr4di 2796 |
. . 3
⊢ (𝜑 → ((ordTop‘𝑅) ↾t 𝐴) =
(topGen‘(fi‘(({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴)))) |
23 | | inex1g 5212 |
. . . . . 6
⊢ (𝑅 ∈ TosetRel → (𝑅 ∩ (𝐴 × 𝐴)) ∈ V) |
24 | 1, 23 | syl 17 |
. . . . 5
⊢ (𝜑 → (𝑅 ∩ (𝐴 × 𝐴)) ∈ V) |
25 | | ordttop 22097 |
. . . . 5
⊢ ((𝑅 ∩ (𝐴 × 𝐴)) ∈ V → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∈ Top) |
26 | 24, 25 | syl 17 |
. . . 4
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∈ Top) |
27 | 4, 11, 12 | ordtuni 22087 |
. . . . . . . . 9
⊢ (𝑅 ∈ TosetRel → 𝑋 = ∪
({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) |
28 | 1, 27 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → 𝑋 = ∪ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))) |
29 | 28, 6 | eqeltrrd 2839 |
. . . . . . 7
⊢ (𝜑 → ∪ ({𝑋}
∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ∈ V) |
30 | | uniexb 7549 |
. . . . . . 7
⊢ (({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ∈ V ↔ ∪ ({𝑋}
∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ∈ V) |
31 | 29, 30 | sylibr 237 |
. . . . . 6
⊢ (𝜑 → ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ∈ V) |
32 | | restval 16931 |
. . . . . 6
⊢ ((({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ∈ V ∧ 𝐴 ∈ V) → (({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴) = ran (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴))) |
33 | 31, 8, 32 | syl2anc 587 |
. . . . 5
⊢ (𝜑 → (({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴) = ran (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴))) |
34 | | sseqin2 4130 |
. . . . . . . . . . . 12
⊢ (𝐴 ⊆ 𝑋 ↔ (𝑋 ∩ 𝐴) = 𝐴) |
35 | 7, 34 | sylib 221 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑋 ∩ 𝐴) = 𝐴) |
36 | | eqid 2737 |
. . . . . . . . . . . . . . 15
⊢ dom
(𝑅 ∩ (𝐴 × 𝐴)) = dom (𝑅 ∩ (𝐴 × 𝐴)) |
37 | 36 | ordttopon 22090 |
. . . . . . . . . . . . . 14
⊢ ((𝑅 ∩ (𝐴 × 𝐴)) ∈ V → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∈ (TopOn‘dom (𝑅 ∩ (𝐴 × 𝐴)))) |
38 | 24, 37 | syl 17 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∈ (TopOn‘dom (𝑅 ∩ (𝐴 × 𝐴)))) |
39 | 4 | psssdm 18088 |
. . . . . . . . . . . . . . 15
⊢ ((𝑅 ∈ PosetRel ∧ 𝐴 ⊆ 𝑋) → dom (𝑅 ∩ (𝐴 × 𝐴)) = 𝐴) |
40 | 3, 7, 39 | syl2anc 587 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → dom (𝑅 ∩ (𝐴 × 𝐴)) = 𝐴) |
41 | 40 | fveq2d 6721 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (TopOn‘dom (𝑅 ∩ (𝐴 × 𝐴))) = (TopOn‘𝐴)) |
42 | 38, 41 | eleqtrd 2840 |
. . . . . . . . . . . 12
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∈ (TopOn‘𝐴)) |
43 | | toponmax 21823 |
. . . . . . . . . . . 12
⊢
((ordTop‘(𝑅
∩ (𝐴 × 𝐴))) ∈ (TopOn‘𝐴) → 𝐴 ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
44 | 42, 43 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐴 ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
45 | 35, 44 | eqeltrd 2838 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑋 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
46 | | elsni 4558 |
. . . . . . . . . . . 12
⊢ (𝑣 ∈ {𝑋} → 𝑣 = 𝑋) |
47 | 46 | ineq1d 4126 |
. . . . . . . . . . 11
⊢ (𝑣 ∈ {𝑋} → (𝑣 ∩ 𝐴) = (𝑋 ∩ 𝐴)) |
48 | 47 | eleq1d 2822 |
. . . . . . . . . 10
⊢ (𝑣 ∈ {𝑋} → ((𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ (𝑋 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))))) |
49 | 45, 48 | syl5ibrcom 250 |
. . . . . . . . 9
⊢ (𝜑 → (𝑣 ∈ {𝑋} → (𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))))) |
50 | 49 | ralrimiv 3104 |
. . . . . . . 8
⊢ (𝜑 → ∀𝑣 ∈ {𝑋} (𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
51 | | ordtrest2.4 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → {𝑧 ∈ 𝑋 ∣ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)} ⊆ 𝐴) |
52 | 4, 1, 7, 51 | ordtrest2lem 22100 |
. . . . . . . . 9
⊢ (𝜑 → ∀𝑣 ∈ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧})(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
53 | | df-rn 5562 |
. . . . . . . . . . 11
⊢ ran 𝑅 = dom ◡𝑅 |
54 | | cnvtsr 18094 |
. . . . . . . . . . . 12
⊢ (𝑅 ∈ TosetRel → ◡𝑅 ∈ TosetRel ) |
55 | 1, 54 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → ◡𝑅 ∈ TosetRel ) |
56 | 4 | psrn 18081 |
. . . . . . . . . . . . 13
⊢ (𝑅 ∈ PosetRel → 𝑋 = ran 𝑅) |
57 | 3, 56 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝑋 = ran 𝑅) |
58 | 7, 57 | sseqtrd 3941 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐴 ⊆ ran 𝑅) |
59 | 57 | adantr 484 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → 𝑋 = ran 𝑅) |
60 | 59 | rabeqdv 3395 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → {𝑧 ∈ 𝑋 ∣ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)} = {𝑧 ∈ ran 𝑅 ∣ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)}) |
61 | | vex 3412 |
. . . . . . . . . . . . . . . . 17
⊢ 𝑦 ∈ V |
62 | | vex 3412 |
. . . . . . . . . . . . . . . . 17
⊢ 𝑧 ∈ V |
63 | 61, 62 | brcnv 5751 |
. . . . . . . . . . . . . . . 16
⊢ (𝑦◡𝑅𝑧 ↔ 𝑧𝑅𝑦) |
64 | | vex 3412 |
. . . . . . . . . . . . . . . . 17
⊢ 𝑥 ∈ V |
65 | 62, 64 | brcnv 5751 |
. . . . . . . . . . . . . . . 16
⊢ (𝑧◡𝑅𝑥 ↔ 𝑥𝑅𝑧) |
66 | 63, 65 | anbi12ci 631 |
. . . . . . . . . . . . . . 15
⊢ ((𝑦◡𝑅𝑧 ∧ 𝑧◡𝑅𝑥) ↔ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)) |
67 | 66 | rabbii 3383 |
. . . . . . . . . . . . . 14
⊢ {𝑧 ∈ ran 𝑅 ∣ (𝑦◡𝑅𝑧 ∧ 𝑧◡𝑅𝑥)} = {𝑧 ∈ ran 𝑅 ∣ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)} |
68 | 60, 67 | eqtr4di 2796 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → {𝑧 ∈ 𝑋 ∣ (𝑥𝑅𝑧 ∧ 𝑧𝑅𝑦)} = {𝑧 ∈ ran 𝑅 ∣ (𝑦◡𝑅𝑧 ∧ 𝑧◡𝑅𝑥)}) |
69 | 68, 51 | eqsstrrd 3940 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → {𝑧 ∈ ran 𝑅 ∣ (𝑦◡𝑅𝑧 ∧ 𝑧◡𝑅𝑥)} ⊆ 𝐴) |
70 | 69 | ancom2s 650 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ (𝑦 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴)) → {𝑧 ∈ ran 𝑅 ∣ (𝑦◡𝑅𝑧 ∧ 𝑧◡𝑅𝑥)} ⊆ 𝐴) |
71 | 53, 55, 58, 70 | ordtrest2lem 22100 |
. . . . . . . . . 10
⊢ (𝜑 → ∀𝑣 ∈ ran (𝑧 ∈ ran 𝑅 ↦ {𝑤 ∈ ran 𝑅 ∣ ¬ 𝑤◡𝑅𝑧})(𝑣 ∩ 𝐴) ∈ (ordTop‘(◡𝑅 ∩ (𝐴 × 𝐴)))) |
72 | | vex 3412 |
. . . . . . . . . . . . . . . . . 18
⊢ 𝑤 ∈ V |
73 | 72, 62 | brcnv 5751 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑤◡𝑅𝑧 ↔ 𝑧𝑅𝑤) |
74 | 73 | bicomi 227 |
. . . . . . . . . . . . . . . 16
⊢ (𝑧𝑅𝑤 ↔ 𝑤◡𝑅𝑧) |
75 | 74 | a1i 11 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (𝑧𝑅𝑤 ↔ 𝑤◡𝑅𝑧)) |
76 | 75 | notbid 321 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (¬ 𝑧𝑅𝑤 ↔ ¬ 𝑤◡𝑅𝑧)) |
77 | 57, 76 | rabeqbidv 3396 |
. . . . . . . . . . . . 13
⊢ (𝜑 → {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤} = {𝑤 ∈ ran 𝑅 ∣ ¬ 𝑤◡𝑅𝑧}) |
78 | 57, 77 | mpteq12dv 5140 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}) = (𝑧 ∈ ran 𝑅 ↦ {𝑤 ∈ ran 𝑅 ∣ ¬ 𝑤◡𝑅𝑧})) |
79 | 78 | rneqd 5807 |
. . . . . . . . . . 11
⊢ (𝜑 → ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}) = ran (𝑧 ∈ ran 𝑅 ↦ {𝑤 ∈ ran 𝑅 ∣ ¬ 𝑤◡𝑅𝑧})) |
80 | | psss 18086 |
. . . . . . . . . . . . . . 15
⊢ (𝑅 ∈ PosetRel → (𝑅 ∩ (𝐴 × 𝐴)) ∈ PosetRel) |
81 | 3, 80 | syl 17 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑅 ∩ (𝐴 × 𝐴)) ∈ PosetRel) |
82 | | ordtcnv 22098 |
. . . . . . . . . . . . . 14
⊢ ((𝑅 ∩ (𝐴 × 𝐴)) ∈ PosetRel →
(ordTop‘◡(𝑅 ∩ (𝐴 × 𝐴))) = (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
83 | 81, 82 | syl 17 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (ordTop‘◡(𝑅 ∩ (𝐴 × 𝐴))) = (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
84 | | cnvin 6008 |
. . . . . . . . . . . . . . 15
⊢ ◡(𝑅 ∩ (𝐴 × 𝐴)) = (◡𝑅 ∩ ◡(𝐴 × 𝐴)) |
85 | | cnvxp 6020 |
. . . . . . . . . . . . . . . 16
⊢ ◡(𝐴 × 𝐴) = (𝐴 × 𝐴) |
86 | 85 | ineq2i 4124 |
. . . . . . . . . . . . . . 15
⊢ (◡𝑅 ∩ ◡(𝐴 × 𝐴)) = (◡𝑅 ∩ (𝐴 × 𝐴)) |
87 | 84, 86 | eqtri 2765 |
. . . . . . . . . . . . . 14
⊢ ◡(𝑅 ∩ (𝐴 × 𝐴)) = (◡𝑅 ∩ (𝐴 × 𝐴)) |
88 | 87 | fveq2i 6720 |
. . . . . . . . . . . . 13
⊢
(ordTop‘◡(𝑅 ∩ (𝐴 × 𝐴))) = (ordTop‘(◡𝑅 ∩ (𝐴 × 𝐴))) |
89 | 83, 88 | eqtr3di 2793 |
. . . . . . . . . . . 12
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) = (ordTop‘(◡𝑅 ∩ (𝐴 × 𝐴)))) |
90 | 89 | eleq2d 2823 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ (𝑣 ∩ 𝐴) ∈ (ordTop‘(◡𝑅 ∩ (𝐴 × 𝐴))))) |
91 | 79, 90 | raleqbidv 3313 |
. . . . . . . . . 10
⊢ (𝜑 → (∀𝑣 ∈ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ ∀𝑣 ∈ ran (𝑧 ∈ ran 𝑅 ↦ {𝑤 ∈ ran 𝑅 ∣ ¬ 𝑤◡𝑅𝑧})(𝑣 ∩ 𝐴) ∈ (ordTop‘(◡𝑅 ∩ (𝐴 × 𝐴))))) |
92 | 71, 91 | mpbird 260 |
. . . . . . . . 9
⊢ (𝜑 → ∀𝑣 ∈ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
93 | | ralunb 4105 |
. . . . . . . . 9
⊢
(∀𝑣 ∈
(ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ (∀𝑣 ∈ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧})(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∧ ∀𝑣 ∈ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))))) |
94 | 52, 92, 93 | sylanbrc 586 |
. . . . . . . 8
⊢ (𝜑 → ∀𝑣 ∈ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
95 | | ralunb 4105 |
. . . . . . . 8
⊢
(∀𝑣 ∈
({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ (∀𝑣 ∈ {𝑋} (𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ∧ ∀𝑣 ∈ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))))) |
96 | 50, 94, 95 | sylanbrc 586 |
. . . . . . 7
⊢ (𝜑 → ∀𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
97 | | eqid 2737 |
. . . . . . . 8
⊢ (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴)) = (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴)) |
98 | 97 | fmpt 6927 |
. . . . . . 7
⊢
(∀𝑣 ∈
({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))(𝑣 ∩ 𝐴) ∈ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) ↔ (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴)):({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))⟶(ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
99 | 96, 98 | sylib 221 |
. . . . . 6
⊢ (𝜑 → (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴)):({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤})))⟶(ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
100 | 99 | frnd 6553 |
. . . . 5
⊢ (𝜑 → ran (𝑣 ∈ ({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↦ (𝑣 ∩ 𝐴)) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
101 | 33, 100 | eqsstrd 3939 |
. . . 4
⊢ (𝜑 → (({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
102 | | tgfiss 21888 |
. . . 4
⊢
(((ordTop‘(𝑅
∩ (𝐴 × 𝐴))) ∈ Top ∧ (({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) → (topGen‘(fi‘(({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴))) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
103 | 26, 101, 102 | syl2anc 587 |
. . 3
⊢ (𝜑 →
(topGen‘(fi‘(({𝑋} ∪ (ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑤𝑅𝑧}) ∪ ran (𝑧 ∈ 𝑋 ↦ {𝑤 ∈ 𝑋 ∣ ¬ 𝑧𝑅𝑤}))) ↾t 𝐴))) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
104 | 22, 103 | eqsstrd 3939 |
. 2
⊢ (𝜑 → ((ordTop‘𝑅) ↾t 𝐴) ⊆ (ordTop‘(𝑅 ∩ (𝐴 × 𝐴)))) |
105 | 10, 104 | eqssd 3918 |
1
⊢ (𝜑 → (ordTop‘(𝑅 ∩ (𝐴 × 𝐴))) = ((ordTop‘𝑅) ↾t 𝐴)) |