MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  ordthmeolem Structured version   Visualization version   GIF version

Theorem ordthmeolem 24014
Description: Lemma for ordthmeo 24015. (Contributed by Mario Carneiro, 9-Sep-2015.)
Hypotheses
Ref Expression
ordthmeo.1 𝑋 = dom 𝑅
ordthmeo.2 𝑌 = dom 𝑆
Assertion
Ref Expression
ordthmeolem ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → 𝐹 ∈ ((ordTop‘𝑅) Cn (ordTop‘𝑆)))

Proof of Theorem ordthmeolem
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 isof1o 7331 . . . 4 (𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌) → 𝐹:𝑋1-1-onto𝑌)
213ad2ant3 1153 . . 3 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → 𝐹:𝑋1-1-onto𝑌)
3 f1of 6825 . . 3 (𝐹:𝑋1-1-onto𝑌𝐹:𝑋𝑌)
42, 3syl 18 . 2 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → 𝐹:𝑋𝑌)
5 fimacnv 6733 . . . . . . 7 (𝐹:𝑋𝑌 → (𝐹𝑌) = 𝑋)
64, 5syl 18 . . . . . 6 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → (𝐹𝑌) = 𝑋)
7 ordthmeo.1 . . . . . . . . 9 𝑋 = dom 𝑅
87ordttopon 23405 . . . . . . . 8 (𝑅𝑉 → (ordTop‘𝑅) ∈ (TopOn‘𝑋))
983ad2ant1 1151 . . . . . . 7 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → (ordTop‘𝑅) ∈ (TopOn‘𝑋))
10 toponmax 23138 . . . . . . 7 ((ordTop‘𝑅) ∈ (TopOn‘𝑋) → 𝑋 ∈ (ordTop‘𝑅))
119, 10syl 18 . . . . . 6 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → 𝑋 ∈ (ordTop‘𝑅))
126, 11eqeltrd 2865 . . . . 5 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → (𝐹𝑌) ∈ (ordTop‘𝑅))
13 elsni 4608 . . . . . . 7 (𝑧 ∈ {𝑌} → 𝑧 = 𝑌)
1413imaeq2d 6064 . . . . . 6 (𝑧 ∈ {𝑌} → (𝐹𝑧) = (𝐹𝑌))
1514eleq1d 2850 . . . . 5 (𝑧 ∈ {𝑌} → ((𝐹𝑧) ∈ (ordTop‘𝑅) ↔ (𝐹𝑌) ∈ (ordTop‘𝑅)))
1612, 15syl5ibrcom 250 . . . 4 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → (𝑧 ∈ {𝑌} → (𝐹𝑧) ∈ (ordTop‘𝑅)))
1716ralrimiv 3158 . . 3 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → ∀𝑧 ∈ {𝑌} (𝐹𝑧) ∈ (ordTop‘𝑅))
18 cnvimass 6086 . . . . . . . . . 10 (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ⊆ dom 𝐹
19 f1odm 6829 . . . . . . . . . . . 12 (𝐹:𝑋1-1-onto𝑌 → dom 𝐹 = 𝑋)
202, 19syl 18 . . . . . . . . . . 11 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → dom 𝐹 = 𝑋)
2120adantr 486 . . . . . . . . . 10 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → dom 𝐹 = 𝑋)
2218, 21sseqtrid 3980 . . . . . . . . 9 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ⊆ 𝑋)
23 sseqin2 4176 . . . . . . . . 9 ((𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ⊆ 𝑋 ↔ (𝑋 ∩ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})) = (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}))
2422, 23sylib 221 . . . . . . . 8 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝑋 ∩ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})) = (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}))
252ad2antrr 739 . . . . . . . . . . . 12 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → 𝐹:𝑋1-1-onto𝑌)
26 f1ofn 6826 . . . . . . . . . . . 12 (𝐹:𝑋1-1-onto𝑌𝐹 Fn 𝑋)
2725, 26syl 18 . . . . . . . . . . 11 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → 𝐹 Fn 𝑋)
28 elpreima 7058 . . . . . . . . . . 11 (𝐹 Fn 𝑋 → (𝑧 ∈ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ↔ (𝑧𝑋 ∧ (𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})))
2927, 28syl 18 . . . . . . . . . 10 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → (𝑧 ∈ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ↔ (𝑧𝑋 ∧ (𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})))
30 simpr 490 . . . . . . . . . . 11 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → 𝑧𝑋)
3130biantrurd 542 . . . . . . . . . 10 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → ((𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥} ↔ (𝑧𝑋 ∧ (𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})))
324adantr 486 . . . . . . . . . . . . 13 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → 𝐹:𝑋𝑌)
3332ffvelcdmda 7084 . . . . . . . . . . . 12 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → (𝐹𝑧) ∈ 𝑌)
34 breq1 5114 . . . . . . . . . . . . . 14 (𝑦 = (𝐹𝑧) → (𝑦𝑆𝑥 ↔ (𝐹𝑧)𝑆𝑥))
3534notbid 321 . . . . . . . . . . . . 13 (𝑦 = (𝐹𝑧) → (¬ 𝑦𝑆𝑥 ↔ ¬ (𝐹𝑧)𝑆𝑥))
3635elrab3 3653 . . . . . . . . . . . 12 ((𝐹𝑧) ∈ 𝑌 → ((𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥} ↔ ¬ (𝐹𝑧)𝑆𝑥))
3733, 36syl 18 . . . . . . . . . . 11 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → ((𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥} ↔ ¬ (𝐹𝑧)𝑆𝑥))
38 simpll3 1233 . . . . . . . . . . . . . 14 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → 𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌))
39 f1ocnv 6838 . . . . . . . . . . . . . . . . 17 (𝐹:𝑋1-1-onto𝑌𝐹:𝑌1-1-onto𝑋)
40 f1of 6825 . . . . . . . . . . . . . . . . 17 (𝐹:𝑌1-1-onto𝑋𝐹:𝑌𝑋)
412, 39, 403syl 19 . . . . . . . . . . . . . . . 16 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → 𝐹:𝑌𝑋)
4241ffvelcdmda 7084 . . . . . . . . . . . . . . 15 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝐹𝑥) ∈ 𝑋)
4342adantr 486 . . . . . . . . . . . . . 14 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → (𝐹𝑥) ∈ 𝑋)
44 isorel 7334 . . . . . . . . . . . . . 14 ((𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌) ∧ (𝑧𝑋 ∧ (𝐹𝑥) ∈ 𝑋)) → (𝑧𝑅(𝐹𝑥) ↔ (𝐹𝑧)𝑆(𝐹‘(𝐹𝑥))))
4538, 30, 43, 44syl12anc 850 . . . . . . . . . . . . 13 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → (𝑧𝑅(𝐹𝑥) ↔ (𝐹𝑧)𝑆(𝐹‘(𝐹𝑥))))
46 f1ocnvfv2 7285 . . . . . . . . . . . . . . . 16 ((𝐹:𝑋1-1-onto𝑌𝑥𝑌) → (𝐹‘(𝐹𝑥)) = 𝑥)
472, 46sylan 592 . . . . . . . . . . . . . . 15 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝐹‘(𝐹𝑥)) = 𝑥)
4847adantr 486 . . . . . . . . . . . . . 14 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → (𝐹‘(𝐹𝑥)) = 𝑥)
4948breq2d 5123 . . . . . . . . . . . . 13 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → ((𝐹𝑧)𝑆(𝐹‘(𝐹𝑥)) ↔ (𝐹𝑧)𝑆𝑥))
5045, 49bitrd 282 . . . . . . . . . . . 12 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → (𝑧𝑅(𝐹𝑥) ↔ (𝐹𝑧)𝑆𝑥))
5150notbid 321 . . . . . . . . . . 11 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → (¬ 𝑧𝑅(𝐹𝑥) ↔ ¬ (𝐹𝑧)𝑆𝑥))
5237, 51bitr4d 285 . . . . . . . . . 10 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → ((𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥} ↔ ¬ 𝑧𝑅(𝐹𝑥)))
5329, 31, 523bitr2d 310 . . . . . . . . 9 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → (𝑧 ∈ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ↔ ¬ 𝑧𝑅(𝐹𝑥)))
5453rabbi2dva 4178 . . . . . . . 8 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝑋 ∩ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})) = {𝑧𝑋 ∣ ¬ 𝑧𝑅(𝐹𝑥)})
5524, 54eqtr3d 2802 . . . . . . 7 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) = {𝑧𝑋 ∣ ¬ 𝑧𝑅(𝐹𝑥)})
56 simpl1 1210 . . . . . . . 8 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → 𝑅𝑉)
577ordtopn1 23406 . . . . . . . 8 ((𝑅𝑉 ∧ (𝐹𝑥) ∈ 𝑋) → {𝑧𝑋 ∣ ¬ 𝑧𝑅(𝐹𝑥)} ∈ (ordTop‘𝑅))
5856, 42, 57syl2anc 596 . . . . . . 7 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → {𝑧𝑋 ∣ ¬ 𝑧𝑅(𝐹𝑥)} ∈ (ordTop‘𝑅))
5955, 58eqeltrd 2865 . . . . . 6 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∈ (ordTop‘𝑅))
6059ralrimiva 3159 . . . . 5 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → ∀𝑥𝑌 (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∈ (ordTop‘𝑅))
61 ordthmeo.2 . . . . . . . . . 10 𝑌 = dom 𝑆
62 dmexg 7905 . . . . . . . . . 10 (𝑆𝑊 → dom 𝑆 ∈ V)
6361, 62eqeltrid 2869 . . . . . . . . 9 (𝑆𝑊𝑌 ∈ V)
64633ad2ant2 1152 . . . . . . . 8 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → 𝑌 ∈ V)
65 rabexg 5310 . . . . . . . 8 (𝑌 ∈ V → {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥} ∈ V)
6664, 65syl 18 . . . . . . 7 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥} ∈ V)
6766ralrimivw 3163 . . . . . 6 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → ∀𝑥𝑌 {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥} ∈ V)
68 eqid 2765 . . . . . . 7 (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) = (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})
69 imaeq2 6060 . . . . . . . 8 (𝑧 = {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥} → (𝐹𝑧) = (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}))
7069eleq1d 2850 . . . . . . 7 (𝑧 = {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥} → ((𝐹𝑧) ∈ (ordTop‘𝑅) ↔ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∈ (ordTop‘𝑅)))
7168, 70ralrnmptw 7094 . . . . . 6 (∀𝑥𝑌 {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥} ∈ V → (∀𝑧 ∈ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})(𝐹𝑧) ∈ (ordTop‘𝑅) ↔ ∀𝑥𝑌 (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∈ (ordTop‘𝑅)))
7267, 71syl 18 . . . . 5 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → (∀𝑧 ∈ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})(𝐹𝑧) ∈ (ordTop‘𝑅) ↔ ∀𝑥𝑌 (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∈ (ordTop‘𝑅)))
7360, 72mpbird 260 . . . 4 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → ∀𝑧 ∈ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})(𝐹𝑧) ∈ (ordTop‘𝑅))
74 cnvimass 6086 . . . . . . . . . 10 (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) ⊆ dom 𝐹
7574, 21sseqtrid 3980 . . . . . . . . 9 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) ⊆ 𝑋)
76 sseqin2 4176 . . . . . . . . 9 ((𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) ⊆ 𝑋 ↔ (𝑋 ∩ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})) = (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))
7775, 76sylib 221 . . . . . . . 8 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝑋 ∩ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})) = (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))
78 elpreima 7058 . . . . . . . . . . 11 (𝐹 Fn 𝑋 → (𝑧 ∈ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) ↔ (𝑧𝑋 ∧ (𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})))
7927, 78syl 18 . . . . . . . . . 10 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → (𝑧 ∈ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) ↔ (𝑧𝑋 ∧ (𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})))
8030biantrurd 542 . . . . . . . . . 10 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → ((𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦} ↔ (𝑧𝑋 ∧ (𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})))
81 breq2 5115 . . . . . . . . . . . . . 14 (𝑦 = (𝐹𝑧) → (𝑥𝑆𝑦𝑥𝑆(𝐹𝑧)))
8281notbid 321 . . . . . . . . . . . . 13 (𝑦 = (𝐹𝑧) → (¬ 𝑥𝑆𝑦 ↔ ¬ 𝑥𝑆(𝐹𝑧)))
8382elrab3 3653 . . . . . . . . . . . 12 ((𝐹𝑧) ∈ 𝑌 → ((𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦} ↔ ¬ 𝑥𝑆(𝐹𝑧)))
8433, 83syl 18 . . . . . . . . . . 11 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → ((𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦} ↔ ¬ 𝑥𝑆(𝐹𝑧)))
85 isorel 7334 . . . . . . . . . . . . . 14 ((𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌) ∧ ((𝐹𝑥) ∈ 𝑋𝑧𝑋)) → ((𝐹𝑥)𝑅𝑧 ↔ (𝐹‘(𝐹𝑥))𝑆(𝐹𝑧)))
8638, 43, 30, 85syl12anc 850 . . . . . . . . . . . . 13 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → ((𝐹𝑥)𝑅𝑧 ↔ (𝐹‘(𝐹𝑥))𝑆(𝐹𝑧)))
8748breq1d 5121 . . . . . . . . . . . . 13 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → ((𝐹‘(𝐹𝑥))𝑆(𝐹𝑧) ↔ 𝑥𝑆(𝐹𝑧)))
8886, 87bitrd 282 . . . . . . . . . . . 12 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → ((𝐹𝑥)𝑅𝑧𝑥𝑆(𝐹𝑧)))
8988notbid 321 . . . . . . . . . . 11 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → (¬ (𝐹𝑥)𝑅𝑧 ↔ ¬ 𝑥𝑆(𝐹𝑧)))
9084, 89bitr4d 285 . . . . . . . . . 10 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → ((𝐹𝑧) ∈ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦} ↔ ¬ (𝐹𝑥)𝑅𝑧))
9179, 80, 903bitr2d 310 . . . . . . . . 9 ((((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) ∧ 𝑧𝑋) → (𝑧 ∈ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) ↔ ¬ (𝐹𝑥)𝑅𝑧))
9291rabbi2dva 4178 . . . . . . . 8 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝑋 ∩ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})) = {𝑧𝑋 ∣ ¬ (𝐹𝑥)𝑅𝑧})
9377, 92eqtr3d 2802 . . . . . . 7 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) = {𝑧𝑋 ∣ ¬ (𝐹𝑥)𝑅𝑧})
947ordtopn2 23407 . . . . . . . 8 ((𝑅𝑉 ∧ (𝐹𝑥) ∈ 𝑋) → {𝑧𝑋 ∣ ¬ (𝐹𝑥)𝑅𝑧} ∈ (ordTop‘𝑅))
9556, 42, 94syl2anc 596 . . . . . . 7 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → {𝑧𝑋 ∣ ¬ (𝐹𝑥)𝑅𝑧} ∈ (ordTop‘𝑅))
9693, 95eqeltrd 2865 . . . . . 6 (((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) ∧ 𝑥𝑌) → (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) ∈ (ordTop‘𝑅))
9796ralrimiva 3159 . . . . 5 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → ∀𝑥𝑌 (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) ∈ (ordTop‘𝑅))
98 rabexg 5310 . . . . . . . 8 (𝑌 ∈ V → {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦} ∈ V)
9964, 98syl 18 . . . . . . 7 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦} ∈ V)
10099ralrimivw 3163 . . . . . 6 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → ∀𝑥𝑌 {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦} ∈ V)
101 eqid 2765 . . . . . . 7 (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) = (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})
102 imaeq2 6060 . . . . . . . 8 (𝑧 = {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦} → (𝐹𝑧) = (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))
103102eleq1d 2850 . . . . . . 7 (𝑧 = {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦} → ((𝐹𝑧) ∈ (ordTop‘𝑅) ↔ (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) ∈ (ordTop‘𝑅)))
104101, 103ralrnmptw 7094 . . . . . 6 (∀𝑥𝑌 {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦} ∈ V → (∀𝑧 ∈ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})(𝐹𝑧) ∈ (ordTop‘𝑅) ↔ ∀𝑥𝑌 (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) ∈ (ordTop‘𝑅)))
105100, 104syl 18 . . . . 5 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → (∀𝑧 ∈ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})(𝐹𝑧) ∈ (ordTop‘𝑅) ↔ ∀𝑥𝑌 (𝐹 “ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) ∈ (ordTop‘𝑅)))
10697, 105mpbird 260 . . . 4 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → ∀𝑧 ∈ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})(𝐹𝑧) ∈ (ordTop‘𝑅))
107 ralunb 4150 . . . 4 (∀𝑧 ∈ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))(𝐹𝑧) ∈ (ordTop‘𝑅) ↔ (∀𝑧 ∈ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})(𝐹𝑧) ∈ (ordTop‘𝑅) ∧ ∀𝑧 ∈ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})(𝐹𝑧) ∈ (ordTop‘𝑅)))
10873, 106, 107sylanbrc 595 . . 3 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → ∀𝑧 ∈ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))(𝐹𝑧) ∈ (ordTop‘𝑅))
109 ralunb 4150 . . 3 (∀𝑧 ∈ ({𝑌} ∪ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})))(𝐹𝑧) ∈ (ordTop‘𝑅) ↔ (∀𝑧 ∈ {𝑌} (𝐹𝑧) ∈ (ordTop‘𝑅) ∧ ∀𝑧 ∈ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))(𝐹𝑧) ∈ (ordTop‘𝑅)))
11017, 108, 109sylanbrc 595 . 2 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → ∀𝑧 ∈ ({𝑌} ∪ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})))(𝐹𝑧) ∈ (ordTop‘𝑅))
111 eqid 2765 . . . . . . 7 ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) = ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥})
112 eqid 2765 . . . . . . 7 ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}) = ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})
11361, 111, 112ordtuni 23402 . . . . . 6 (𝑆𝑊𝑌 = ({𝑌} ∪ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))))
114113, 63eqeltrrd 2866 . . . . 5 (𝑆𝑊 ({𝑌} ∪ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))) ∈ V)
115 uniexb 7770 . . . . 5 (({𝑌} ∪ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))) ∈ V ↔ ({𝑌} ∪ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))) ∈ V)
116114, 115sylibr 237 . . . 4 (𝑆𝑊 → ({𝑌} ∪ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))) ∈ V)
1171163ad2ant2 1152 . . 3 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → ({𝑌} ∪ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))) ∈ V)
11861, 111, 112ordtval 23401 . . . 4 (𝑆𝑊 → (ordTop‘𝑆) = (topGen‘(fi‘({𝑌} ∪ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))))))
1191183ad2ant2 1152 . . 3 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → (ordTop‘𝑆) = (topGen‘(fi‘({𝑌} ∪ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦}))))))
12061ordttopon 23405 . . . 4 (𝑆𝑊 → (ordTop‘𝑆) ∈ (TopOn‘𝑌))
1211203ad2ant2 1152 . . 3 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → (ordTop‘𝑆) ∈ (TopOn‘𝑌))
1229, 117, 119, 121subbascn 23466 . 2 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → (𝐹 ∈ ((ordTop‘𝑅) Cn (ordTop‘𝑆)) ↔ (𝐹:𝑋𝑌 ∧ ∀𝑧 ∈ ({𝑌} ∪ (ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑦𝑆𝑥}) ∪ ran (𝑥𝑌 ↦ {𝑦𝑌 ∣ ¬ 𝑥𝑆𝑦})))(𝐹𝑧) ∈ (ordTop‘𝑅))))
1234, 110, 122mpbir2and 726 1 ((𝑅𝑉𝑆𝑊𝐹 Isom 𝑅, 𝑆 (𝑋, 𝑌)) → 𝐹 ∈ ((ordTop‘𝑅) Cn (ordTop‘𝑆)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  w3a 1103   = wceq 1570  wcel 2146  wral 3081  {crab 3418  Vcvv 3457  cun 3904  cin 3905  wss 3906  {csn 4591   cuni 4874   class class class wbr 5111  cmpt 5194  ccnv 5662  dom cdm 5663  ran crn 5664  cima 5666   Fn wfn 6536  wf 6537  1-1-ontowf1o 6540  cfv 6541   Isom wiso 6542  (class class class)co 7420  ficfi 9378  topGenctg 17517  ordTopcordt 17580  TopOnctopon 23122   Cn ccn 23436
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7743
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3082  df-rex 3092  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-int 4915  df-iun 4960  df-iin 4961  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6497  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-ov 7423  df-oprab 7424  df-mpo 7425  df-om 7870  df-1st 7993  df-2nd 7994  df-1o 8460  df-2o 8461  df-map 8833  df-en 8951  df-dom 8952  df-fin 8954  df-fi 9379  df-topgen 17523  df-ordt 17582  df-top 23106  df-topon 23123  df-bases 23158  df-cn 23439
This theorem is used by:  ordthmeo  24015  xrmulc1cn  34389
  Copyright terms: Public domain W3C validator