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

Theorem isopolem 5488
Description: Lemma for isopo 5489. (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 5474 . . . . . . . . . . 11 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → 𝐻:𝐴1-1-onto𝐵)
2 f1of 5153 . . . . . . . . . . 11 (𝐻:𝐴1-1-onto𝐵𝐻:𝐴𝐵)
3 ffvelrn 5327 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑑𝐴) → (𝐻𝑑) ∈ 𝐵)
43ex 112 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑑𝐴 → (𝐻𝑑) ∈ 𝐵))
5 ffvelrn 5327 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑒𝐴) → (𝐻𝑒) ∈ 𝐵)
65ex 112 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑒𝐴 → (𝐻𝑒) ∈ 𝐵))
7 ffvelrn 5327 . . . . . . . . . . . . 13 ((𝐻:𝐴𝐵𝑓𝐴) → (𝐻𝑓) ∈ 𝐵)
87ex 112 . . . . . . . . . . . 12 (𝐻:𝐴𝐵 → (𝑓𝐴 → (𝐻𝑓) ∈ 𝐵))
94, 6, 83anim123d 1225 . . . . . . . . . . 11 (𝐻:𝐴𝐵 → ((𝑑𝐴𝑒𝐴𝑓𝐴) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵)))
101, 2, 93syl 17 . . . . . . . . . 10 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵)))
1110imp 119 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵))
12 breq12 3796 . . . . . . . . . . . . 13 ((𝑎 = (𝐻𝑑) ∧ 𝑎 = (𝐻𝑑)) → (𝑎𝑆𝑎 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
1312anidms 383 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑎 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
1413notbid 602 . . . . . . . . . . 11 (𝑎 = (𝐻𝑑) → (¬ 𝑎𝑆𝑎 ↔ ¬ (𝐻𝑑)𝑆(𝐻𝑑)))
15 breq1 3794 . . . . . . . . . . . . 13 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑏 ↔ (𝐻𝑑)𝑆𝑏))
1615anbi1d 446 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → ((𝑎𝑆𝑏𝑏𝑆𝑐) ↔ ((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐)))
17 breq1 3794 . . . . . . . . . . . 12 (𝑎 = (𝐻𝑑) → (𝑎𝑆𝑐 ↔ (𝐻𝑑)𝑆𝑐))
1816, 17imbi12d 227 . . . . . . . . . . 11 (𝑎 = (𝐻𝑑) → (((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐) ↔ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐)))
1914, 18anbi12d 450 . . . . . . . . . 10 (𝑎 = (𝐻𝑑) → ((¬ 𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐))))
20 breq2 3795 . . . . . . . . . . . . 13 (𝑏 = (𝐻𝑒) → ((𝐻𝑑)𝑆𝑏 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
21 breq1 3794 . . . . . . . . . . . . 13 (𝑏 = (𝐻𝑒) → (𝑏𝑆𝑐 ↔ (𝐻𝑒)𝑆𝑐))
2220, 21anbi12d 450 . . . . . . . . . . . 12 (𝑏 = (𝐻𝑒) → (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐)))
2322imbi1d 224 . . . . . . . . . . 11 (𝑏 = (𝐻𝑒) → ((((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐)))
2423anbi2d 445 . . . . . . . . . 10 (𝑏 = (𝐻𝑒) → ((¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆𝑏𝑏𝑆𝑐) → (𝐻𝑑)𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐))))
25 breq2 3795 . . . . . . . . . . . . 13 (𝑐 = (𝐻𝑓) → ((𝐻𝑒)𝑆𝑐 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
2625anbi2d 445 . . . . . . . . . . . 12 (𝑐 = (𝐻𝑓) → (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓))))
27 breq2 3795 . . . . . . . . . . . 12 (𝑐 = (𝐻𝑓) → ((𝐻𝑑)𝑆𝑐 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
2826, 27imbi12d 227 . . . . . . . . . . 11 (𝑐 = (𝐻𝑓) → ((((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓))))
2928anbi2d 445 . . . . . . . . . 10 (𝑐 = (𝐻𝑓) → ((¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆𝑐) → (𝐻𝑑)𝑆𝑐)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
3019, 24, 29rspc3v 2687 . . . . . . . . 9 (((𝐻𝑑) ∈ 𝐵 ∧ (𝐻𝑒) ∈ 𝐵 ∧ (𝐻𝑓) ∈ 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
3111, 30syl 14 . . . . . . . 8 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
32 simpl 106 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵))
33 simpr1 921 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑑𝐴)
34 isorel 5475 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑑𝐴)) → (𝑑𝑅𝑑 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
3532, 33, 33, 34syl12anc 1144 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑑 ↔ (𝐻𝑑)𝑆(𝐻𝑑)))
3635notbid 602 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (¬ 𝑑𝑅𝑑 ↔ ¬ (𝐻𝑑)𝑆(𝐻𝑑)))
37 simpr2 922 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑒𝐴)
38 isorel 5475 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴)) → (𝑑𝑅𝑒 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
3932, 33, 37, 38syl12anc 1144 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑒 ↔ (𝐻𝑑)𝑆(𝐻𝑒)))
40 simpr3 923 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → 𝑓𝐴)
41 isorel 5475 . . . . . . . . . . . 12 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑒𝐴𝑓𝐴)) → (𝑒𝑅𝑓 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
4232, 37, 40, 41syl12anc 1144 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑒𝑅𝑓 ↔ (𝐻𝑒)𝑆(𝐻𝑓)))
4339, 42anbi12d 450 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((𝑑𝑅𝑒𝑒𝑅𝑓) ↔ ((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓))))
44 isorel 5475 . . . . . . . . . . 11 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑓𝐴)) → (𝑑𝑅𝑓 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
4532, 33, 40, 44syl12anc 1144 . . . . . . . . . 10 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (𝑑𝑅𝑓 ↔ (𝐻𝑑)𝑆(𝐻𝑓)))
4643, 45imbi12d 227 . . . . . . . . 9 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓) ↔ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓))))
4736, 46anbi12d 450 . . . . . . . 8 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → ((¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)) ↔ (¬ (𝐻𝑑)𝑆(𝐻𝑑) ∧ (((𝐻𝑑)𝑆(𝐻𝑒) ∧ (𝐻𝑒)𝑆(𝐻𝑓)) → (𝐻𝑑)𝑆(𝐻𝑓)))))
4831, 47sylibrd 162 . . . . . . 7 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓))))
4948ex 112 . . . . . 6 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))))
5049com23 76 . . . . 5 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → ((𝑑𝐴𝑒𝐴𝑓𝐴) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))))
5150imp31 247 . . . 4 (((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐))) ∧ (𝑑𝐴𝑒𝐴𝑓𝐴)) → (¬ 𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5251ralrimivvva 2419 . . 3 ((𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐))) → ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5352ex 112 . 2 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)) → ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓))))
54 df-po 4060 . 2 (𝑆 Po 𝐵 ↔ ∀𝑎𝐵𝑏𝐵𝑐𝐵𝑎𝑆𝑎 ∧ ((𝑎𝑆𝑏𝑏𝑆𝑐) → 𝑎𝑆𝑐)))
55 df-po 4060 . 2 (𝑅 Po 𝐴 ↔ ∀𝑑𝐴𝑒𝐴𝑓𝐴𝑑𝑅𝑑 ∧ ((𝑑𝑅𝑒𝑒𝑅𝑓) → 𝑑𝑅𝑓)))
5653, 54, 553imtr4g 198 1 (𝐻 Isom 𝑅, 𝑆 (𝐴, 𝐵) → (𝑆 Po 𝐵𝑅 Po 𝐴))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 101  wb 102  w3a 896   = wceq 1259  wcel 1409  wral 2323   class class class wbr 3791   Po wpo 4058  wf 4925  1-1-ontowf1o 4928  cfv 4929   Isom wiso 4930
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 103  ax-ia2 104  ax-ia3 105  ax-in1 554  ax-in2 555  ax-io 640  ax-5 1352  ax-7 1353  ax-gen 1354  ax-ie1 1398  ax-ie2 1399  ax-8 1411  ax-10 1412  ax-11 1413  ax-i12 1414  ax-bndl 1415  ax-4 1416  ax-14 1421  ax-17 1435  ax-i9 1439  ax-ial 1443  ax-i5r 1444  ax-ext 2038  ax-sep 3902  ax-pow 3954  ax-pr 3971
This theorem depends on definitions:  df-bi 114  df-3an 898  df-tru 1262  df-nf 1366  df-sb 1662  df-eu 1919  df-mo 1920  df-clab 2043  df-cleq 2049  df-clel 2052  df-nfc 2183  df-ral 2328  df-rex 2329  df-v 2576  df-sbc 2787  df-un 2949  df-in 2951  df-ss 2958  df-pw 3388  df-sn 3408  df-pr 3409  df-op 3411  df-uni 3608  df-br 3792  df-opab 3846  df-id 4057  df-po 4060  df-xp 4378  df-rel 4379  df-cnv 4380  df-co 4381  df-dm 4382  df-rn 4383  df-iota 4894  df-fun 4931  df-fn 4932  df-f 4933  df-f1 4934  df-f1o 4936  df-fv 4937  df-isom 4938
This theorem is referenced by:  isopo  5489  isosolem  5490
  Copyright terms: Public domain W3C validator