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

Theorem cdlemednpq 39827
Description: Part of proof of Lemma E in [Crawley] p. 113. Utility lemma. 𝐷 represents s2. (Contributed by NM, 18-Nov-2012.)
Hypotheses
Ref Expression
cdlemeda.l ≀ = (leβ€˜πΎ)
cdlemeda.j ∨ = (joinβ€˜πΎ)
cdlemeda.m ∧ = (meetβ€˜πΎ)
cdlemeda.a 𝐴 = (Atomsβ€˜πΎ)
cdlemeda.h 𝐻 = (LHypβ€˜πΎ)
cdlemeda.d 𝐷 = ((𝑅 ∨ 𝑆) ∧ π‘Š)
Assertion
Ref Expression
cdlemednpq (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ Β¬ 𝐷 ≀ (𝑃 ∨ 𝑄))

Proof of Theorem cdlemednpq
StepHypRef Expression
1 cdlemeda.d . . . 4 𝐷 = ((𝑅 ∨ 𝑆) ∧ π‘Š)
2 simp1l 1194 . . . . . 6 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝐾 ∈ HL)
32hllatd 38891 . . . . 5 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝐾 ∈ Lat)
4 simp23l 1291 . . . . . 6 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝑅 ∈ 𝐴)
5 simp31l 1293 . . . . . 6 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝑆 ∈ 𝐴)
6 eqid 2725 . . . . . . 7 (Baseβ€˜πΎ) = (Baseβ€˜πΎ)
7 cdlemeda.j . . . . . . 7 ∨ = (joinβ€˜πΎ)
8 cdlemeda.a . . . . . . 7 𝐴 = (Atomsβ€˜πΎ)
96, 7, 8hlatjcl 38894 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) β†’ (𝑅 ∨ 𝑆) ∈ (Baseβ€˜πΎ))
102, 4, 5, 9syl3anc 1368 . . . . 5 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ (𝑅 ∨ 𝑆) ∈ (Baseβ€˜πΎ))
11 simp1r 1195 . . . . . 6 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ π‘Š ∈ 𝐻)
12 cdlemeda.h . . . . . . 7 𝐻 = (LHypβ€˜πΎ)
136, 12lhpbase 39526 . . . . . 6 (π‘Š ∈ 𝐻 β†’ π‘Š ∈ (Baseβ€˜πΎ))
1411, 13syl 17 . . . . 5 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ π‘Š ∈ (Baseβ€˜πΎ))
15 cdlemeda.l . . . . . 6 ≀ = (leβ€˜πΎ)
16 cdlemeda.m . . . . . 6 ∧ = (meetβ€˜πΎ)
176, 15, 16latmle2 18454 . . . . 5 ((𝐾 ∈ Lat ∧ (𝑅 ∨ 𝑆) ∈ (Baseβ€˜πΎ) ∧ π‘Š ∈ (Baseβ€˜πΎ)) β†’ ((𝑅 ∨ 𝑆) ∧ π‘Š) ≀ π‘Š)
183, 10, 14, 17syl3anc 1368 . . . 4 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ ((𝑅 ∨ 𝑆) ∧ π‘Š) ≀ π‘Š)
191, 18eqbrtrid 5178 . . 3 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝐷 ≀ π‘Š)
20 simp23r 1292 . . 3 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ Β¬ 𝑅 ≀ π‘Š)
21 nbrne2 5163 . . 3 ((𝐷 ≀ π‘Š ∧ Β¬ 𝑅 ≀ π‘Š) β†’ 𝐷 β‰  𝑅)
2219, 20, 21syl2anc 582 . 2 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝐷 β‰  𝑅)
233adantr 479 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ 𝐾 ∈ Lat)
2410adantr 479 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ (𝑅 ∨ 𝑆) ∈ (Baseβ€˜πΎ))
2514adantr 479 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ π‘Š ∈ (Baseβ€˜πΎ))
266, 15, 16latmle1 18453 . . . . . . . . 9 ((𝐾 ∈ Lat ∧ (𝑅 ∨ 𝑆) ∈ (Baseβ€˜πΎ) ∧ π‘Š ∈ (Baseβ€˜πΎ)) β†’ ((𝑅 ∨ 𝑆) ∧ π‘Š) ≀ (𝑅 ∨ 𝑆))
2723, 24, 25, 26syl3anc 1368 . . . . . . . 8 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ ((𝑅 ∨ 𝑆) ∧ π‘Š) ≀ (𝑅 ∨ 𝑆))
281, 27eqbrtrid 5178 . . . . . . 7 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ 𝐷 ≀ (𝑅 ∨ 𝑆))
29 simpr 483 . . . . . . 7 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ 𝐷 ≀ (𝑃 ∨ 𝑄))
30 simp31r 1294 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ Β¬ 𝑆 ≀ π‘Š)
31 simp32 1207 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝑅 ≀ (𝑃 ∨ 𝑄))
32 simp33 1208 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))
3315, 7, 16, 8, 12, 1cdlemeda 39826 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ (𝑅 ∈ 𝐴 ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝐷 ∈ 𝐴)
342, 11, 5, 30, 4, 31, 32, 33syl223anc 1393 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝐷 ∈ 𝐴)
356, 8atbase 38816 . . . . . . . . . 10 (𝐷 ∈ 𝐴 β†’ 𝐷 ∈ (Baseβ€˜πΎ))
3634, 35syl 17 . . . . . . . . 9 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝐷 ∈ (Baseβ€˜πΎ))
3736adantr 479 . . . . . . . 8 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ 𝐷 ∈ (Baseβ€˜πΎ))
38 simp21 1203 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝑃 ∈ 𝐴)
39 simp22 1204 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝑄 ∈ 𝐴)
406, 7, 8hlatjcl 38894 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) β†’ (𝑃 ∨ 𝑄) ∈ (Baseβ€˜πΎ))
412, 38, 39, 40syl3anc 1368 . . . . . . . . 9 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ (𝑃 ∨ 𝑄) ∈ (Baseβ€˜πΎ))
4241adantr 479 . . . . . . . 8 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ (𝑃 ∨ 𝑄) ∈ (Baseβ€˜πΎ))
436, 15, 16latlem12 18455 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (𝐷 ∈ (Baseβ€˜πΎ) ∧ (𝑅 ∨ 𝑆) ∈ (Baseβ€˜πΎ) ∧ (𝑃 ∨ 𝑄) ∈ (Baseβ€˜πΎ))) β†’ ((𝐷 ≀ (𝑅 ∨ 𝑆) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) ↔ 𝐷 ≀ ((𝑅 ∨ 𝑆) ∧ (𝑃 ∨ 𝑄))))
4423, 37, 24, 42, 43syl13anc 1369 . . . . . . 7 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ ((𝐷 ≀ (𝑅 ∨ 𝑆) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) ↔ 𝐷 ≀ ((𝑅 ∨ 𝑆) ∧ (𝑃 ∨ 𝑄))))
4528, 29, 44mpbi2and 710 . . . . . 6 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ 𝐷 ≀ ((𝑅 ∨ 𝑆) ∧ (𝑃 ∨ 𝑄)))
46 hlatl 38887 . . . . . . . . . . . 12 (𝐾 ∈ HL β†’ 𝐾 ∈ AtLat)
472, 46syl 17 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝐾 ∈ AtLat)
48 eqid 2725 . . . . . . . . . . . 12 (0.β€˜πΎ) = (0.β€˜πΎ)
496, 15, 16, 48, 8atnle 38844 . . . . . . . . . . 11 ((𝐾 ∈ AtLat ∧ 𝑆 ∈ 𝐴 ∧ (𝑃 ∨ 𝑄) ∈ (Baseβ€˜πΎ)) β†’ (Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄) ↔ (𝑆 ∧ (𝑃 ∨ 𝑄)) = (0.β€˜πΎ)))
5047, 5, 41, 49syl3anc 1368 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ (Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄) ↔ (𝑆 ∧ (𝑃 ∨ 𝑄)) = (0.β€˜πΎ)))
5132, 50mpbid 231 . . . . . . . . 9 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ (𝑆 ∧ (𝑃 ∨ 𝑄)) = (0.β€˜πΎ))
5251oveq2d 7431 . . . . . . . 8 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ (𝑅 ∨ (𝑆 ∧ (𝑃 ∨ 𝑄))) = (𝑅 ∨ (0.β€˜πΎ)))
536, 8atbase 38816 . . . . . . . . . 10 (𝑆 ∈ 𝐴 β†’ 𝑆 ∈ (Baseβ€˜πΎ))
545, 53syl 17 . . . . . . . . 9 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝑆 ∈ (Baseβ€˜πΎ))
556, 15, 7, 16, 8atmod1i1 39385 . . . . . . . . 9 ((𝐾 ∈ HL ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ (Baseβ€˜πΎ) ∧ (𝑃 ∨ 𝑄) ∈ (Baseβ€˜πΎ)) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄)) β†’ (𝑅 ∨ (𝑆 ∧ (𝑃 ∨ 𝑄))) = ((𝑅 ∨ 𝑆) ∧ (𝑃 ∨ 𝑄)))
562, 4, 54, 41, 31, 55syl131anc 1380 . . . . . . . 8 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ (𝑅 ∨ (𝑆 ∧ (𝑃 ∨ 𝑄))) = ((𝑅 ∨ 𝑆) ∧ (𝑃 ∨ 𝑄)))
57 hlol 38888 . . . . . . . . . 10 (𝐾 ∈ HL β†’ 𝐾 ∈ OL)
582, 57syl 17 . . . . . . . . 9 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝐾 ∈ OL)
596, 8atbase 38816 . . . . . . . . . 10 (𝑅 ∈ 𝐴 β†’ 𝑅 ∈ (Baseβ€˜πΎ))
604, 59syl 17 . . . . . . . . 9 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ 𝑅 ∈ (Baseβ€˜πΎ))
616, 7, 48olj01 38752 . . . . . . . . 9 ((𝐾 ∈ OL ∧ 𝑅 ∈ (Baseβ€˜πΎ)) β†’ (𝑅 ∨ (0.β€˜πΎ)) = 𝑅)
6258, 60, 61syl2anc 582 . . . . . . . 8 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ (𝑅 ∨ (0.β€˜πΎ)) = 𝑅)
6352, 56, 623eqtr3d 2773 . . . . . . 7 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ ((𝑅 ∨ 𝑆) ∧ (𝑃 ∨ 𝑄)) = 𝑅)
6463adantr 479 . . . . . 6 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ ((𝑅 ∨ 𝑆) ∧ (𝑃 ∨ 𝑄)) = 𝑅)
6545, 64breqtrd 5169 . . . . 5 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) ∧ 𝐷 ≀ (𝑃 ∨ 𝑄)) β†’ 𝐷 ≀ 𝑅)
6665ex 411 . . . 4 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ (𝐷 ≀ (𝑃 ∨ 𝑄) β†’ 𝐷 ≀ 𝑅))
6715, 8atcmp 38838 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝐷 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) β†’ (𝐷 ≀ 𝑅 ↔ 𝐷 = 𝑅))
6847, 34, 4, 67syl3anc 1368 . . . 4 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ (𝐷 ≀ 𝑅 ↔ 𝐷 = 𝑅))
6966, 68sylibd 238 . . 3 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ (𝐷 ≀ (𝑃 ∨ 𝑄) β†’ 𝐷 = 𝑅))
7069necon3ad 2943 . 2 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ (𝐷 β‰  𝑅 β†’ Β¬ 𝐷 ≀ (𝑃 ∨ 𝑄)))
7122, 70mpd 15 1 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ Β¬ 𝑅 ≀ π‘Š)) ∧ ((𝑆 ∈ 𝐴 ∧ Β¬ 𝑆 ≀ π‘Š) ∧ 𝑅 ≀ (𝑃 ∨ 𝑄) ∧ Β¬ 𝑆 ≀ (𝑃 ∨ 𝑄))) β†’ Β¬ 𝐷 ≀ (𝑃 ∨ 𝑄))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 394   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098   β‰  wne 2930   class class class wbr 5143  β€˜cfv 6542  (class class class)co 7415  Basecbs 17177  lecple 17237  joincjn 18300  meetcmee 18301  0.cp0 18412  Latclat 18420  OLcol 38701  Atomscatm 38790  AtLatcal 38791  HLchlt 38877  LHypclh 39512
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5280  ax-sep 5294  ax-nul 5301  ax-pow 5359  ax-pr 5423  ax-un 7737
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3770  df-csb 3886  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-nul 4319  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-op 4631  df-uni 4904  df-iun 4993  df-iin 4994  df-br 5144  df-opab 5206  df-mpt 5227  df-id 5570  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-riota 7371  df-ov 7418  df-oprab 7419  df-mpo 7420  df-1st 7989  df-2nd 7990  df-proset 18284  df-poset 18302  df-plt 18319  df-lub 18335  df-glb 18336  df-join 18337  df-meet 18338  df-p0 18414  df-p1 18415  df-lat 18421  df-clat 18488  df-oposet 38703  df-ol 38705  df-oml 38706  df-covers 38793  df-ats 38794  df-atl 38825  df-cvlat 38849  df-hlat 38878  df-psubsp 39031  df-pmap 39032  df-padd 39324  df-lhyp 39516
This theorem is referenced by:  cdlemednuN  39828  cdleme20k  39847
  Copyright terms: Public domain W3C validator