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

Theorem cdlemd7 37815
 Description: Part of proof of Lemma D in [Crawley] p. 113. (Contributed by NM, 1-Jun-2012.)
Hypotheses
Ref Expression
cdlemd4.l = (le‘𝐾)
cdlemd4.j = (join‘𝐾)
cdlemd4.a 𝐴 = (Atoms‘𝐾)
cdlemd4.h 𝐻 = (LHyp‘𝐾)
cdlemd4.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
Assertion
Ref Expression
cdlemd7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → (𝐹𝑅) = (𝐺𝑅))

Proof of Theorem cdlemd7
StepHypRef Expression
1 simp1 1133 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴))
2 simp2l 1196 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
3 simp2r 1197 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
4 simp11l 1281 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → 𝐾 ∈ HL)
54hllatd 36975 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → 𝐾 ∈ Lat)
6 simp2rl 1239 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → 𝑄𝐴)
7 eqid 2758 . . . . 5 (Base‘𝐾) = (Base‘𝐾)
8 cdlemd4.a . . . . 5 𝐴 = (Atoms‘𝐾)
97, 8atbase 36900 . . . 4 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
106, 9syl 17 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → 𝑄 ∈ (Base‘𝐾))
11 simp2ll 1237 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → 𝑃𝐴)
127, 8atbase 36900 . . . 4 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
1311, 12syl 17 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → 𝑃 ∈ (Base‘𝐾))
14 simp11 1200 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
15 simp12l 1283 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → 𝐹𝑇)
16 cdlemd4.h . . . . 5 𝐻 = (LHyp‘𝐾)
17 cdlemd4.t . . . . 5 𝑇 = ((LTrn‘𝐾)‘𝑊)
187, 16, 17ltrncl 37736 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑃 ∈ (Base‘𝐾)) → (𝐹𝑃) ∈ (Base‘𝐾))
1914, 15, 13, 18syl3anc 1368 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → (𝐹𝑃) ∈ (Base‘𝐾))
20 simp3r 1199 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → ¬ 𝑄 (𝑃 (𝐹𝑃)))
21 cdlemd4.l . . . . 5 = (le‘𝐾)
22 cdlemd4.j . . . . 5 = (join‘𝐾)
237, 21, 22latnlej1l 17759 . . . 4 ((𝐾 ∈ Lat ∧ (𝑄 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝐹𝑃) ∈ (Base‘𝐾)) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃))) → 𝑄𝑃)
2423necomd 3006 . . 3 ((𝐾 ∈ Lat ∧ (𝑄 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝐹𝑃) ∈ (Base‘𝐾)) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃))) → 𝑃𝑄)
255, 10, 13, 19, 20, 24syl131anc 1380 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → 𝑃𝑄)
26 simp3l 1198 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → (𝐹𝑃) = (𝐺𝑃))
27 simp12 1201 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → (𝐹𝑇𝐺𝑇))
2821, 22, 8, 16, 17cdlemd6 37814 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇)) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃))) ∧ (𝐹𝑃) = (𝐺𝑃)) → (𝐹𝑄) = (𝐺𝑄))
2914, 27, 2, 3, 20, 26, 28syl231anc 1387 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → (𝐹𝑄) = (𝐺𝑄))
3021, 22, 8, 16, 17cdlemd5 37813 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) → (𝐹𝑅) = (𝐺𝑅))
311, 2, 3, 25, 26, 29, 30syl132anc 1385 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ ¬ 𝑄 (𝑃 (𝐹𝑃)))) → (𝐹𝑅) = (𝐺𝑅))
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   ∧ w3a 1084   = wceq 1538   ∈ wcel 2111   ≠ wne 2951   class class class wbr 5036  ‘cfv 6340  (class class class)co 7156  Basecbs 16555  lecple 16644  joincjn 17634  Latclat 17735  Atomscatm 36874  HLchlt 36961  LHypclh 37595  LTrncltrn 37712 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2729  ax-rep 5160  ax-sep 5173  ax-nul 5180  ax-pow 5238  ax-pr 5302  ax-un 7465 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2557  df-eu 2588  df-clab 2736  df-cleq 2750  df-clel 2830  df-nfc 2901  df-ne 2952  df-ral 3075  df-rex 3076  df-reu 3077  df-rab 3079  df-v 3411  df-sbc 3699  df-csb 3808  df-dif 3863  df-un 3865  df-in 3867  df-ss 3877  df-nul 4228  df-if 4424  df-pw 4499  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4802  df-iun 4888  df-iin 4889  df-br 5037  df-opab 5099  df-mpt 5117  df-id 5434  df-xp 5534  df-rel 5535  df-cnv 5536  df-co 5537  df-dm 5538  df-rn 5539  df-res 5540  df-ima 5541  df-iota 6299  df-fun 6342  df-fn 6343  df-f 6344  df-f1 6345  df-fo 6346  df-f1o 6347  df-fv 6348  df-riota 7114  df-ov 7159  df-oprab 7160  df-mpo 7161  df-1st 7699  df-2nd 7700  df-map 8424  df-proset 17618  df-poset 17636  df-plt 17648  df-lub 17664  df-glb 17665  df-join 17666  df-meet 17667  df-p0 17729  df-p1 17730  df-lat 17736  df-clat 17798  df-oposet 36787  df-ol 36789  df-oml 36790  df-covers 36877  df-ats 36878  df-atl 36909  df-cvlat 36933  df-hlat 36962  df-llines 37109  df-psubsp 37114  df-pmap 37115  df-padd 37407  df-lhyp 37599  df-laut 37600  df-ldil 37715  df-ltrn 37716  df-trl 37770 This theorem is referenced by:  cdlemd9  37817
 Copyright terms: Public domain W3C validator