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

Theorem cdlemc4 36886
Description: Part of proof of Lemma C in [Crawley] p. 113. (Contributed by NM, 26-May-2012.)
Hypotheses
Ref Expression
cdlemc3.l = (le‘𝐾)
cdlemc3.j = (join‘𝐾)
cdlemc3.m = (meet‘𝐾)
cdlemc3.a 𝐴 = (Atoms‘𝐾)
cdlemc3.h 𝐻 = (LHyp‘𝐾)
cdlemc3.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemc3.r 𝑅 = ((trL‘𝐾)‘𝑊)
Assertion
Ref Expression
cdlemc4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃))) → (𝑄 (𝑅𝐹)) ≠ ((𝐹𝑃) ((𝑃 𝑄) 𝑊)))

Proof of Theorem cdlemc4
StepHypRef Expression
1 simpll 763 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝐾 ∈ HL)
21hllatd 36056 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝐾 ∈ Lat)
3 simpl 483 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
4 simpr1 1187 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝐹𝑇)
5 simpr2l 1225 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑃𝐴)
6 eqid 2795 . . . . . . . . 9 (Base‘𝐾) = (Base‘𝐾)
7 cdlemc3.a . . . . . . . . 9 𝐴 = (Atoms‘𝐾)
86, 7atbase 35981 . . . . . . . 8 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
95, 8syl 17 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑃 ∈ (Base‘𝐾))
10 cdlemc3.h . . . . . . . 8 𝐻 = (LHyp‘𝐾)
11 cdlemc3.t . . . . . . . 8 𝑇 = ((LTrn‘𝐾)‘𝑊)
126, 10, 11ltrncl 36817 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑃 ∈ (Base‘𝐾)) → (𝐹𝑃) ∈ (Base‘𝐾))
133, 4, 9, 12syl3anc 1364 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝐹𝑃) ∈ (Base‘𝐾))
14 simpr3l 1227 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑄𝐴)
15 cdlemc3.j . . . . . . . . 9 = (join‘𝐾)
166, 15, 7hlatjcl 36059 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) ∈ (Base‘𝐾))
171, 5, 14, 16syl3anc 1364 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝑃 𝑄) ∈ (Base‘𝐾))
186, 10lhpbase 36690 . . . . . . . 8 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
1918ad2antlr 723 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑊 ∈ (Base‘𝐾))
20 cdlemc3.m . . . . . . . 8 = (meet‘𝐾)
216, 20latmcl 17496 . . . . . . 7 ((𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾))
222, 17, 19, 21syl3anc 1364 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾))
23 cdlemc3.l . . . . . . 7 = (le‘𝐾)
246, 23, 15latlej1 17504 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝐹𝑃) ∈ (Base‘𝐾) ∧ ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾)) → (𝐹𝑃) ((𝐹𝑃) ((𝑃 𝑄) 𝑊)))
252, 13, 22, 24syl3anc 1364 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝐹𝑃) ((𝐹𝑃) ((𝑃 𝑄) 𝑊)))
26 breq2 4970 . . . . 5 ((𝑄 (𝑅𝐹)) = ((𝐹𝑃) ((𝑃 𝑄) 𝑊)) → ((𝐹𝑃) (𝑄 (𝑅𝐹)) ↔ (𝐹𝑃) ((𝐹𝑃) ((𝑃 𝑄) 𝑊))))
2725, 26syl5ibrcom 248 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → ((𝑄 (𝑅𝐹)) = ((𝐹𝑃) ((𝑃 𝑄) 𝑊)) → (𝐹𝑃) (𝑄 (𝑅𝐹))))
28 cdlemc3.r . . . . 5 𝑅 = ((trL‘𝐾)‘𝑊)
2923, 15, 20, 7, 10, 11, 28cdlemc3 36885 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → ((𝐹𝑃) (𝑄 (𝑅𝐹)) → 𝑄 (𝑃 (𝐹𝑃))))
3027, 29syld 47 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → ((𝑄 (𝑅𝐹)) = ((𝐹𝑃) ((𝑃 𝑄) 𝑊)) → 𝑄 (𝑃 (𝐹𝑃))))
3130necon3bd 2998 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (¬ 𝑄 (𝑃 (𝐹𝑃)) → (𝑄 (𝑅𝐹)) ≠ ((𝐹𝑃) ((𝑃 𝑄) 𝑊))))
32313impia 1110 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃))) → (𝑄 (𝑅𝐹)) ≠ ((𝐹𝑃) ((𝑃 𝑄) 𝑊)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  w3a 1080   = wceq 1522  wcel 2081  wne 2984   class class class wbr 4966  cfv 6230  (class class class)co 7021  Basecbs 16317  lecple 16406  joincjn 17388  meetcmee 17389  Latclat 17489  Atomscatm 35955  HLchlt 36042  LHypclh 36676  LTrncltrn 36793  trLctrl 36850
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-rep 5086  ax-sep 5099  ax-nul 5106  ax-pow 5162  ax-pr 5226  ax-un 7324
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3an 1082  df-tru 1525  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-ral 3110  df-rex 3111  df-reu 3112  df-rab 3114  df-v 3439  df-sbc 3710  df-csb 3816  df-dif 3866  df-un 3868  df-in 3870  df-ss 3878  df-nul 4216  df-if 4386  df-pw 4459  df-sn 4477  df-pr 4479  df-op 4483  df-uni 4750  df-iun 4831  df-iin 4832  df-br 4967  df-opab 5029  df-mpt 5046  df-id 5353  df-xp 5454  df-rel 5455  df-cnv 5456  df-co 5457  df-dm 5458  df-rn 5459  df-res 5460  df-ima 5461  df-iota 6194  df-fun 6232  df-fn 6233  df-f 6234  df-f1 6235  df-fo 6236  df-f1o 6237  df-fv 6238  df-riota 6982  df-ov 7024  df-oprab 7025  df-mpo 7026  df-1st 7550  df-2nd 7551  df-map 8263  df-proset 17372  df-poset 17390  df-plt 17402  df-lub 17418  df-glb 17419  df-join 17420  df-meet 17421  df-p0 17483  df-p1 17484  df-lat 17490  df-clat 17552  df-oposet 35868  df-ol 35870  df-oml 35871  df-covers 35958  df-ats 35959  df-atl 35990  df-cvlat 36014  df-hlat 36043  df-psubsp 36195  df-pmap 36196  df-padd 36488  df-lhyp 36680  df-laut 36681  df-ldil 36796  df-ltrn 36797  df-trl 36851
This theorem is referenced by:  cdlemc5  36887
  Copyright terms: Public domain W3C validator