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

Theorem cdleme9 36920
Description: Part of proof of Lemma E in [Crawley] p. 113, 2nd paragraph on p. 114. 𝐶 and 𝐹 represent s1 and f(s) respectively. In their notation, we prove f(s) s1 = q s1. (Contributed by NM, 10-Jun-2012.)
Hypotheses
Ref Expression
cdleme9.l = (le‘𝐾)
cdleme9.j = (join‘𝐾)
cdleme9.m = (meet‘𝐾)
cdleme9.a 𝐴 = (Atoms‘𝐾)
cdleme9.h 𝐻 = (LHyp‘𝐾)
cdleme9.u 𝑈 = ((𝑃 𝑄) 𝑊)
cdleme9.f 𝐹 = ((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊)))
cdleme9.c 𝐶 = ((𝑃 𝑆) 𝑊)
Assertion
Ref Expression
cdleme9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐹 𝐶) = (𝑄 𝐶))

Proof of Theorem cdleme9
StepHypRef Expression
1 cdleme9.l . . . 4 = (le‘𝐾)
2 cdleme9.j . . . 4 = (join‘𝐾)
3 cdleme9.m . . . 4 = (meet‘𝐾)
4 cdleme9.a . . . 4 𝐴 = (Atoms‘𝐾)
5 cdleme9.h . . . 4 𝐻 = (LHyp‘𝐾)
6 cdleme9.u . . . 4 𝑈 = ((𝑃 𝑄) 𝑊)
7 cdleme9.f . . . 4 𝐹 = ((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊)))
8 cdleme9.c . . . 4 𝐶 = ((𝑃 𝑆) 𝑊)
91, 2, 3, 4, 5, 6, 7, 8cdleme3d 36898 . . 3 𝐹 = ((𝑆 𝑈) (𝑄 𝐶))
109oveq1i 7026 . 2 (𝐹 𝐶) = (((𝑆 𝑈) (𝑄 𝐶)) 𝐶)
11 simp1l 1190 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐾 ∈ HL)
12 simp1 1129 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
13 simp21 1199 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
14 simp23l 1287 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑆𝐴)
1511hllatd 36031 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐾 ∈ Lat)
16 eqid 2795 . . . . . . . 8 (Base‘𝐾) = (Base‘𝐾)
1716, 4atbase 35956 . . . . . . 7 (𝑆𝐴𝑆 ∈ (Base‘𝐾))
1814, 17syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑆 ∈ (Base‘𝐾))
19 simp21l 1283 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑃𝐴)
2016, 4atbase 35956 . . . . . . 7 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
2119, 20syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑃 ∈ (Base‘𝐾))
22 simp22 1200 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑄𝐴)
2316, 4atbase 35956 . . . . . . 7 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
2422, 23syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑄 ∈ (Base‘𝐾))
25 simp3 1131 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ¬ 𝑆 (𝑃 𝑄))
2616, 1, 2latnlej1l 17508 . . . . . . 7 ((𝐾 ∈ Lat ∧ (𝑆 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑆𝑃)
2726necomd 3039 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑆 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑃𝑆)
2815, 18, 21, 24, 25, 27syl131anc 1376 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑃𝑆)
291, 2, 3, 4, 5, 8cdleme9a 36918 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑆𝐴𝑃𝑆)) → 𝐶𝐴)
3012, 13, 14, 28, 29syl112anc 1367 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐶𝐴)
311, 2, 3, 4, 5, 6, 16cdleme0aa 36877 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑃𝐴𝑄𝐴) → 𝑈 ∈ (Base‘𝐾))
3212, 19, 22, 31syl3anc 1364 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑈 ∈ (Base‘𝐾))
3316, 2latjcl 17490 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑆 ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾)) → (𝑆 𝑈) ∈ (Base‘𝐾))
3415, 18, 32, 33syl3anc 1364 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑆 𝑈) ∈ (Base‘𝐾))
3516, 2, 4hlatjcl 36034 . . . . 5 ((𝐾 ∈ HL ∧ 𝑄𝐴𝐶𝐴) → (𝑄 𝐶) ∈ (Base‘𝐾))
3611, 22, 30, 35syl3anc 1364 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 𝐶) ∈ (Base‘𝐾))
371, 2, 4hlatlej2 36043 . . . . 5 ((𝐾 ∈ HL ∧ 𝑄𝐴𝐶𝐴) → 𝐶 (𝑄 𝐶))
3811, 22, 30, 37syl3anc 1364 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐶 (𝑄 𝐶))
3916, 1, 2, 3, 4atmod4i1 36533 . . . 4 ((𝐾 ∈ HL ∧ (𝐶𝐴 ∧ (𝑆 𝑈) ∈ (Base‘𝐾) ∧ (𝑄 𝐶) ∈ (Base‘𝐾)) ∧ 𝐶 (𝑄 𝐶)) → (((𝑆 𝑈) (𝑄 𝐶)) 𝐶) = (((𝑆 𝑈) 𝐶) (𝑄 𝐶)))
4011, 30, 34, 36, 38, 39syl131anc 1376 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (((𝑆 𝑈) (𝑄 𝐶)) 𝐶) = (((𝑆 𝑈) 𝐶) (𝑄 𝐶)))
4116, 2, 4hlatjcl 36034 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑆𝐴) → (𝑃 𝑆) ∈ (Base‘𝐾))
4211, 19, 14, 41syl3anc 1364 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 𝑆) ∈ (Base‘𝐾))
43 simp1r 1191 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑊𝐻)
4416, 5lhpbase 36665 . . . . . . . . . 10 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
4543, 44syl 17 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑊 ∈ (Base‘𝐾))
461, 2, 4hlatlej2 36043 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑆𝐴) → 𝑆 (𝑃 𝑆))
4711, 19, 14, 46syl3anc 1364 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑆 (𝑃 𝑆))
4816, 1, 2, 3, 4atmod3i1 36531 . . . . . . . . 9 ((𝐾 ∈ HL ∧ (𝑆𝐴 ∧ (𝑃 𝑆) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑆 (𝑃 𝑆)) → (𝑆 ((𝑃 𝑆) 𝑊)) = ((𝑃 𝑆) (𝑆 𝑊)))
4911, 14, 42, 45, 47, 48syl131anc 1376 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑆 ((𝑃 𝑆) 𝑊)) = ((𝑃 𝑆) (𝑆 𝑊)))
50 simp23r 1288 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ¬ 𝑆 𝑊)
51 eqid 2795 . . . . . . . . . . 11 (1.‘𝐾) = (1.‘𝐾)
521, 2, 51, 4, 5lhpjat2 36688 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) → (𝑆 𝑊) = (1.‘𝐾))
5312, 14, 50, 52syl12anc 833 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑆 𝑊) = (1.‘𝐾))
5453oveq2d 7032 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑆) (𝑆 𝑊)) = ((𝑃 𝑆) (1.‘𝐾)))
55 hlol 36028 . . . . . . . . . 10 (𝐾 ∈ HL → 𝐾 ∈ OL)
5611, 55syl 17 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐾 ∈ OL)
5716, 3, 51olm11 35894 . . . . . . . . 9 ((𝐾 ∈ OL ∧ (𝑃 𝑆) ∈ (Base‘𝐾)) → ((𝑃 𝑆) (1.‘𝐾)) = (𝑃 𝑆))
5856, 42, 57syl2anc 584 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑆) (1.‘𝐾)) = (𝑃 𝑆))
5949, 54, 583eqtrrd 2836 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 𝑆) = (𝑆 ((𝑃 𝑆) 𝑊)))
608oveq2i 7027 . . . . . . 7 (𝑆 𝐶) = (𝑆 ((𝑃 𝑆) 𝑊))
6159, 60syl6reqr 2850 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑆 𝐶) = (𝑃 𝑆))
6261oveq1d 7031 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑆 𝐶) 𝑈) = ((𝑃 𝑆) 𝑈))
6316, 4atbase 35956 . . . . . . 7 (𝐶𝐴𝐶 ∈ (Base‘𝐾))
6430, 63syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐶 ∈ (Base‘𝐾))
6516, 2latj32 17536 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑆 ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾) ∧ 𝐶 ∈ (Base‘𝐾))) → ((𝑆 𝑈) 𝐶) = ((𝑆 𝐶) 𝑈))
6615, 18, 32, 64, 65syl13anc 1365 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑆 𝑈) 𝐶) = ((𝑆 𝐶) 𝑈))
672, 4hlatj32 36039 . . . . . . . 8 ((𝐾 ∈ HL ∧ (𝑃𝐴𝑆𝐴𝑄𝐴)) → ((𝑃 𝑆) 𝑄) = ((𝑃 𝑄) 𝑆))
6811, 19, 14, 22, 67syl13anc 1365 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑆) 𝑄) = ((𝑃 𝑄) 𝑆))
6916, 2latjcom 17498 . . . . . . . 8 ((𝐾 ∈ Lat ∧ 𝑄 ∈ (Base‘𝐾) ∧ (𝑃 𝑆) ∈ (Base‘𝐾)) → (𝑄 (𝑃 𝑆)) = ((𝑃 𝑆) 𝑄))
7015, 24, 42, 69syl3anc 1364 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 (𝑃 𝑆)) = ((𝑃 𝑆) 𝑄))
716oveq2i 7027 . . . . . . . . 9 (𝑃 𝑈) = (𝑃 ((𝑃 𝑄) 𝑊))
7216, 2, 4hlatjcl 36034 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) ∈ (Base‘𝐾))
7311, 19, 22, 72syl3anc 1364 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 𝑄) ∈ (Base‘𝐾))
741, 2, 4hlatlej1 36042 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → 𝑃 (𝑃 𝑄))
7511, 19, 22, 74syl3anc 1364 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑃 (𝑃 𝑄))
7616, 1, 2, 3, 4atmod3i1 36531 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑃𝐴 ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑃 (𝑃 𝑄)) → (𝑃 ((𝑃 𝑄) 𝑊)) = ((𝑃 𝑄) (𝑃 𝑊)))
7711, 19, 73, 45, 75, 76syl131anc 1376 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 ((𝑃 𝑄) 𝑊)) = ((𝑃 𝑄) (𝑃 𝑊)))
781, 2, 51, 4, 5lhpjat2 36688 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 𝑊) = (1.‘𝐾))
7912, 13, 78syl2anc 584 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 𝑊) = (1.‘𝐾))
8079oveq2d 7032 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑄) (𝑃 𝑊)) = ((𝑃 𝑄) (1.‘𝐾)))
8116, 3, 51olm11 35894 . . . . . . . . . . 11 ((𝐾 ∈ OL ∧ (𝑃 𝑄) ∈ (Base‘𝐾)) → ((𝑃 𝑄) (1.‘𝐾)) = (𝑃 𝑄))
8256, 73, 81syl2anc 584 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑄) (1.‘𝐾)) = (𝑃 𝑄))
8377, 80, 823eqtrd 2835 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 ((𝑃 𝑄) 𝑊)) = (𝑃 𝑄))
8471, 83syl5eq 2843 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 𝑈) = (𝑃 𝑄))
8584oveq1d 7031 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑈) 𝑆) = ((𝑃 𝑄) 𝑆))
8668, 70, 853eqtr4d 2841 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 (𝑃 𝑆)) = ((𝑃 𝑈) 𝑆))
8716, 2latj32 17536 . . . . . . 7 ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾) ∧ 𝑆 ∈ (Base‘𝐾))) → ((𝑃 𝑈) 𝑆) = ((𝑃 𝑆) 𝑈))
8815, 21, 32, 18, 87syl13anc 1365 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑈) 𝑆) = ((𝑃 𝑆) 𝑈))
8986, 88eqtrd 2831 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 (𝑃 𝑆)) = ((𝑃 𝑆) 𝑈))
9062, 66, 893eqtr4d 2841 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑆 𝑈) 𝐶) = (𝑄 (𝑃 𝑆)))
9190oveq1d 7031 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (((𝑆 𝑈) 𝐶) (𝑄 𝐶)) = ((𝑄 (𝑃 𝑆)) (𝑄 𝐶)))
9216, 1, 3latmle1 17515 . . . . . . 7 ((𝐾 ∈ Lat ∧ (𝑃 𝑆) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 𝑆) 𝑊) (𝑃 𝑆))
9315, 42, 45, 92syl3anc 1364 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑆) 𝑊) (𝑃 𝑆))
948, 93eqbrtrid 4997 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐶 (𝑃 𝑆))
9516, 1, 2latjlej2 17505 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝐶 ∈ (Base‘𝐾) ∧ (𝑃 𝑆) ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾))) → (𝐶 (𝑃 𝑆) → (𝑄 𝐶) (𝑄 (𝑃 𝑆))))
9615, 64, 42, 24, 95syl13anc 1365 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐶 (𝑃 𝑆) → (𝑄 𝐶) (𝑄 (𝑃 𝑆))))
9794, 96mpd 15 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 𝐶) (𝑄 (𝑃 𝑆)))
9816, 2latjcl 17490 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑄 ∈ (Base‘𝐾) ∧ (𝑃 𝑆) ∈ (Base‘𝐾)) → (𝑄 (𝑃 𝑆)) ∈ (Base‘𝐾))
9915, 24, 42, 98syl3anc 1364 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 (𝑃 𝑆)) ∈ (Base‘𝐾))
10016, 1, 3latleeqm2 17519 . . . . 5 ((𝐾 ∈ Lat ∧ (𝑄 𝐶) ∈ (Base‘𝐾) ∧ (𝑄 (𝑃 𝑆)) ∈ (Base‘𝐾)) → ((𝑄 𝐶) (𝑄 (𝑃 𝑆)) ↔ ((𝑄 (𝑃 𝑆)) (𝑄 𝐶)) = (𝑄 𝐶)))
10115, 36, 99, 100syl3anc 1364 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑄 𝐶) (𝑄 (𝑃 𝑆)) ↔ ((𝑄 (𝑃 𝑆)) (𝑄 𝐶)) = (𝑄 𝐶)))
10297, 101mpbid 233 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑄 (𝑃 𝑆)) (𝑄 𝐶)) = (𝑄 𝐶))
10340, 91, 1023eqtrd 2835 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (((𝑆 𝑈) (𝑄 𝐶)) 𝐶) = (𝑄 𝐶))
10410, 103syl5eq 2843 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐹 𝐶) = (𝑄 𝐶))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  w3a 1080   = wceq 1522  wcel 2081  wne 2984   class class class wbr 4962  cfv 6225  (class class class)co 7016  Basecbs 16312  lecple 16401  joincjn 17383  meetcmee 17384  1.cp1 17477  Latclat 17484  OLcol 35841  Atomscatm 35930  HLchlt 36017  LHypclh 36651
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-rep 5081  ax-sep 5094  ax-nul 5101  ax-pow 5157  ax-pr 5221  ax-un 7319
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3an 1082  df-tru 1525  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-ral 3110  df-rex 3111  df-reu 3112  df-rab 3114  df-v 3439  df-sbc 3707  df-csb 3812  df-dif 3862  df-un 3864  df-in 3866  df-ss 3874  df-nul 4212  df-if 4382  df-pw 4455  df-sn 4473  df-pr 4475  df-op 4479  df-uni 4746  df-iun 4827  df-iin 4828  df-br 4963  df-opab 5025  df-mpt 5042  df-id 5348  df-xp 5449  df-rel 5450  df-cnv 5451  df-co 5452  df-dm 5453  df-rn 5454  df-res 5455  df-ima 5456  df-iota 6189  df-fun 6227  df-fn 6228  df-f 6229  df-f1 6230  df-fo 6231  df-f1o 6232  df-fv 6233  df-riota 6977  df-ov 7019  df-oprab 7020  df-mpo 7021  df-1st 7545  df-2nd 7546  df-proset 17367  df-poset 17385  df-plt 17397  df-lub 17413  df-glb 17414  df-join 17415  df-meet 17416  df-p0 17478  df-p1 17479  df-lat 17485  df-clat 17547  df-oposet 35843  df-ol 35845  df-oml 35846  df-covers 35933  df-ats 35934  df-atl 35965  df-cvlat 35989  df-hlat 36018  df-psubsp 36170  df-pmap 36171  df-padd 36463  df-lhyp 36655
This theorem is referenced by:  cdleme9tN  36924  cdleme17a  36953
  Copyright terms: Public domain W3C validator