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

Theorem isopolem 7077
Description: Lemma for isopo 7078. (Contributed by Stefan O'Rear, 16-Nov-2014.)
Assertion
Ref Expression
isopolem (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑆 Po 𝐵𝑅 Po 𝐴))

Proof of Theorem isopolem
Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑒 𝑓 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 isof1o 7055 . . . . . . . . . . 11 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → 𝐻:𝐴1-1-onto𝐵)
2 f1of 6590 . . . . . . . . . . 11 (𝐻:𝐴1-1-onto𝐵𝐻:𝐴𝐵)
3 ffvelrn 6826 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑑𝐴) → (𝐻𝑑) ∈ 𝐵)
43ex 416 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑑𝐴 → (𝐻𝑑) ∈ 𝐵))
5 ffvelrn 6826 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑒𝐴) → (𝐻𝑒) ∈ 𝐵)
65ex 416 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑒𝐴 → (𝐻𝑒) ∈ 𝐵))
7 ffvelrn 6826 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑓𝐴) → (𝐻𝑓) ∈ 𝐵)
87ex 416 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑓𝐴 → (𝐻𝑓) ∈ 𝐵))
94, 6, 83anim123d 1440 . . . . . . . . . . 11 (𝐻:𝐴𝐵 → ((𝑑𝐴𝑒𝐴𝑓𝐴) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵)))
101, 2, 93syl 18 . . . . . . . . . 10 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵)))
1110imp 410 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵))
12 breq12 5035 . . . . . . . . . . . . 13 ((𝑎 = (𝐻𝑑) ∧ 𝑎 = (𝐻𝑑)) → (𝑎𝑆𝑎 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
1312anidms 570 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑎 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
1413notbid 321 . . . . . . . . . . 11 (𝑎 = (𝐻𝑑) → (¬ 𝑎𝑆𝑎 ↔ ¬ (𝐻𝑑)𝑆(𝐻𝑑)))
15 breq1 5033 . . . . . . . . . . . . 13 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑏 ↔ (𝐻𝑑)𝑆𝑏))
1615anbi1d 632 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → ((𝑎𝑆𝑏𝑏𝑆𝑐) ↔ ((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐)))
17 breq1 5033 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑐 ↔ (𝐻𝑑)𝑆𝑐))
1816, 17imbi12d 348 . . . . . . . . . . 11 (𝑎 = (𝐻𝑑) → (((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐) ↔ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐)))
1914, 18anbi12d 633 . . . . . . . . . 10 (𝑎 = (𝐻𝑑) → ((¬ 𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐))))
20 breq2 5034 . . . . . . . . . . . . 13 (𝑏 = (𝐻𝑒) → ((𝐻𝑑)𝑆𝑏 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
21 breq1 5033 . . . . . . . . . . . . 13 (𝑏 = (𝐻𝑒) → (𝑏𝑆𝑐 ↔ (𝐻𝑒)𝑆𝑐))
2220, 21anbi12d 633 . . . . . . . . . . . 12 (𝑏 = (𝐻𝑒) → (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐)))
2322imbi1d 345 . . . . . . . . . . 11 (𝑏 = (𝐻𝑒) → ((((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐)))
2423anbi2d 631 . . . . . . . . . 10 (𝑏 = (𝐻𝑒) → ((¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐))))
25 breq2 5034 . . . . . . . . . . . . 13 (𝑐 = (𝐻𝑓) → ((𝐻𝑒)𝑆𝑐 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
2625anbi2d 631 . . . . . . . . . . . 12 (𝑐 = (𝐻𝑓) → (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓))))
27 breq2 5034 . . . . . . . . . . . 12 (𝑐 = (𝐻𝑓) → ((𝐻𝑑)𝑆𝑐 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
2826, 27imbi12d 348 . . . . . . . . . . 11 (𝑐 = (𝐻𝑓) → ((((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓))))
2928anbi2d 631 . . . . . . . . . 10 (𝑐 = (𝐻𝑓) → ((¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
3019, 24, 29rspc3v 3584 . . . . . . . . 9 (((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
3111, 30syl 17 . . . . . . . 8 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
32 simpl 486 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵))
33 simpr1 1191 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑑𝐴)
34 isorel 7058 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑑𝐴)) → (𝑑𝑅𝑑 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
3532, 33, 33, 34syl12anc 835 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑑 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
3635notbid 321 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (¬ 𝑑𝑅𝑑 ↔ ¬ (𝐻𝑑)𝑆(𝐻𝑑)))
37 simpr2 1192 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑒𝐴)
38 isorel 7058 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴)) → (𝑑𝑅𝑒 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
3932, 33, 37, 38syl12anc 835 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑒 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
40 simpr3 1193 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑓𝐴)
41 isorel 7058 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑒𝐴𝑓𝐴)) → (𝑒𝑅𝑓 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
4232, 37, 40, 41syl12anc 835 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑒𝑅𝑓 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
4339, 42anbi12d 633 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((𝑑𝑅𝑒𝑒𝑅𝑓) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓))))
44 isorel 7058 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑓𝐴)) → (𝑑𝑅𝑓 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
4532, 33, 40, 44syl12anc 835 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑓 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
4643, 45imbi12d 348 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓))))
4736, 46anbi12d 633 . . . . . . . 8 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
4831, 47sylibrd 262 . . . . . . 7 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓))))
4948ex 416 . . . . . 6 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))))
5049com23 86 . . . . 5 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))))
5150imp31 421 . . . 4 (((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐))) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5251ralrimivvva 3157 . . 3 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐))) → ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5352ex 416 . 2 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓))))
54 df-po 5438 . 2 (𝑆 Po 𝐵 ↔ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)))
55 df-po 5438 . 2 (𝑅 Po 𝐴 ↔ ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5653, 54, 553imtr4g 299 1 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑆 Po 𝐵𝑅 Po 𝐴))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  w3a 1084   = wceq 1538  wcel 2111  wral 3106   class class class wbr 5030   Po wpo 5436  wf 6320  1-1-ontowf1o 6323  cfv 6324   Isom wiso 6325
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-sep 5167  ax-nul 5174  ax-pr 5295
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ral 3111  df-rex 3112  df-v 3443  df-sbc 3721  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-nul 4244  df-if 4426  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4801  df-br 5031  df-opab 5093  df-id 5425  df-po 5438  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-f1o 6331  df-fv 6332  df-isom 6333
This theorem is referenced by:  isopo  7078  isosolem  7079
  Copyright terms: Public domain W3C validator