Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  cdlemg17pq Structured version   Visualization version   GIF version

Theorem cdlemg17pq 38695
Description: Utility theorem for swapping 𝑃 and 𝑄. TODO: fix comment. (Contributed by NM, 11-May-2013.)
Hypotheses
Ref Expression
cdlemg12.l = (le‘𝐾)
cdlemg12.j = (join‘𝐾)
cdlemg12.m = (meet‘𝐾)
cdlemg12.a 𝐴 = (Atoms‘𝐾)
cdlemg12.h 𝐻 = (LHyp‘𝐾)
cdlemg12.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemg12b.r 𝑅 = ((trL‘𝐾)‘𝑊)
Assertion
Ref Expression
cdlemg17pq ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑄𝑃) ∧ ((𝐺𝑄) ≠ 𝑄 ∧ (𝑅𝐺) (𝑄 𝑃) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑄 𝑟) = (𝑃 𝑟)))))
Distinct variable groups:   𝐴,𝑟   𝐺,𝑟   ,𝑟   ,𝑟   𝑃,𝑟   𝑄,𝑟   𝑊,𝑟   𝐹,𝑟
Allowed substitution hints:   𝑅(𝑟)   𝑇(𝑟)   𝐻(𝑟)   𝐾(𝑟)   (𝑟)

Proof of Theorem cdlemg17pq
StepHypRef Expression
1 simp11 1202 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simp13 1204 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
3 simp12 1203 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
41, 2, 33jca 1127 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)))
5 simp21 1205 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → 𝐹𝑇)
6 simp22 1206 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → 𝐺𝑇)
7 simp23 1207 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → 𝑃𝑄)
87necomd 3001 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → 𝑄𝑃)
95, 6, 83jca 1127 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → (𝐹𝑇𝐺𝑇𝑄𝑃))
10 simp31 1208 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → (𝐺𝑃) ≠ 𝑃)
11 cdlemg12.l . . . . 5 = (le‘𝐾)
12 cdlemg12.a . . . . 5 𝐴 = (Atoms‘𝐾)
13 cdlemg12.h . . . . 5 𝐻 = (LHyp‘𝐾)
14 cdlemg12.t . . . . 5 𝑇 = ((LTrn‘𝐾)‘𝑊)
1511, 12, 13, 14ltrnatneq 38205 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐺𝑃) ≠ 𝑃) → (𝐺𝑄) ≠ 𝑄)
161, 6, 3, 2, 10, 15syl131anc 1382 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → (𝐺𝑄) ≠ 𝑄)
17 simp32 1209 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → (𝑅𝐺) (𝑃 𝑄))
18 simp11l 1283 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → 𝐾 ∈ HL)
19 simp12l 1285 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → 𝑃𝐴)
20 simp13l 1287 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → 𝑄𝐴)
21 cdlemg12.j . . . . . 6 = (join‘𝐾)
2221, 12hlatjcom 37391 . . . . 5 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) = (𝑄 𝑃))
2318, 19, 20, 22syl3anc 1370 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → (𝑃 𝑄) = (𝑄 𝑃))
2417, 23breqtrd 5105 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → (𝑅𝐺) (𝑄 𝑃))
25 simp33 1210 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))
26 eqcom 2747 . . . . . 6 ((𝑃 𝑟) = (𝑄 𝑟) ↔ (𝑄 𝑟) = (𝑃 𝑟))
2726anbi2i 623 . . . . 5 ((¬ 𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)) ↔ (¬ 𝑟 𝑊 ∧ (𝑄 𝑟) = (𝑃 𝑟)))
2827rexbii 3180 . . . 4 (∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)) ↔ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑄 𝑟) = (𝑃 𝑟)))
2925, 28sylnib 328 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑄 𝑟) = (𝑃 𝑟)))
3016, 24, 293jca 1127 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → ((𝐺𝑄) ≠ 𝑄 ∧ (𝑅𝐺) (𝑄 𝑃) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑄 𝑟) = (𝑃 𝑟))))
314, 9, 303jca 1127 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑃𝑄) ∧ ((𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐺) (𝑃 𝑄) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑃 𝑟) = (𝑄 𝑟)))) → (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝐹𝑇𝐺𝑇𝑄𝑃) ∧ ((𝐺𝑄) ≠ 𝑄 ∧ (𝑅𝐺) (𝑄 𝑃) ∧ ¬ ∃𝑟𝐴𝑟 𝑊 ∧ (𝑄 𝑟) = (𝑃 𝑟)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  w3a 1086   = wceq 1542  wcel 2110  wne 2945  wrex 3067   class class class wbr 5079  cfv 6432  (class class class)co 7272  lecple 16980  joincjn 18040  meetcmee 18041  Atomscatm 37286  HLchlt 37373  LHypclh 38007  LTrncltrn 38124  trLctrl 38181
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2711  ax-rep 5214  ax-sep 5227  ax-nul 5234  ax-pow 5292  ax-pr 5356  ax-un 7583
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2072  df-mo 2542  df-eu 2571  df-clab 2718  df-cleq 2732  df-clel 2818  df-nfc 2891  df-ne 2946  df-ral 3071  df-rex 3072  df-reu 3073  df-rab 3075  df-v 3433  df-sbc 3721  df-csb 3838  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-nul 4263  df-if 4466  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4846  df-iun 4932  df-br 5080  df-opab 5142  df-mpt 5163  df-id 5490  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-iota 6390  df-fun 6434  df-fn 6435  df-f 6436  df-f1 6437  df-fo 6438  df-f1o 6439  df-fv 6440  df-riota 7229  df-ov 7275  df-oprab 7276  df-mpo 7277  df-map 8609  df-proset 18024  df-poset 18042  df-plt 18059  df-lub 18075  df-glb 18076  df-join 18077  df-meet 18078  df-p0 18154  df-p1 18155  df-lat 18161  df-clat 18228  df-oposet 37199  df-ol 37201  df-oml 37202  df-covers 37289  df-ats 37290  df-atl 37321  df-cvlat 37345  df-hlat 37374  df-lhyp 38011  df-laut 38012  df-ldil 38127  df-ltrn 38128  df-trl 38182
This theorem is referenced by:  cdlemg17bq  38696  cdlemg17iqN  38697  cdlemg17irq  38698  cdlemg17jq  38699
  Copyright terms: Public domain W3C validator