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

Theorem cdleme20m 36391
Description: Part of proof of Lemma E in [Crawley] p. 113, last paragraph on p. 114, penultimate line. 𝐷, 𝐹, 𝑁, 𝑌, 𝐺, 𝑂 represent s2, f(s), fs(r), t2, f(t), ft(r) respectively. We prove that if ¬ r s t and ¬ u s t, then fs(r) = ft(r). (Contributed by NM, 20-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 𝑉 = ((𝑆 𝑇) 𝑊)
cdleme20.n 𝑁 = ((𝑃 𝑄) (𝐹 𝐷))
cdleme20.o 𝑂 = ((𝑃 𝑄) (𝐺 𝑌))
Assertion
Ref Expression
cdleme20m ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑁 = 𝑂)

Proof of Theorem cdleme20m
StepHypRef Expression
1 simp11l 1387 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝐾 ∈ HL)
21hllatd 35432 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝐾 ∈ Lat)
3 simp11r 1388 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑊𝐻)
4 simp12l 1389 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑃𝐴)
5 simp13l 1391 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑄𝐴)
6 simp22l 1395 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑆𝐴)
7 cdleme19.l . . . . . . 7 = (le‘𝐾)
8 cdleme19.j . . . . . . 7 = (join‘𝐾)
9 cdleme19.m . . . . . . 7 = (meet‘𝐾)
10 cdleme19.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
11 cdleme19.h . . . . . . 7 𝐻 = (LHyp‘𝐾)
12 cdleme19.u . . . . . . 7 𝑈 = ((𝑃 𝑄) 𝑊)
13 cdleme19.f . . . . . . 7 𝐹 = ((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊)))
14 eqid 2825 . . . . . . 7 (Base‘𝐾) = (Base‘𝐾)
157, 8, 9, 10, 11, 12, 13, 14cdleme1b 36294 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑄𝐴𝑆𝐴)) → 𝐹 ∈ (Base‘𝐾))
161, 3, 4, 5, 6, 15syl23anc 1500 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝐹 ∈ (Base‘𝐾))
17 simp21l 1393 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑅𝐴)
18 cdleme19.d . . . . . . 7 𝐷 = ((𝑅 𝑆) 𝑊)
197, 8, 9, 10, 11, 18, 14cdlemedb 36365 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴𝑆𝐴)) → 𝐷 ∈ (Base‘𝐾))
201, 3, 17, 6, 19syl22anc 872 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝐷 ∈ (Base‘𝐾))
2114, 8latjcl 17404 . . . . 5 ((𝐾 ∈ Lat ∧ 𝐹 ∈ (Base‘𝐾) ∧ 𝐷 ∈ (Base‘𝐾)) → (𝐹 𝐷) ∈ (Base‘𝐾))
222, 16, 20, 21syl3anc 1494 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝐹 𝐷) ∈ (Base‘𝐾))
23 simp23l 1397 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑇𝐴)
24 cdleme19.g . . . . . . 7 𝐺 = ((𝑇 𝑈) (𝑄 ((𝑃 𝑇) 𝑊)))
257, 8, 9, 10, 11, 12, 24, 14cdleme1b 36294 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑄𝐴𝑇𝐴)) → 𝐺 ∈ (Base‘𝐾))
261, 3, 4, 5, 23, 25syl23anc 1500 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝐺 ∈ (Base‘𝐾))
27 cdleme19.y . . . . . . 7 𝑌 = ((𝑅 𝑇) 𝑊)
287, 8, 9, 10, 11, 27, 14cdlemedb 36365 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴𝑇𝐴)) → 𝑌 ∈ (Base‘𝐾))
291, 3, 17, 23, 28syl22anc 872 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑌 ∈ (Base‘𝐾))
3014, 8latjcl 17404 . . . . 5 ((𝐾 ∈ Lat ∧ 𝐺 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾)) → (𝐺 𝑌) ∈ (Base‘𝐾))
312, 26, 29, 30syl3anc 1494 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝐺 𝑌) ∈ (Base‘𝐾))
3214, 9latmcom 17428 . . . 4 ((𝐾 ∈ Lat ∧ (𝐹 𝐷) ∈ (Base‘𝐾) ∧ (𝐺 𝑌) ∈ (Base‘𝐾)) → ((𝐹 𝐷) (𝐺 𝑌)) = ((𝐺 𝑌) (𝐹 𝐷)))
332, 22, 31, 32syl3anc 1494 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → ((𝐹 𝐷) (𝐺 𝑌)) = ((𝐺 𝑌) (𝐹 𝐷)))
34 cdleme20.v . . . 4 𝑉 = ((𝑆 𝑇) 𝑊)
357, 8, 9, 10, 11, 12, 13, 24, 18, 27, 34cdleme20l 36390 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → ((𝐹 𝐷) (𝐺 𝑌)) = ((𝑃 𝑄) (𝐹 𝐷)))
36 simp11 1264 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
37 simp12 1265 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
38 simp13 1266 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
39 simp21 1267 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
40 simp23 1269 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝑇𝐴 ∧ ¬ 𝑇 𝑊))
41 simp22 1268 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝑆𝐴 ∧ ¬ 𝑆 𝑊))
42 simp31l 1399 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑃𝑄)
43 simp31r 1400 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑆𝑇)
4443necomd 3054 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑇𝑆)
4542, 44jca 507 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝑃𝑄𝑇𝑆))
46 simp322 1427 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → ¬ 𝑇 (𝑃 𝑄))
47 simp321 1426 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → ¬ 𝑆 (𝑃 𝑄))
48 simp323 1428 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑅 (𝑃 𝑄))
4946, 47, 483jca 1162 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (¬ 𝑇 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)))
50 simp33l 1403 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → ¬ 𝑅 (𝑆 𝑇))
518, 10hlatjcom 35436 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → (𝑆 𝑇) = (𝑇 𝑆))
521, 6, 23, 51syl3anc 1494 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝑆 𝑇) = (𝑇 𝑆))
5352breq2d 4885 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝑅 (𝑆 𝑇) ↔ 𝑅 (𝑇 𝑆)))
5450, 53mtbid 316 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → ¬ 𝑅 (𝑇 𝑆))
55 simp33r 1404 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → ¬ 𝑈 (𝑆 𝑇))
5652breq2d 4885 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (𝑈 (𝑆 𝑇) ↔ 𝑈 (𝑇 𝑆)))
5755, 56mtbid 316 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → ¬ 𝑈 (𝑇 𝑆))
5854, 57jca 507 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → (¬ 𝑅 (𝑇 𝑆) ∧ ¬ 𝑈 (𝑇 𝑆)))
59 eqid 2825 . . . . 5 ((𝑇 𝑆) 𝑊) = ((𝑇 𝑆) 𝑊)
607, 8, 9, 10, 11, 12, 24, 13, 27, 18, 59cdleme20l 36390 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ((𝑃𝑄𝑇𝑆) ∧ (¬ 𝑇 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑇 𝑆) ∧ ¬ 𝑈 (𝑇 𝑆)))) → ((𝐺 𝑌) (𝐹 𝐷)) = ((𝑃 𝑄) (𝐺 𝑌)))
6136, 37, 38, 39, 40, 41, 45, 49, 58, 60syl333anc 1525 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → ((𝐺 𝑌) (𝐹 𝐷)) = ((𝑃 𝑄) (𝐺 𝑌)))
6233, 35, 613eqtr3d 2869 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → ((𝑃 𝑄) (𝐹 𝐷)) = ((𝑃 𝑄) (𝐺 𝑌)))
63 cdleme20.n . 2 𝑁 = ((𝑃 𝑄) (𝐹 𝐷))
64 cdleme20.o . 2 𝑂 = ((𝑃 𝑄) (𝐺 𝑌))
6562, 63, 643eqtr4g 2886 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊) ∧ (𝑇𝐴 ∧ ¬ 𝑇 𝑊)) ∧ ((𝑃𝑄𝑆𝑇) ∧ (¬ 𝑆 (𝑃 𝑄) ∧ ¬ 𝑇 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ∧ (¬ 𝑅 (𝑆 𝑇) ∧ ¬ 𝑈 (𝑆 𝑇)))) → 𝑁 = 𝑂)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 386  w3a 1111   = wceq 1656  wcel 2164  wne 2999   class class class wbr 4873  cfv 6123  (class class class)co 6905  Basecbs 16222  lecple 16312  joincjn 17297  meetcmee 17298  Latclat 17398  Atomscatm 35331  HLchlt 35418  LHypclh 36052
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1894  ax-4 1908  ax-5 2009  ax-6 2075  ax-7 2112  ax-8 2166  ax-9 2173  ax-10 2192  ax-11 2207  ax-12 2220  ax-13 2389  ax-ext 2803  ax-rep 4994  ax-sep 5005  ax-nul 5013  ax-pow 5065  ax-pr 5127  ax-un 7209
This theorem depends on definitions:  df-bi 199  df-an 387  df-or 879  df-3or 1112  df-3an 1113  df-tru 1660  df-ex 1879  df-nf 1883  df-sb 2068  df-mo 2605  df-eu 2640  df-clab 2812  df-cleq 2818  df-clel 2821  df-nfc 2958  df-ne 3000  df-ral 3122  df-rex 3123  df-reu 3124  df-rab 3126  df-v 3416  df-sbc 3663  df-csb 3758  df-dif 3801  df-un 3803  df-in 3805  df-ss 3812  df-nul 4145  df-if 4307  df-pw 4380  df-sn 4398  df-pr 4400  df-op 4404  df-uni 4659  df-iun 4742  df-iin 4743  df-br 4874  df-opab 4936  df-mpt 4953  df-id 5250  df-xp 5348  df-rel 5349  df-cnv 5350  df-co 5351  df-dm 5352  df-rn 5353  df-res 5354  df-ima 5355  df-iota 6086  df-fun 6125  df-fn 6126  df-f 6127  df-f1 6128  df-fo 6129  df-f1o 6130  df-fv 6131  df-riota 6866  df-ov 6908  df-oprab 6909  df-mpt2 6910  df-1st 7428  df-2nd 7429  df-proset 17281  df-poset 17299  df-plt 17311  df-lub 17327  df-glb 17328  df-join 17329  df-meet 17330  df-p0 17392  df-p1 17393  df-lat 17399  df-clat 17461  df-oposet 35244  df-ol 35246  df-oml 35247  df-covers 35334  df-ats 35335  df-atl 35366  df-cvlat 35390  df-hlat 35419  df-llines 35566  df-lplanes 35567  df-lvols 35568  df-lines 35569  df-psubsp 35571  df-pmap 35572  df-padd 35864  df-lhyp 36056
This theorem is referenced by:  cdleme20  36392
  Copyright terms: Public domain W3C validator