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

Theorem cdlemg44a 38178
 Description: Part of proof of Lemma G of [Crawley] p. 116, fourth line of third paragraph on p. 117: "so fg(p) = gf(p)." (Contributed by NM, 3-Jun-2013.)
Hypotheses
Ref Expression
cdlemg44.h 𝐻 = (LHyp‘𝐾)
cdlemg44.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemg44.r 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemg44.l = (le‘𝐾)
cdlemg44.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
cdlemg44a (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝐹‘(𝐺𝑃)) = (𝐺‘(𝐹𝑃)))

Proof of Theorem cdlemg44a
StepHypRef Expression
1 simp1l 1194 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → 𝐾 ∈ HL)
21hllatd 36811 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → 𝐾 ∈ Lat)
3 simp1 1133 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
4 simp22 1204 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → 𝐺𝑇)
5 simp23l 1291 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → 𝑃𝐴)
6 eqid 2798 . . . . . . 7 (Base‘𝐾) = (Base‘𝐾)
7 cdlemg44.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
86, 7atbase 36736 . . . . . 6 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
95, 8syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → 𝑃 ∈ (Base‘𝐾))
10 cdlemg44.h . . . . . 6 𝐻 = (LHyp‘𝐾)
11 cdlemg44.t . . . . . 6 𝑇 = ((LTrn‘𝐾)‘𝑊)
126, 10, 11ltrncl 37572 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇𝑃 ∈ (Base‘𝐾)) → (𝐺𝑃) ∈ (Base‘𝐾))
133, 4, 9, 12syl3anc 1368 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝐺𝑃) ∈ (Base‘𝐾))
14 simp21 1203 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → 𝐹𝑇)
15 cdlemg44.r . . . . . 6 𝑅 = ((trL‘𝐾)‘𝑊)
166, 10, 11, 15trlcl 37611 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → (𝑅𝐹) ∈ (Base‘𝐾))
173, 14, 16syl2anc 587 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝑅𝐹) ∈ (Base‘𝐾))
18 eqid 2798 . . . . 5 (join‘𝐾) = (join‘𝐾)
196, 18latjcl 17673 . . . 4 ((𝐾 ∈ Lat ∧ (𝐺𝑃) ∈ (Base‘𝐾) ∧ (𝑅𝐹) ∈ (Base‘𝐾)) → ((𝐺𝑃)(join‘𝐾)(𝑅𝐹)) ∈ (Base‘𝐾))
202, 13, 17, 19syl3anc 1368 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → ((𝐺𝑃)(join‘𝐾)(𝑅𝐹)) ∈ (Base‘𝐾))
216, 10, 11ltrncl 37572 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑃 ∈ (Base‘𝐾)) → (𝐹𝑃) ∈ (Base‘𝐾))
223, 14, 9, 21syl3anc 1368 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝐹𝑃) ∈ (Base‘𝐾))
236, 10, 11, 15trlcl 37611 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇) → (𝑅𝐺) ∈ (Base‘𝐾))
243, 4, 23syl2anc 587 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝑅𝐺) ∈ (Base‘𝐾))
256, 18latjcl 17673 . . . 4 ((𝐾 ∈ Lat ∧ (𝐹𝑃) ∈ (Base‘𝐾) ∧ (𝑅𝐺) ∈ (Base‘𝐾)) → ((𝐹𝑃)(join‘𝐾)(𝑅𝐺)) ∈ (Base‘𝐾))
262, 22, 24, 25syl3anc 1368 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → ((𝐹𝑃)(join‘𝐾)(𝑅𝐺)) ∈ (Base‘𝐾))
27 eqid 2798 . . . 4 (meet‘𝐾) = (meet‘𝐾)
286, 27latmcom 17697 . . 3 ((𝐾 ∈ Lat ∧ ((𝐺𝑃)(join‘𝐾)(𝑅𝐹)) ∈ (Base‘𝐾) ∧ ((𝐹𝑃)(join‘𝐾)(𝑅𝐺)) ∈ (Base‘𝐾)) → (((𝐺𝑃)(join‘𝐾)(𝑅𝐹))(meet‘𝐾)((𝐹𝑃)(join‘𝐾)(𝑅𝐺))) = (((𝐹𝑃)(join‘𝐾)(𝑅𝐺))(meet‘𝐾)((𝐺𝑃)(join‘𝐾)(𝑅𝐹))))
292, 20, 26, 28syl3anc 1368 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (((𝐺𝑃)(join‘𝐾)(𝑅𝐹))(meet‘𝐾)((𝐹𝑃)(join‘𝐾)(𝑅𝐺))) = (((𝐹𝑃)(join‘𝐾)(𝑅𝐺))(meet‘𝐾)((𝐺𝑃)(join‘𝐾)(𝑅𝐹))))
30 simp23 1205 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
31 simp32 1207 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝐺𝑃) ≠ 𝑃)
32 simp33 1208 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝑅𝐹) ≠ (𝑅𝐺))
33 cdlemg44.l . . . 4 = (le‘𝐾)
3433, 18, 7, 10, 11, 15, 27cdlemg43 38177 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝐹‘(𝐺𝑃)) = (((𝐺𝑃)(join‘𝐾)(𝑅𝐹))(meet‘𝐾)((𝐹𝑃)(join‘𝐾)(𝑅𝐺))))
353, 14, 4, 30, 31, 32, 34syl123anc 1384 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝐹‘(𝐺𝑃)) = (((𝐺𝑃)(join‘𝐾)(𝑅𝐹))(meet‘𝐾)((𝐹𝑃)(join‘𝐾)(𝑅𝐺))))
36 simp31 1206 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝐹𝑃) ≠ 𝑃)
3732necomd 3042 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝑅𝐺) ≠ (𝑅𝐹))
3833, 18, 7, 10, 11, 15, 27cdlemg43 38177 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐺𝑇𝐹𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝐹𝑃) ≠ 𝑃 ∧ (𝑅𝐺) ≠ (𝑅𝐹))) → (𝐺‘(𝐹𝑃)) = (((𝐹𝑃)(join‘𝐾)(𝑅𝐺))(meet‘𝐾)((𝐺𝑃)(join‘𝐾)(𝑅𝐹))))
393, 4, 14, 30, 36, 37, 38syl123anc 1384 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝐺‘(𝐹𝑃)) = (((𝐹𝑃)(join‘𝐾)(𝑅𝐺))(meet‘𝐾)((𝐺𝑃)(join‘𝐾)(𝑅𝐹))))
4029, 35, 393eqtr4d 2843 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ ((𝐹𝑃) ≠ 𝑃 ∧ (𝐺𝑃) ≠ 𝑃 ∧ (𝑅𝐹) ≠ (𝑅𝐺))) → (𝐹‘(𝐺𝑃)) = (𝐺‘(𝐹𝑃)))
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   ∧ w3a 1084   = wceq 1538   ∈ wcel 2111   ≠ wne 2987   class class class wbr 5034  ‘cfv 6332  (class class class)co 7145  Basecbs 16495  lecple 16584  joincjn 17566  meetcmee 17567  Latclat 17667  Atomscatm 36710  HLchlt 36797  LHypclh 37431  LTrncltrn 37548  trLctrl 37605 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 2770  ax-rep 5158  ax-sep 5171  ax-nul 5178  ax-pow 5235  ax-pr 5299  ax-un 7454 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-ral 3111  df-rex 3112  df-reu 3113  df-rab 3115  df-v 3444  df-sbc 3723  df-csb 3831  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4247  df-if 4429  df-pw 4502  df-sn 4529  df-pr 4531  df-op 4535  df-uni 4805  df-iun 4887  df-iin 4888  df-br 5035  df-opab 5097  df-mpt 5115  df-id 5429  df-xp 5529  df-rel 5530  df-cnv 5531  df-co 5532  df-dm 5533  df-rn 5534  df-res 5535  df-ima 5536  df-iota 6291  df-fun 6334  df-fn 6335  df-f 6336  df-f1 6337  df-fo 6338  df-f1o 6339  df-fv 6340  df-riota 7103  df-ov 7148  df-oprab 7149  df-mpo 7150  df-1st 7684  df-2nd 7685  df-map 8409  df-proset 17550  df-poset 17568  df-plt 17580  df-lub 17596  df-glb 17597  df-join 17598  df-meet 17599  df-p0 17661  df-p1 17662  df-lat 17668  df-clat 17730  df-oposet 36623  df-ol 36625  df-oml 36626  df-covers 36713  df-ats 36714  df-atl 36745  df-cvlat 36769  df-hlat 36798  df-llines 36945  df-psubsp 36950  df-pmap 36951  df-padd 37243  df-lhyp 37435  df-laut 37436  df-ldil 37551  df-ltrn 37552  df-trl 37606 This theorem is referenced by:  cdlemg44b  38179
 Copyright terms: Public domain W3C validator