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 36141
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 36119 . . 3 𝐹 = ((𝑆 𝑈) (𝑄 𝐶))
109oveq1i 6852 . 2 (𝐹 𝐶) = (((𝑆 𝑈) (𝑄 𝐶)) 𝐶)
11 simp1l 1254 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐾 ∈ HL)
12 simp1 1166 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
13 simp21 1263 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
14 simp23l 1393 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑆𝐴)
1511hllatd 35252 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐾 ∈ Lat)
16 eqid 2765 . . . . . . . 8 (Base‘𝐾) = (Base‘𝐾)
1716, 4atbase 35177 . . . . . . 7 (𝑆𝐴𝑆 ∈ (Base‘𝐾))
1814, 17syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑆 ∈ (Base‘𝐾))
19 simp21l 1389 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑃𝐴)
2016, 4atbase 35177 . . . . . . 7 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
2119, 20syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑃 ∈ (Base‘𝐾))
22 simp22 1264 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑄𝐴)
2316, 4atbase 35177 . . . . . . 7 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
2422, 23syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑄 ∈ (Base‘𝐾))
25 simp3 1168 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ¬ 𝑆 (𝑃 𝑄))
2616, 1, 2latnlej1l 17337 . . . . . . 7 ((𝐾 ∈ Lat ∧ (𝑆 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑆𝑃)
2726necomd 2992 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑆 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑃𝑆)
2815, 18, 21, 24, 25, 27syl131anc 1502 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑃𝑆)
291, 2, 3, 4, 5, 8cdleme9a 36139 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑆𝐴𝑃𝑆)) → 𝐶𝐴)
3012, 13, 14, 28, 29syl112anc 1493 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐶𝐴)
311, 2, 3, 4, 5, 6, 16cdleme0aa 36098 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑃𝐴𝑄𝐴) → 𝑈 ∈ (Base‘𝐾))
3212, 19, 22, 31syl3anc 1490 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑈 ∈ (Base‘𝐾))
3316, 2latjcl 17319 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑆 ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾)) → (𝑆 𝑈) ∈ (Base‘𝐾))
3415, 18, 32, 33syl3anc 1490 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑆 𝑈) ∈ (Base‘𝐾))
3516, 2, 4hlatjcl 35255 . . . . 5 ((𝐾 ∈ HL ∧ 𝑄𝐴𝐶𝐴) → (𝑄 𝐶) ∈ (Base‘𝐾))
3611, 22, 30, 35syl3anc 1490 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 𝐶) ∈ (Base‘𝐾))
371, 2, 4hlatlej2 35264 . . . . 5 ((𝐾 ∈ HL ∧ 𝑄𝐴𝐶𝐴) → 𝐶 (𝑄 𝐶))
3811, 22, 30, 37syl3anc 1490 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐶 (𝑄 𝐶))
3916, 1, 2, 3, 4atmod4i1 35754 . . . 4 ((𝐾 ∈ HL ∧ (𝐶𝐴 ∧ (𝑆 𝑈) ∈ (Base‘𝐾) ∧ (𝑄 𝐶) ∈ (Base‘𝐾)) ∧ 𝐶 (𝑄 𝐶)) → (((𝑆 𝑈) (𝑄 𝐶)) 𝐶) = (((𝑆 𝑈) 𝐶) (𝑄 𝐶)))
4011, 30, 34, 36, 38, 39syl131anc 1502 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (((𝑆 𝑈) (𝑄 𝐶)) 𝐶) = (((𝑆 𝑈) 𝐶) (𝑄 𝐶)))
4116, 2, 4hlatjcl 35255 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑆𝐴) → (𝑃 𝑆) ∈ (Base‘𝐾))
4211, 19, 14, 41syl3anc 1490 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 𝑆) ∈ (Base‘𝐾))
43 simp1r 1255 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑊𝐻)
4416, 5lhpbase 35886 . . . . . . . . . 10 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
4543, 44syl 17 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑊 ∈ (Base‘𝐾))
461, 2, 4hlatlej2 35264 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑆𝐴) → 𝑆 (𝑃 𝑆))
4711, 19, 14, 46syl3anc 1490 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑆 (𝑃 𝑆))
4816, 1, 2, 3, 4atmod3i1 35752 . . . . . . . . 9 ((𝐾 ∈ HL ∧ (𝑆𝐴 ∧ (𝑃 𝑆) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑆 (𝑃 𝑆)) → (𝑆 ((𝑃 𝑆) 𝑊)) = ((𝑃 𝑆) (𝑆 𝑊)))
4911, 14, 42, 45, 47, 48syl131anc 1502 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑆 ((𝑃 𝑆) 𝑊)) = ((𝑃 𝑆) (𝑆 𝑊)))
50 simp23r 1394 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ¬ 𝑆 𝑊)
51 eqid 2765 . . . . . . . . . . 11 (1.‘𝐾) = (1.‘𝐾)
521, 2, 51, 4, 5lhpjat2 35909 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) → (𝑆 𝑊) = (1.‘𝐾))
5312, 14, 50, 52syl12anc 865 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑆 𝑊) = (1.‘𝐾))
5453oveq2d 6858 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑆) (𝑆 𝑊)) = ((𝑃 𝑆) (1.‘𝐾)))
55 hlol 35249 . . . . . . . . . 10 (𝐾 ∈ HL → 𝐾 ∈ OL)
5611, 55syl 17 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐾 ∈ OL)
5716, 3, 51olm11 35115 . . . . . . . . 9 ((𝐾 ∈ OL ∧ (𝑃 𝑆) ∈ (Base‘𝐾)) → ((𝑃 𝑆) (1.‘𝐾)) = (𝑃 𝑆))
5856, 42, 57syl2anc 579 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑆) (1.‘𝐾)) = (𝑃 𝑆))
5949, 54, 583eqtrrd 2804 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 𝑆) = (𝑆 ((𝑃 𝑆) 𝑊)))
608oveq2i 6853 . . . . . . 7 (𝑆 𝐶) = (𝑆 ((𝑃 𝑆) 𝑊))
6159, 60syl6reqr 2818 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑆 𝐶) = (𝑃 𝑆))
6261oveq1d 6857 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑆 𝐶) 𝑈) = ((𝑃 𝑆) 𝑈))
6316, 4atbase 35177 . . . . . . 7 (𝐶𝐴𝐶 ∈ (Base‘𝐾))
6430, 63syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐶 ∈ (Base‘𝐾))
6516, 2latj32 17365 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑆 ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾) ∧ 𝐶 ∈ (Base‘𝐾))) → ((𝑆 𝑈) 𝐶) = ((𝑆 𝐶) 𝑈))
6615, 18, 32, 64, 65syl13anc 1491 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑆 𝑈) 𝐶) = ((𝑆 𝐶) 𝑈))
672, 4hlatj32 35260 . . . . . . . 8 ((𝐾 ∈ HL ∧ (𝑃𝐴𝑆𝐴𝑄𝐴)) → ((𝑃 𝑆) 𝑄) = ((𝑃 𝑄) 𝑆))
6811, 19, 14, 22, 67syl13anc 1491 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑆) 𝑄) = ((𝑃 𝑄) 𝑆))
6916, 2latjcom 17327 . . . . . . . 8 ((𝐾 ∈ Lat ∧ 𝑄 ∈ (Base‘𝐾) ∧ (𝑃 𝑆) ∈ (Base‘𝐾)) → (𝑄 (𝑃 𝑆)) = ((𝑃 𝑆) 𝑄))
7015, 24, 42, 69syl3anc 1490 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 (𝑃 𝑆)) = ((𝑃 𝑆) 𝑄))
716oveq2i 6853 . . . . . . . . 9 (𝑃 𝑈) = (𝑃 ((𝑃 𝑄) 𝑊))
7216, 2, 4hlatjcl 35255 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) ∈ (Base‘𝐾))
7311, 19, 22, 72syl3anc 1490 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 𝑄) ∈ (Base‘𝐾))
741, 2, 4hlatlej1 35263 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → 𝑃 (𝑃 𝑄))
7511, 19, 22, 74syl3anc 1490 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝑃 (𝑃 𝑄))
7616, 1, 2, 3, 4atmod3i1 35752 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑃𝐴 ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑃 (𝑃 𝑄)) → (𝑃 ((𝑃 𝑄) 𝑊)) = ((𝑃 𝑄) (𝑃 𝑊)))
7711, 19, 73, 45, 75, 76syl131anc 1502 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 ((𝑃 𝑄) 𝑊)) = ((𝑃 𝑄) (𝑃 𝑊)))
781, 2, 51, 4, 5lhpjat2 35909 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 𝑊) = (1.‘𝐾))
7912, 13, 78syl2anc 579 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 𝑊) = (1.‘𝐾))
8079oveq2d 6858 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑄) (𝑃 𝑊)) = ((𝑃 𝑄) (1.‘𝐾)))
8116, 3, 51olm11 35115 . . . . . . . . . . 11 ((𝐾 ∈ OL ∧ (𝑃 𝑄) ∈ (Base‘𝐾)) → ((𝑃 𝑄) (1.‘𝐾)) = (𝑃 𝑄))
8256, 73, 81syl2anc 579 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑄) (1.‘𝐾)) = (𝑃 𝑄))
8377, 80, 823eqtrd 2803 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 ((𝑃 𝑄) 𝑊)) = (𝑃 𝑄))
8471, 83syl5eq 2811 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑃 𝑈) = (𝑃 𝑄))
8584oveq1d 6857 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑈) 𝑆) = ((𝑃 𝑄) 𝑆))
8668, 70, 853eqtr4d 2809 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 (𝑃 𝑆)) = ((𝑃 𝑈) 𝑆))
8716, 2latj32 17365 . . . . . . 7 ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾) ∧ 𝑆 ∈ (Base‘𝐾))) → ((𝑃 𝑈) 𝑆) = ((𝑃 𝑆) 𝑈))
8815, 21, 32, 18, 87syl13anc 1491 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑈) 𝑆) = ((𝑃 𝑆) 𝑈))
8986, 88eqtrd 2799 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 (𝑃 𝑆)) = ((𝑃 𝑆) 𝑈))
9062, 66, 893eqtr4d 2809 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑆 𝑈) 𝐶) = (𝑄 (𝑃 𝑆)))
9190oveq1d 6857 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (((𝑆 𝑈) 𝐶) (𝑄 𝐶)) = ((𝑄 (𝑃 𝑆)) (𝑄 𝐶)))
9216, 1, 3latmle1 17344 . . . . . . 7 ((𝐾 ∈ Lat ∧ (𝑃 𝑆) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 𝑆) 𝑊) (𝑃 𝑆))
9315, 42, 45, 92syl3anc 1490 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑃 𝑆) 𝑊) (𝑃 𝑆))
948, 93syl5eqbr 4844 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → 𝐶 (𝑃 𝑆))
9516, 1, 2latjlej2 17334 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝐶 ∈ (Base‘𝐾) ∧ (𝑃 𝑆) ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾))) → (𝐶 (𝑃 𝑆) → (𝑄 𝐶) (𝑄 (𝑃 𝑆))))
9615, 64, 42, 24, 95syl13anc 1491 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐶 (𝑃 𝑆) → (𝑄 𝐶) (𝑄 (𝑃 𝑆))))
9794, 96mpd 15 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 𝐶) (𝑄 (𝑃 𝑆)))
9816, 2latjcl 17319 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑄 ∈ (Base‘𝐾) ∧ (𝑃 𝑆) ∈ (Base‘𝐾)) → (𝑄 (𝑃 𝑆)) ∈ (Base‘𝐾))
9915, 24, 42, 98syl3anc 1490 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝑄 (𝑃 𝑆)) ∈ (Base‘𝐾))
10016, 1, 3latleeqm2 17348 . . . . 5 ((𝐾 ∈ Lat ∧ (𝑄 𝐶) ∈ (Base‘𝐾) ∧ (𝑄 (𝑃 𝑆)) ∈ (Base‘𝐾)) → ((𝑄 𝐶) (𝑄 (𝑃 𝑆)) ↔ ((𝑄 (𝑃 𝑆)) (𝑄 𝐶)) = (𝑄 𝐶)))
10115, 36, 99, 100syl3anc 1490 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑄 𝐶) (𝑄 (𝑃 𝑆)) ↔ ((𝑄 (𝑃 𝑆)) (𝑄 𝐶)) = (𝑄 𝐶)))
10297, 101mpbid 223 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → ((𝑄 (𝑃 𝑆)) (𝑄 𝐶)) = (𝑄 𝐶))
10340, 91, 1023eqtrd 2803 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (((𝑆 𝑈) (𝑄 𝐶)) 𝐶) = (𝑄 𝐶))
10410, 103syl5eq 2811 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴 ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ ¬ 𝑆 (𝑃 𝑄)) → (𝐹 𝐶) = (𝑄 𝐶))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 197  wa 384  w3a 1107   = wceq 1652  wcel 2155  wne 2937   class class class wbr 4809  cfv 6068  (class class class)co 6842  Basecbs 16132  lecple 16223  joincjn 17212  meetcmee 17213  1.cp1 17306  Latclat 17313  OLcol 35062  Atomscatm 35151  HLchlt 35238  LHypclh 35872
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2069  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-rep 4930  ax-sep 4941  ax-nul 4949  ax-pow 5001  ax-pr 5062  ax-un 7147
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2062  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-ral 3060  df-rex 3061  df-reu 3062  df-rab 3064  df-v 3352  df-sbc 3597  df-csb 3692  df-dif 3735  df-un 3737  df-in 3739  df-ss 3746  df-nul 4080  df-if 4244  df-pw 4317  df-sn 4335  df-pr 4337  df-op 4341  df-uni 4595  df-iun 4678  df-iin 4679  df-br 4810  df-opab 4872  df-mpt 4889  df-id 5185  df-xp 5283  df-rel 5284  df-cnv 5285  df-co 5286  df-dm 5287  df-rn 5288  df-res 5289  df-ima 5290  df-iota 6031  df-fun 6070  df-fn 6071  df-f 6072  df-f1 6073  df-fo 6074  df-f1o 6075  df-fv 6076  df-riota 6803  df-ov 6845  df-oprab 6846  df-mpt2 6847  df-1st 7366  df-2nd 7367  df-proset 17196  df-poset 17214  df-plt 17226  df-lub 17242  df-glb 17243  df-join 17244  df-meet 17245  df-p0 17307  df-p1 17308  df-lat 17314  df-clat 17376  df-oposet 35064  df-ol 35066  df-oml 35067  df-covers 35154  df-ats 35155  df-atl 35186  df-cvlat 35210  df-hlat 35239  df-psubsp 35391  df-pmap 35392  df-padd 35684  df-lhyp 35876
This theorem is referenced by:  cdleme9tN  36145  cdleme17a  36174
  Copyright terms: Public domain W3C validator