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

Theorem cdlemg4d 37231
Description: TODO: FIX COMMENT. (Contributed by NM, 25-Apr-2013.)
Hypotheses
Ref Expression
cdlemg4.l = (le‘𝐾)
cdlemg4.a 𝐴 = (Atoms‘𝐾)
cdlemg4.h 𝐻 = (LHyp‘𝐾)
cdlemg4.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemg4.r 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemg4.j = (join‘𝐾)
cdlemg4b.v 𝑉 = (𝑅𝐺)
Assertion
Ref Expression
cdlemg4d (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → ¬ (𝐺𝑄) ((𝐺𝑃) (𝐹‘(𝐺𝑃))))

Proof of Theorem cdlemg4d
StepHypRef Expression
1 simp1 1117 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simp21 1187 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
3 simp22 1188 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
4 simp31 1190 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → 𝐺𝑇)
5 simp32 1191 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → ¬ 𝑄 (𝑃 𝑉))
6 cdlemg4.l . . . 4 = (le‘𝐾)
7 cdlemg4.a . . . 4 𝐴 = (Atoms‘𝐾)
8 cdlemg4.h . . . 4 𝐻 = (LHyp‘𝐾)
9 cdlemg4.t . . . 4 𝑇 = ((LTrn‘𝐾)‘𝑊)
10 cdlemg4.r . . . 4 𝑅 = ((trL‘𝐾)‘𝑊)
11 cdlemg4.j . . . 4 = (join‘𝐾)
12 cdlemg4b.v . . . 4 𝑉 = (𝑅𝐺)
136, 7, 8, 9, 10, 11, 12cdlemg4c 37230 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐺𝑇) ∧ ¬ 𝑄 (𝑃 𝑉)) → ¬ (𝐺𝑄) (𝑃 𝑉))
141, 2, 3, 4, 5, 13syl131anc 1364 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → ¬ (𝐺𝑄) (𝑃 𝑉))
15 simp1l 1178 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → 𝐾 ∈ HL)
16 simp21l 1271 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → 𝑃𝐴)
176, 7, 8, 9ltrnel 36757 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐺𝑃) ∈ 𝐴 ∧ ¬ (𝐺𝑃) 𝑊))
1817simpld 487 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝐺𝑃) ∈ 𝐴)
191, 4, 2, 18syl3anc 1352 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → (𝐺𝑃) ∈ 𝐴)
2011, 7hlatjcom 35986 . . . . 5 ((𝐾 ∈ HL ∧ 𝑃𝐴 ∧ (𝐺𝑃) ∈ 𝐴) → (𝑃 (𝐺𝑃)) = ((𝐺𝑃) 𝑃))
2115, 16, 19, 20syl3anc 1352 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → (𝑃 (𝐺𝑃)) = ((𝐺𝑃) 𝑃))
226, 7, 8, 9, 10, 11, 12cdlemg4b1 37227 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝐺𝑇) → (𝑃 𝑉) = (𝑃 (𝐺𝑃)))
231, 2, 4, 22syl3anc 1352 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → (𝑃 𝑉) = (𝑃 (𝐺𝑃)))
24 simp33 1192 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → (𝐹‘(𝐺𝑃)) = 𝑃)
2524oveq2d 6990 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → ((𝐺𝑃) (𝐹‘(𝐺𝑃))) = ((𝐺𝑃) 𝑃))
2621, 23, 253eqtr4rd 2818 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → ((𝐺𝑃) (𝐹‘(𝐺𝑃))) = (𝑃 𝑉))
2726breq2d 4937 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → ((𝐺𝑄) ((𝐺𝑃) (𝐹‘(𝐺𝑃))) ↔ (𝐺𝑄) (𝑃 𝑉)))
2814, 27mtbird 317 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝐹𝑇) ∧ (𝐺𝑇 ∧ ¬ 𝑄 (𝑃 𝑉) ∧ (𝐹‘(𝐺𝑃)) = 𝑃)) → ¬ (𝐺𝑄) ((𝐺𝑃) (𝐹‘(𝐺𝑃))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 387  w3a 1069   = wceq 1508  wcel 2051   class class class wbr 4925  cfv 6185  (class class class)co 6974  lecple 16426  joincjn 17424  Atomscatm 35881  HLchlt 35968  LHypclh 36602  LTrncltrn 36719  trLctrl 36776
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1759  ax-4 1773  ax-5 1870  ax-6 1929  ax-7 1966  ax-8 2053  ax-9 2060  ax-10 2080  ax-11 2094  ax-12 2107  ax-13 2302  ax-ext 2743  ax-rep 5045  ax-sep 5056  ax-nul 5063  ax-pow 5115  ax-pr 5182  ax-un 7277
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 835  df-3an 1071  df-tru 1511  df-ex 1744  df-nf 1748  df-sb 2017  df-mo 2548  df-eu 2585  df-clab 2752  df-cleq 2764  df-clel 2839  df-nfc 2911  df-ne 2961  df-ral 3086  df-rex 3087  df-reu 3088  df-rab 3090  df-v 3410  df-sbc 3675  df-csb 3780  df-dif 3825  df-un 3827  df-in 3829  df-ss 3836  df-nul 4173  df-if 4345  df-pw 4418  df-sn 4436  df-pr 4438  df-op 4442  df-uni 4709  df-iun 4790  df-iin 4791  df-br 4926  df-opab 4988  df-mpt 5005  df-id 5308  df-xp 5409  df-rel 5410  df-cnv 5411  df-co 5412  df-dm 5413  df-rn 5414  df-res 5415  df-ima 5416  df-iota 6149  df-fun 6187  df-fn 6188  df-f 6189  df-f1 6190  df-fo 6191  df-f1o 6192  df-fv 6193  df-riota 6935  df-ov 6977  df-oprab 6978  df-mpo 6979  df-1st 7499  df-2nd 7500  df-map 8206  df-proset 17408  df-poset 17426  df-plt 17438  df-lub 17454  df-glb 17455  df-join 17456  df-meet 17457  df-p0 17519  df-p1 17520  df-lat 17526  df-clat 17588  df-oposet 35794  df-ol 35796  df-oml 35797  df-covers 35884  df-ats 35885  df-atl 35916  df-cvlat 35940  df-hlat 35969  df-psubsp 36121  df-pmap 36122  df-padd 36414  df-lhyp 36606  df-laut 36607  df-ldil 36722  df-ltrn 36723  df-trl 36777
This theorem is referenced by:  cdlemg4e  37232
  Copyright terms: Public domain W3C validator