ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  isopolem GIF version

Theorem isopolem 5691
Description: Lemma for isopo 5692. (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 5676 . . . . . . . . . . 11 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → 𝐻:𝐴1-1-onto𝐵)
2 f1of 5335 . . . . . . . . . . 11 (𝐻:𝐴1-1-onto𝐵𝐻:𝐴𝐵)
3 ffvelrn 5521 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑑𝐴) → (𝐻𝑑) ∈ 𝐵)
43ex 114 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑑𝐴 → (𝐻𝑑) ∈ 𝐵))
5 ffvelrn 5521 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑒𝐴) → (𝐻𝑒) ∈ 𝐵)
65ex 114 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑒𝐴 → (𝐻𝑒) ∈ 𝐵))
7 ffvelrn 5521 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑓𝐴) → (𝐻𝑓) ∈ 𝐵)
87ex 114 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑓𝐴 → (𝐻𝑓) ∈ 𝐵))
94, 6, 83anim123d 1282 . . . . . . . . . . 11 (𝐻:𝐴𝐵 → ((𝑑𝐴𝑒𝐴𝑓𝐴) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵)))
101, 2, 93syl 17 . . . . . . . . . 10 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵)))
1110imp 123 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵))
12 breq12 3904 . . . . . . . . . . . . 13 ((𝑎 = (𝐻𝑑) ∧ 𝑎 = (𝐻𝑑)) → (𝑎𝑆𝑎 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
1312anidms 394 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑎 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
1413notbid 641 . . . . . . . . . . 11 (𝑎 = (𝐻𝑑) → (¬ 𝑎𝑆𝑎 ↔ ¬ (𝐻𝑑)𝑆(𝐻𝑑)))
15 breq1 3902 . . . . . . . . . . . . 13 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑏 ↔ (𝐻𝑑)𝑆𝑏))
1615anbi1d 460 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → ((𝑎𝑆𝑏𝑏𝑆𝑐) ↔ ((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐)))
17 breq1 3902 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑐 ↔ (𝐻𝑑)𝑆𝑐))
1816, 17imbi12d 233 . . . . . . . . . . 11 (𝑎 = (𝐻𝑑) → (((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐) ↔ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐)))
1914, 18anbi12d 464 . . . . . . . . . 10 (𝑎 = (𝐻𝑑) → ((¬ 𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐))))
20 breq2 3903 . . . . . . . . . . . . 13 (𝑏 = (𝐻𝑒) → ((𝐻𝑑)𝑆𝑏 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
21 breq1 3902 . . . . . . . . . . . . 13 (𝑏 = (𝐻𝑒) → (𝑏𝑆𝑐 ↔ (𝐻𝑒)𝑆𝑐))
2220, 21anbi12d 464 . . . . . . . . . . . 12 (𝑏 = (𝐻𝑒) → (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐)))
2322imbi1d 230 . . . . . . . . . . 11 (𝑏 = (𝐻𝑒) → ((((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐)))
2423anbi2d 459 . . . . . . . . . 10 (𝑏 = (𝐻𝑒) → ((¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐))))
25 breq2 3903 . . . . . . . . . . . . 13 (𝑐 = (𝐻𝑓) → ((𝐻𝑒)𝑆𝑐 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
2625anbi2d 459 . . . . . . . . . . . 12 (𝑐 = (𝐻𝑓) → (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓))))
27 breq2 3903 . . . . . . . . . . . 12 (𝑐 = (𝐻𝑓) → ((𝐻𝑑)𝑆𝑐 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
2826, 27imbi12d 233 . . . . . . . . . . 11 (𝑐 = (𝐻𝑓) → ((((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓))))
2928anbi2d 459 . . . . . . . . . 10 (𝑐 = (𝐻𝑓) → ((¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
3019, 24, 29rspc3v 2779 . . . . . . . . 9 (((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
3111, 30syl 14 . . . . . . . 8 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
32 simpl 108 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵))
33 simpr1 972 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑑𝐴)
34 isorel 5677 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑑𝐴)) → (𝑑𝑅𝑑 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
3532, 33, 33, 34syl12anc 1199 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑑 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
3635notbid 641 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (¬ 𝑑𝑅𝑑 ↔ ¬ (𝐻𝑑)𝑆(𝐻𝑑)))
37 simpr2 973 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑒𝐴)
38 isorel 5677 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴)) → (𝑑𝑅𝑒 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
3932, 33, 37, 38syl12anc 1199 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑒 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
40 simpr3 974 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑓𝐴)
41 isorel 5677 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑒𝐴𝑓𝐴)) → (𝑒𝑅𝑓 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
4232, 37, 40, 41syl12anc 1199 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑒𝑅𝑓 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
4339, 42anbi12d 464 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((𝑑𝑅𝑒𝑒𝑅𝑓) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓))))
44 isorel 5677 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑓𝐴)) → (𝑑𝑅𝑓 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
4532, 33, 40, 44syl12anc 1199 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑓 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
4643, 45imbi12d 233 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓))))
4736, 46anbi12d 464 . . . . . . . 8 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
4831, 47sylibrd 168 . . . . . . 7 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓))))
4948ex 114 . . . . . 6 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))))
5049com23 78 . . . . 5 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))))
5150imp31 254 . . . 4 (((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐))) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5251ralrimivvva 2492 . . 3 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐))) → ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5352ex 114 . 2 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓))))
54 df-po 4188 . 2 (𝑆 Po 𝐵 ↔ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)))
55 df-po 4188 . 2 (𝑅 Po 𝐴 ↔ ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5653, 54, 553imtr4g 204 1 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑆 Po 𝐵𝑅 Po 𝐴))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 103  wb 104  w3a 947   = wceq 1316  wcel 1465  wral 2393   class class class wbr 3899   Po wpo 4186  wf 5089  1-1-ontowf1o 5092  cfv 5093   Isom wiso 5094
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 588  ax-in2 589  ax-io 683  ax-5 1408  ax-7 1409  ax-gen 1410  ax-ie1 1454  ax-ie2 1455  ax-8 1467  ax-10 1468  ax-11 1469  ax-i12 1470  ax-bndl 1471  ax-4 1472  ax-14 1477  ax-17 1491  ax-i9 1495  ax-ial 1499  ax-i5r 1500  ax-ext 2099  ax-sep 4016  ax-pow 4068  ax-pr 4101
This theorem depends on definitions:  df-bi 116  df-3an 949  df-tru 1319  df-nf 1422  df-sb 1721  df-eu 1980  df-mo 1981  df-clab 2104  df-cleq 2110  df-clel 2113  df-nfc 2247  df-ral 2398  df-rex 2399  df-v 2662  df-sbc 2883  df-un 3045  df-in 3047  df-ss 3054  df-pw 3482  df-sn 3503  df-pr 3504  df-op 3506  df-uni 3707  df-br 3900  df-opab 3960  df-id 4185  df-po 4188  df-xp 4515  df-rel 4516  df-cnv 4517  df-co 4518  df-dm 4519  df-rn 4520  df-iota 5058  df-fun 5095  df-fn 5096  df-f 5097  df-f1 5098  df-f1o 5100  df-fv 5101  df-isom 5102
This theorem is referenced by:  isopo  5692  isosolem  5693
  Copyright terms: Public domain W3C validator