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 40936
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 1298 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝐾 ∈ HL)
2 hlol 39985 . . . 4 (𝐾 ∈ HL → 𝐾 ∈ OL)
31, 2syl 17 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝐾 ∈ OL)
41hllatd 39988 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝐾 ∈ Lat)
5 simp11r 1299 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑊𝐻)
6 simp12l 1300 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑃𝐴)
7 simp13l 1302 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑄𝐴)
8 simp21l 1304 . . . . 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 2762 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
179, 10, 11, 12, 13, 14, 15, 16cdleme1b 40850 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑄𝐴𝑆𝐴)) → 𝐹 ∈ (Base‘𝐾))
181, 5, 6, 7, 8, 17syl23anc 1396 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝐹 ∈ (Base‘𝐾))
19 simp22l 1306 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑇𝐴)
20 cdleme19.g . . . . . 6 𝐺 = ((𝑇 𝑈) (𝑄 ((𝑃 𝑇) 𝑊)))
219, 10, 11, 12, 13, 14, 20, 16cdleme1b 40850 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑄𝐴𝑇𝐴)) → 𝐺 ∈ (Base‘𝐾))
221, 5, 6, 7, 19, 21syl23anc 1396 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝐺 ∈ (Base‘𝐾))
2316, 10latjcl 18471 . . . 4 ((𝐾 ∈ Lat ∧ 𝐹 ∈ (Base‘𝐾) ∧ 𝐺 ∈ (Base‘𝐾)) → (𝐹 𝐺) ∈ (Base‘𝐾))
244, 18, 22, 23syl3anc 1390 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝐹 𝐺) ∈ (Base‘𝐾))
2516, 13lhpbase 40622 . . . 4 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
265, 25syl 17 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑊 ∈ (Base‘𝐾))
27 simp23l 1308 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑅𝐴)
2816, 10, 12hlatjcl 39991 . . . . 5 ((𝐾 ∈ HL ∧ 𝑅𝐴𝑆𝐴) → (𝑅 𝑆) ∈ (Base‘𝐾))
291, 27, 8, 28syl3anc 1390 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑅 𝑆) ∈ (Base‘𝐾))
3016, 12atbase 39913 . . . . 5 (𝑇𝐴𝑇 ∈ (Base‘𝐾))
3119, 30syl 17 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑇 ∈ (Base‘𝐾))
3216, 10latjcl 18471 . . . 4 ((𝐾 ∈ Lat ∧ (𝑅 𝑆) ∈ (Base‘𝐾) ∧ 𝑇 ∈ (Base‘𝐾)) → ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾))
334, 29, 31, 32syl3anc 1390 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾))
3416, 11latmassOLD 39853 . . 3 ((𝐾 ∈ OL ∧ ((𝐹 𝐺) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾) ∧ ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾))) → (((𝐹 𝐺) 𝑊) ((𝑅 𝑆) 𝑇)) = ((𝐹 𝐺) (𝑊 ((𝑅 𝑆) 𝑇))))
353, 24, 26, 33, 34syl13anc 1391 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝐹 𝐺) 𝑊) ((𝑅 𝑆) 𝑇)) = ((𝐹 𝐺) (𝑊 ((𝑅 𝑆) 𝑇))))
36 cdleme20.v . . . 4 𝑉 = ((𝑆 𝑇) 𝑊)
379, 10, 12hlatlej2 40000 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑅𝐴𝑆𝐴) → 𝑆 (𝑅 𝑆))
381, 27, 8, 37syl3anc 1390 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑆 (𝑅 𝑆))
3916, 12atbase 39913 . . . . . . . . 9 (𝑆𝐴𝑆 ∈ (Base‘𝐾))
408, 39syl 17 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑆 ∈ (Base‘𝐾))
4116, 9, 10latjlej1 18485 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (𝑆 ∈ (Base‘𝐾) ∧ (𝑅 𝑆) ∈ (Base‘𝐾) ∧ 𝑇 ∈ (Base‘𝐾))) → (𝑆 (𝑅 𝑆) → (𝑆 𝑇) ((𝑅 𝑆) 𝑇)))
424, 40, 29, 31, 41syl13anc 1391 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑆 (𝑅 𝑆) → (𝑆 𝑇) ((𝑅 𝑆) 𝑇)))
4338, 42mpd 15 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑆 𝑇) ((𝑅 𝑆) 𝑇))
4416, 10, 12hlatjcl 39991 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → (𝑆 𝑇) ∈ (Base‘𝐾))
451, 8, 19, 44syl3anc 1390 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑆 𝑇) ∈ (Base‘𝐾))
4616, 9, 11latleeqm1 18499 . . . . . . 7 ((𝐾 ∈ Lat ∧ (𝑆 𝑇) ∈ (Base‘𝐾) ∧ ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾)) → ((𝑆 𝑇) ((𝑅 𝑆) 𝑇) ↔ ((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) = (𝑆 𝑇)))
474, 45, 33, 46syl3anc 1390 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝑆 𝑇) ((𝑅 𝑆) 𝑇) ↔ ((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) = (𝑆 𝑇)))
4843, 47mpbid 234 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) = (𝑆 𝑇))
4948oveq1d 7411 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) 𝑊) = ((𝑆 𝑇) 𝑊))
5036, 49eqtr4id 2816 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑉 = (((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) 𝑊))
5116, 11latm32 39855 . . . . 5 ((𝐾 ∈ OL ∧ ((𝑆 𝑇) ∈ (Base‘𝐾) ∧ ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → (((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) 𝑊) = (((𝑆 𝑇) 𝑊) ((𝑅 𝑆) 𝑇)))
523, 45, 33, 26, 51syl13anc 1391 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) 𝑊) = (((𝑆 𝑇) 𝑊) ((𝑅 𝑆) 𝑇)))
53 simp1 1149 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)))
54 simp21 1220 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑆𝐴 ∧ ¬ 𝑆 𝑊))
55 simp22 1221 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑇𝐴 ∧ ¬ 𝑇 𝑊))
56 simp31 1223 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑃𝑄𝑆𝑇))
57 simp32l 1312 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ¬ 𝑆 (𝑃 𝑄))
58 simp32r 1313 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ¬ 𝑇 (𝑃 𝑄))
599, 10, 11, 12, 13, 14, 15, 20cdleme16 40909 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑃𝑄𝑆𝑇)) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄))) → ((𝑆 𝑇) 𝑊) = ((𝐹 𝐺) 𝑊))
6053, 54, 55, 56, 57, 58, 59syl132anc 1407 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝑆 𝑇) 𝑊) = ((𝐹 𝐺) 𝑊))
6160oveq1d 7411 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝑆 𝑇) 𝑊) ((𝑅 𝑆) 𝑇)) = (((𝐹 𝐺) 𝑊) ((𝑅 𝑆) 𝑇)))
6252, 61eqtrd 2797 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝑆 𝑇) ((𝑅 𝑆) 𝑇)) 𝑊) = (((𝐹 𝐺) 𝑊) ((𝑅 𝑆) 𝑇)))
6350, 62eqtrd 2797 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑉 = (((𝐹 𝐺) 𝑊) ((𝑅 𝑆) 𝑇)))
64 simp23 1222 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
65 simp33 1225 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → 𝑅 (𝑃 𝑄))
66 cdleme19.d . . . . . 6 𝐷 = ((𝑅 𝑆) 𝑊)
67 cdleme19.y . . . . . 6 𝑌 = ((𝑅 𝑇) 𝑊)
689, 10, 11, 12, 13, 14, 15, 20, 66, 67, 36cdleme20c 40935 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ 𝑇𝐴) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄))) → (𝐷 𝑌) = (((𝑅 𝑆) 𝑇) 𝑊))
691, 5, 64, 54, 19, 57, 65, 68syl232anc 1416 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝐷 𝑌) = (((𝑅 𝑆) 𝑇) 𝑊))
7016, 11latmcom 18495 . . . . 5 ((𝐾 ∈ Lat ∧ ((𝑅 𝑆) 𝑇) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → (((𝑅 𝑆) 𝑇) 𝑊) = (𝑊 ((𝑅 𝑆) 𝑇)))
714, 33, 26, 70syl3anc 1390 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (((𝑅 𝑆) 𝑇) 𝑊) = (𝑊 ((𝑅 𝑆) 𝑇)))
7269, 71eqtrd 2797 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → (𝐷 𝑌) = (𝑊 ((𝑅 𝑆) 𝑇)))
7372oveq2d 7412 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝐹 𝐺) (𝐷 𝑌)) = ((𝐹 𝐺) (𝑊 ((𝑅 𝑆) 𝑇))))
7435, 63, 733eqtr4rd 2808 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄)) ∧ 𝑅 (𝑃 𝑄))) → ((𝐹 𝐺) (𝐷 𝑌)) = 𝑉)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 399  w3a 1098   = wceq 1560  wcel 2142  wne 2957   class class class wbr 5100  cfv 6521  (class class class)co 7396  Basecbs 17245  lecple 17293  joincjn 18343  meetcmee 18344  Latclat 18463  OLcol 39798  Atomscatm 39887  HLchlt 39974  LHypclh 40608
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-rep 5227  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3077  df-rex 3087  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4951  df-iin 4952  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5542  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-1st 7970  df-2nd 7971  df-proset 18326  df-poset 18345  df-plt 18360  df-lub 18376  df-glb 18377  df-join 18378  df-meet 18379  df-p0 18455  df-p1 18456  df-lat 18464  df-clat 18531  df-oposet 39800  df-ol 39802  df-oml 39803  df-covers 39890  df-ats 39891  df-atl 39922  df-cvlat 39946  df-hlat 39975  df-llines 40122  df-lplanes 40123  df-lvols 40124  df-lines 40125  df-psubsp 40127  df-pmap 40128  df-padd 40420  df-lhyp 40612
This theorem is referenced by:  cdleme20e  40937  cdleme20j  40942  cdleme20l2  40945
  Copyright terms: Public domain W3C validator