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

Theorem isopolem 7352
Description: Lemma for isopo 7353. (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 7330 . . . . . . . . . . 11 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → 𝐻:𝐴1-1-onto𝐵)
2 f1of 6824 . . . . . . . . . . 11 (𝐻:𝐴1-1-onto𝐵𝐻:𝐴𝐵)
3 ffvelcdm 7080 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑑𝐴) → (𝐻𝑑) ∈ 𝐵)
43ex 418 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑑𝐴 → (𝐻𝑑) ∈ 𝐵))
5 ffvelcdm 7080 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑒𝐴) → (𝐻𝑒) ∈ 𝐵)
65ex 418 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑒𝐴 → (𝐻𝑒) ∈ 𝐵))
7 ffvelcdm 7080 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑓𝐴) → (𝐻𝑓) ∈ 𝐵)
87ex 418 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑓𝐴 → (𝐻𝑓) ∈ 𝐵))
94, 6, 83anim123d 1471 . . . . . . . . . . 11 (𝐻:𝐴𝐵 → ((𝑑𝐴𝑒𝐴𝑓𝐴) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵)))
101, 2, 93syl 19 . . . . . . . . . 10 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵)))
1110imp 412 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵))
12 breq12 5116 . . . . . . . . . . . . 13 ((𝑎 = (𝐻𝑑) ∧ 𝑎 = (𝐻𝑑)) → (𝑎𝑆𝑎 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
1312anidms 577 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑎 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
1413notbid 321 . . . . . . . . . . 11 (𝑎 = (𝐻𝑑) → (¬ 𝑎𝑆𝑎 ↔ ¬ (𝐻𝑑)𝑆(𝐻𝑑)))
15 breq1 5114 . . . . . . . . . . . . 13 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑏 ↔ (𝐻𝑑)𝑆𝑏))
1615anbi1d 643 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → ((𝑎𝑆𝑏𝑏𝑆𝑐) ↔ ((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐)))
17 breq1 5114 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑐 ↔ (𝐻𝑑)𝑆𝑐))
1816, 17imbi12d 347 . . . . . . . . . . 11 (𝑎 = (𝐻𝑑) → (((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐) ↔ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐)))
1914, 18anbi12d 644 . . . . . . . . . 10 (𝑎 = (𝐻𝑑) → ((¬ 𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐))))
20 breq2 5115 . . . . . . . . . . . . 13 (𝑏 = (𝐻𝑒) → ((𝐻𝑑)𝑆𝑏 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
21 breq1 5114 . . . . . . . . . . . . 13 (𝑏 = (𝐻𝑒) → (𝑏𝑆𝑐 ↔ (𝐻𝑒)𝑆𝑐))
2220, 21anbi12d 644 . . . . . . . . . . . 12 (𝑏 = (𝐻𝑒) → (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐)))
2322imbi1d 344 . . . . . . . . . . 11 (𝑏 = (𝐻𝑒) → ((((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐)))
2423anbi2d 642 . . . . . . . . . 10 (𝑏 = (𝐻𝑒) → ((¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐))))
25 breq2 5115 . . . . . . . . . . . . 13 (𝑐 = (𝐻𝑓) → ((𝐻𝑒)𝑆𝑐 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
2625anbi2d 642 . . . . . . . . . . . 12 (𝑐 = (𝐻𝑓) → (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓))))
27 breq2 5115 . . . . . . . . . . . 12 (𝑐 = (𝐻𝑓) → ((𝐻𝑑)𝑆𝑐 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
2826, 27imbi12d 347 . . . . . . . . . . 11 (𝑐 = (𝐻𝑓) → ((((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓))))
2928anbi2d 642 . . . . . . . . . 10 (𝑐 = (𝐻𝑓) → ((¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
3019, 24, 29rspc3v 3599 . . . . . . . . 9 (((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
3111, 30syl 18 . . . . . . . 8 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
32 simpl 488 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵))
33 simpr1 1213 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑑𝐴)
34 isorel 7333 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑑𝐴)) → (𝑑𝑅𝑑 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
3532, 33, 33, 34syl12anc 850 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑑 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
3635notbid 321 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (¬ 𝑑𝑅𝑑 ↔ ¬ (𝐻𝑑)𝑆(𝐻𝑑)))
37 simpr2 1214 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑒𝐴)
38 isorel 7333 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴)) → (𝑑𝑅𝑒 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
3932, 33, 37, 38syl12anc 850 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑒 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
40 simpr3 1215 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑓𝐴)
41 isorel 7333 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑒𝐴𝑓𝐴)) → (𝑒𝑅𝑓 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
4232, 37, 40, 41syl12anc 850 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑒𝑅𝑓 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
4339, 42anbi12d 644 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((𝑑𝑅𝑒𝑒𝑅𝑓) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓))))
44 isorel 7333 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑓𝐴)) → (𝑑𝑅𝑓 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
4532, 33, 40, 44syl12anc 850 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑓 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
4643, 45imbi12d 347 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓))))
4736, 46anbi12d 644 . . . . . . . 8 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
4831, 47sylibrd 262 . . . . . . 7 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓))))
4948ex 418 . . . . . 6 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))))
5049com23 87 . . . . 5 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))))
5150imp31 423 . . . 4 (((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐))) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5251ralrimivvva 3213 . . 3 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐))) → ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5352ex 418 . 2 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓))))
54 df-po 5571 . 2 (𝑆 Po 𝐵 ↔ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)))
55 df-po 5571 . 2 (𝑅 Po 𝐴 ↔ ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5653, 54, 553imtr4g 299 1 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑆 Po 𝐵𝑅 Po 𝐴))
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   class class class wbr 5111   Po wpo 5569  wf 6536  1-1-ontowf1o 6539  cfv 6540   Isom wiso 6541
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-12 2216  ax-ext 2737  ax-sep 5259  ax-nul 5271  ax-pr 5406
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  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-ne 2961  df-ral 3082  df-rex 3092  df-rab 3419  df-v 3459  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4287  df-if 4490  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-br 5112  df-opab 5176  df-id 5558  df-po 5571  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-f1o 6547  df-fv 6548  df-isom 6549
This theorem is used by:  isopo  7353  isosolem  7354
  Copyright terms: Public domain W3C validator