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

Theorem cdleme20d 40976
Description: Part of proof of Lemma E in [Crawley] p. 113, last paragraph on p. 114, second line. 𝐷, 𝐹, 𝑌, 𝐺 represent s2, f(s), t2, f(t). (Contributed by NM, 17-Nov-2012.)
Hypotheses
Ref Expression
cdleme19.l = (le‘𝐾)
cdleme19.j = (join‘𝐾)
cdleme19.m = (meet‘𝐾)
cdleme19.a 𝐴 = (Atoms‘𝐾)
cdleme19.h 𝐻 = (LHyp‘𝐾)
cdleme19.u 𝑈 = ((𝑃 𝑄) 𝑊)
cdleme19.f 𝐹 = ((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊)))
cdleme19.g 𝐺 = ((𝑇 𝑈) (𝑄 ((𝑃 𝑇) 𝑊)))
cdleme19.d 𝐷 = ((𝑅 𝑆) 𝑊)
cdleme19.y 𝑌 = ((𝑅 𝑇) 𝑊)
cdleme20.v 𝑉 = ((𝑆 𝑇) 𝑊)
Assertion
Ref Expression
cdleme20d ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝐹 𝐺) (𝐷 𝑌)) = 𝑉)

Proof of Theorem cdleme20d
StepHypRef Expression
1 simp11l 1301 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝐾 ∈ HL)
2 hlol 40025 . . . 4 (𝐾 ∈ HL → 𝐾 ∈ OL)
31, 2syl 18 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝐾 ∈ OL)
41hllatd 40028 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝐾 ∈ Lat)
5 simp11r 1302 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑊𝐻)
6 simp12l 1303 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑃𝐴)
7 simp13l 1305 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑄𝐴)
8 simp21l 1307 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑆𝐴)
9 cdleme19.l . . . . . 6 = (le‘𝐾)
10 cdleme19.j . . . . . 6 = (join‘𝐾)
11 cdleme19.m . . . . . 6 = (meet‘𝐾)
12 cdleme19.a . . . . . 6 𝐴 = (Atoms‘𝐾)
13 cdleme19.h . . . . . 6 𝐻 = (LHyp‘𝐾)
14 cdleme19.u . . . . . 6 𝑈 = ((𝑃 𝑄) 𝑊)
15 cdleme19.f . . . . . 6 𝐹 = ((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊)))
16 eqid 2769 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
179, 10, 11, 12, 13, 14, 15, 16cdleme1b 40890 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑄𝐴𝑆𝐴)) → 𝐹 ∈ (Base‘𝐾))
181, 5, 6, 7, 8, 17syl23anc 1402 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝐹 ∈ (Base‘𝐾))
19 simp22l 1309 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑇𝐴)
20 cdleme19.g . . . . . 6 𝐺 = ((𝑇 𝑈) (𝑄 ((𝑃 𝑇) 𝑊)))
219, 10, 11, 12, 13, 14, 20, 16cdleme1b 40890 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑄𝐴𝑇𝐴)) → 𝐺 ∈ (Base‘𝐾))
221, 5, 6, 7, 19, 21syl23anc 1402 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝐺 ∈ (Base‘𝐾))
2316, 10latjcl 18495 . . . 4 ((𝐾 ∈ Lat ∧ 𝐹 ∈ (Base‘𝐾) ∧ 𝐺 ∈ (Base‘𝐾)) → (𝐹 𝐺) ∈ (Base‘𝐾))
244, 18, 22, 23syl3anc 1396 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝐹 𝐺) ∈ (Base‘𝐾))
2516, 13lhpbase 40662 . . . 4 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
265, 25syl 18 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑊 ∈ (Base‘𝐾))
27 simp23l 1311 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑅𝐴)
2816, 10, 12hlatjcl 40031 . . . . 5 ((𝐾 ∈ HL ∧ 𝑅𝐴𝑆𝐴) → (𝑅 𝑆) ∈ (Base‘𝐾))
291, 27, 8, 28syl3anc 1396 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑅 𝑆) ∈ (Base‘𝐾))
3016, 12atbase 39953 . . . . 5 (𝑇𝐴𝑇 ∈ (Base‘𝐾))
3119, 30syl 18 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑇 ∈ (Base‘𝐾))
3216, 10latjcl 18495 . . . 4 ((𝐾 ∈ Lat ∧ (𝑅 𝑆) ∈ (Base‘𝐾) ∧ 𝑇 ∈ (Base‘𝐾)) → ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾))
334, 29, 31, 32syl3anc 1396 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾))
3416, 11latmassOLD 39893 . . 3 ((𝐾 ∈ OL ∧ ((𝐹 𝐺) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾) ∧ ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾))) → (((𝐹 𝐺) 𝑊) ((𝑅 𝑆) 𝑇)) = ((𝐹 𝐺) (𝑊 ((𝑅 𝑆) 𝑇))))
353, 24, 26, 33, 34syl13anc 1397 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝐹 𝐺) 𝑊) ((𝑅 𝑆) 𝑇)) = ((𝐹 𝐺) (𝑊 ((𝑅 𝑆) 𝑇))))
36 cdleme20.v . . . 4 𝑉 = ((𝑆 𝑇) 𝑊)
379, 10, 12hlatlej2 40040 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑅𝐴𝑆𝐴) → 𝑆 (𝑅 𝑆))
381, 27, 8, 37syl3anc 1396 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑆 (𝑅 𝑆))
3916, 12atbase 39953 . . . . . . . . 9 (𝑆𝐴𝑆 ∈ (Base‘𝐾))
408, 39syl 18 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑆 ∈ (Base‘𝐾))
4116, 9, 10latjlej1 18509 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (𝑆 ∈ (Base‘𝐾) ∧ (𝑅 𝑆) ∈ (Base‘𝐾) ∧ 𝑇 ∈ (Base‘𝐾))) → (𝑆 (𝑅 𝑆) → (𝑆 𝑇) ((𝑅 𝑆) 𝑇)))
424, 40, 29, 31, 41syl13anc 1397 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑆 (𝑅 𝑆) → (𝑆 𝑇) ((𝑅 𝑆) 𝑇)))
4338, 42mpd 16 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑆 𝑇) ((𝑅 𝑆) 𝑇))
4416, 10, 12hlatjcl 40031 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → (𝑆 𝑇) ∈ (Base‘𝐾))
451, 8, 19, 44syl3anc 1396 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑆 𝑇) ∈ (Base‘𝐾))
4616, 9, 11latleeqm1 18523 . . . . . . 7 ((𝐾 ∈ Lat ∧ (𝑆 𝑇) ∈ (Base‘𝐾) ∧ ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾)) → ((𝑆 𝑇) ((𝑅 𝑆) 𝑇) ↔ ((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) = (𝑆 𝑇)))
474, 45, 33, 46syl3anc 1396 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝑆 𝑇) ((𝑅 𝑆) 𝑇) ↔ ((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) = (𝑆 𝑇)))
4843, 47mpbid 235 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) = (𝑆 𝑇))
4948oveq1d 7426 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) 𝑊) = ((𝑆 𝑇) 𝑊))
5036, 49eqtr4id 2823 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑉 = (((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) 𝑊))
5116, 11latm32 39895 . . . . 5 ((𝐾 ∈ OL ∧ ((𝑆 𝑇) ∈ (Base‘𝐾) ∧ ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → (((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) 𝑊) = (((𝑆 𝑇) 𝑊) ((𝑅 𝑆) 𝑇)))
523, 45, 33, 26, 51syl13anc 1397 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) 𝑊) = (((𝑆 𝑇) 𝑊) ((𝑅 𝑆) 𝑇)))
53 simp1 1152 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)))
54 simp21 1223 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑆𝐴 ∧ ¬ 𝑆 𝑊))
55 simp22 1224 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑇𝐴 ∧ ¬ 𝑇 𝑊))
56 simp31 1226 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑃𝑄𝑆𝑇))
57 simp32l 1315 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ¬ 𝑆 (𝑃 𝑄))
58 simp32r 1316 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ¬ 𝑇 (𝑃 𝑄))
599, 10, 11, 12, 13, 14, 15, 20cdleme16 40949 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑃𝑄𝑆𝑇)) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄))) → ((𝑆 𝑇) 𝑊) = ((𝐹 𝐺) 𝑊))
6053, 54, 55, 56, 57, 58, 59syl132anc 1413 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝑆 𝑇) 𝑊) = ((𝐹 𝐺) 𝑊))
6160oveq1d 7426 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝑆 𝑇) 𝑊) ((𝑅 𝑆) 𝑇)) = (((𝐹 𝐺) 𝑊) ((𝑅 𝑆) 𝑇)))
6252, 61eqtrd 2804 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) 𝑊) = (((𝐹 𝐺) 𝑊) ((𝑅 𝑆) 𝑇)))
6350, 62eqtrd 2804 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑉 = (((𝐹 𝐺) 𝑊) ((𝑅 𝑆) 𝑇)))
64 simp23 1225 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
65 simp33 1228 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑅 (𝑃 𝑄))
66 cdleme19.d . . . . . 6 𝐷 = ((𝑅 𝑆) 𝑊)
67 cdleme19.y . . . . . 6 𝑌 = ((𝑅 𝑇) 𝑊)
689, 10, 11, 12, 13, 14, 15, 20, 66, 67, 36cdleme20c 40975 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ 𝑇𝐴) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄))) → (𝐷 𝑌) = (((𝑅 𝑆) 𝑇) 𝑊))
691, 5, 64, 54, 19, 57, 65, 68syl232anc 1422 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝐷 𝑌) = (((𝑅 𝑆) 𝑇) 𝑊))
7016, 11latmcom 18519 . . . . 5 ((𝐾 ∈ Lat ∧ ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → (((𝑅 𝑆) 𝑇) 𝑊) = (𝑊 ((𝑅 𝑆) 𝑇)))
714, 33, 26, 70syl3anc 1396 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝑅 𝑆) 𝑇) 𝑊) = (𝑊 ((𝑅 𝑆) 𝑇)))
7269, 71eqtrd 2804 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝐷 𝑌) = (𝑊 ((𝑅 𝑆) 𝑇)))
7372oveq2d 7427 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝐹 𝐺) (𝐷 𝑌)) = ((𝐹 𝐺) (𝑊 ((𝑅 𝑆) 𝑇))))
7435, 63, 733eqtr4rd 2815 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝐹 𝐺) (𝐷 𝑌)) = 𝑉)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400  w3a 1101   = wceq 1567  wcel 2149  wne 2964   class class class wbr 5113  cfv 6537  (class class class)co 7411  Basecbs 17269  lecple 17317  joincjn 18367  meetcmee 18368  Latclat 18487  OLcol 39838  Atomscatm 39927  HLchlt 40014  LHypclh 40648
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-iin 4963  df-br 5114  df-opab 5178  df-mpt 5197  df-id 5557  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-1st 7986  df-2nd 7987  df-proset 18350  df-poset 18369  df-plt 18384  df-lub 18400  df-glb 18401  df-join 18402  df-meet 18403  df-p0 18479  df-p1 18480  df-lat 18488  df-clat 18555  df-oposet 39840  df-ol 39842  df-oml 39843  df-covers 39930  df-ats 39931  df-atl 39962  df-cvlat 39986  df-hlat 40015  df-llines 40162  df-lplanes 40163  df-lvols 40164  df-lines 40165  df-psubsp 40167  df-pmap 40168  df-padd 40460  df-lhyp 40652
This theorem is referenced by:  cdleme20e  40977  cdleme20j  40982  cdleme20l2  40985
  Copyright terms: Public domain W3C validator