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

Theorem pmodlem1 39020
Description: Lemma for pmod1i 39022. (Contributed by NM, 9-Mar-2012.)
Hypotheses
Ref Expression
pmodlem.l ≀ = (leβ€˜πΎ)
pmodlem.j ∨ = (joinβ€˜πΎ)
pmodlem.a 𝐴 = (Atomsβ€˜πΎ)
pmodlem.s 𝑆 = (PSubSpβ€˜πΎ)
pmodlem.p + = (+π‘ƒβ€˜πΎ)
Assertion
Ref Expression
pmodlem1 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) β†’ 𝑝 ∈ (𝑋 + (π‘Œ ∩ 𝑍)))
Distinct variable groups:   π‘ž,𝑝,π‘Ÿ,𝐴   ∨ ,π‘ž,π‘Ÿ   𝐾,𝑝,π‘ž,π‘Ÿ   ≀ ,π‘ž,π‘Ÿ   + ,𝑝,π‘ž,π‘Ÿ   𝑆,𝑝,π‘ž,π‘Ÿ   𝑋,𝑝,π‘ž,π‘Ÿ   π‘Œ,𝑝,π‘ž,π‘Ÿ   𝑍,𝑝,π‘ž,π‘Ÿ
Allowed substitution hints:   ∨ (𝑝)   ≀ (𝑝)

Proof of Theorem pmodlem1
StepHypRef Expression
1 simpl11 1246 . . . 4 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 = π‘ž) β†’ 𝐾 ∈ HL)
2 simpl12 1247 . . . 4 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 = π‘ž) β†’ 𝑋 βŠ† 𝐴)
3 simpl13 1248 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 = π‘ž) β†’ π‘Œ βŠ† 𝐴)
4 ssinss1 4236 . . . . 5 (π‘Œ βŠ† 𝐴 β†’ (π‘Œ ∩ 𝑍) βŠ† 𝐴)
53, 4syl 17 . . . 4 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 = π‘ž) β†’ (π‘Œ ∩ 𝑍) βŠ† 𝐴)
6 pmodlem.a . . . . 5 𝐴 = (Atomsβ€˜πΎ)
7 pmodlem.p . . . . 5 + = (+π‘ƒβ€˜πΎ)
86, 7sspadd1 38989 . . . 4 ((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ (π‘Œ ∩ 𝑍) βŠ† 𝐴) β†’ 𝑋 βŠ† (𝑋 + (π‘Œ ∩ 𝑍)))
91, 2, 5, 8syl3anc 1369 . . 3 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 = π‘ž) β†’ 𝑋 βŠ† (𝑋 + (π‘Œ ∩ 𝑍)))
10 simpr 483 . . . 4 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 = π‘ž) β†’ 𝑝 = π‘ž)
11 simpl31 1252 . . . 4 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 = π‘ž) β†’ π‘ž ∈ 𝑋)
1210, 11eqeltrd 2831 . . 3 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 = π‘ž) β†’ 𝑝 ∈ 𝑋)
139, 12sseldd 3982 . 2 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 = π‘ž) β†’ 𝑝 ∈ (𝑋 + (π‘Œ ∩ 𝑍)))
14 simpl11 1246 . . . 4 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ 𝐾 ∈ HL)
1514hllatd 38537 . . 3 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ 𝐾 ∈ Lat)
16 simpl12 1247 . . 3 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ 𝑋 βŠ† 𝐴)
17 simpl13 1248 . . . 4 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ π‘Œ βŠ† 𝐴)
1817, 4syl 17 . . 3 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ (π‘Œ ∩ 𝑍) βŠ† 𝐴)
19 simpl31 1252 . . 3 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ π‘ž ∈ 𝑋)
20 simpl32 1253 . . . 4 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ π‘Ÿ ∈ π‘Œ)
21 simpl21 1249 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ 𝑍 ∈ 𝑆)
22 simpl22 1250 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ 𝑋 βŠ† 𝑍)
23 simpl23 1251 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ 𝑝 ∈ 𝑍)
24 pmodlem.s . . . . . . . . . 10 𝑆 = (PSubSpβ€˜πΎ)
256, 24psubssat 38928 . . . . . . . . 9 ((𝐾 ∈ HL ∧ 𝑍 ∈ 𝑆) β†’ 𝑍 βŠ† 𝐴)
2614, 21, 25syl2anc 582 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ 𝑍 βŠ† 𝐴)
2726, 23sseldd 3982 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ 𝑝 ∈ 𝐴)
2817, 20sseldd 3982 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ π‘Ÿ ∈ 𝐴)
2916, 19sseldd 3982 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ π‘ž ∈ 𝐴)
3027, 28, 293jca 1126 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ (𝑝 ∈ 𝐴 ∧ π‘Ÿ ∈ 𝐴 ∧ π‘ž ∈ 𝐴))
31 simpr 483 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ 𝑝 β‰  π‘ž)
32 simpl33 1254 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))
33 pmodlem.l . . . . . . . 8 ≀ = (leβ€˜πΎ)
34 pmodlem.j . . . . . . . 8 ∨ = (joinβ€˜πΎ)
3533, 34, 6hlatexch1 38569 . . . . . . 7 ((𝐾 ∈ HL ∧ (𝑝 ∈ 𝐴 ∧ π‘Ÿ ∈ 𝐴 ∧ π‘ž ∈ 𝐴) ∧ 𝑝 β‰  π‘ž) β†’ (𝑝 ≀ (π‘ž ∨ π‘Ÿ) β†’ π‘Ÿ ≀ (π‘ž ∨ 𝑝)))
3635imp 405 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑝 ∈ 𝐴 ∧ π‘Ÿ ∈ 𝐴 ∧ π‘ž ∈ 𝐴) ∧ 𝑝 β‰  π‘ž) ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ)) β†’ π‘Ÿ ≀ (π‘ž ∨ 𝑝))
3714, 30, 31, 32, 36syl31anc 1371 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ π‘Ÿ ≀ (π‘ž ∨ 𝑝))
38 simp31 1207 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ π‘ž ∈ 𝑋)
3938snssd 4811 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ {π‘ž} βŠ† 𝑋)
40 simp22 1205 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ 𝑋 βŠ† 𝑍)
4139, 40sstrd 3991 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ {π‘ž} βŠ† 𝑍)
42 simp23 1206 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ 𝑝 ∈ 𝑍)
4342snssd 4811 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ {𝑝} βŠ† 𝑍)
44 simp11 1201 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ 𝐾 ∈ HL)
45 simp12 1202 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ 𝑋 βŠ† 𝐴)
4645, 38sseldd 3982 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ π‘ž ∈ 𝐴)
4746snssd 4811 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ {π‘ž} βŠ† 𝐴)
48 simp21 1204 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ 𝑍 ∈ 𝑆)
4944, 48, 25syl2anc 582 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ 𝑍 βŠ† 𝐴)
5049, 42sseldd 3982 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ 𝑝 ∈ 𝐴)
5150snssd 4811 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ {𝑝} βŠ† 𝐴)
526, 24, 7paddss 39019 . . . . . . . 8 ((𝐾 ∈ HL ∧ ({π‘ž} βŠ† 𝐴 ∧ {𝑝} βŠ† 𝐴 ∧ 𝑍 ∈ 𝑆)) β†’ (({π‘ž} βŠ† 𝑍 ∧ {𝑝} βŠ† 𝑍) ↔ ({π‘ž} + {𝑝}) βŠ† 𝑍))
5344, 47, 51, 48, 52syl13anc 1370 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ (({π‘ž} βŠ† 𝑍 ∧ {𝑝} βŠ† 𝑍) ↔ ({π‘ž} + {𝑝}) βŠ† 𝑍))
5441, 43, 53mpbi2and 708 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ ({π‘ž} + {𝑝}) βŠ† 𝑍)
55 simp33 1209 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ π‘Ÿ ≀ (π‘ž ∨ 𝑝))
5644hllatd 38537 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ 𝐾 ∈ Lat)
57 simp13 1203 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ π‘Œ βŠ† 𝐴)
58 simp32 1208 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ π‘Ÿ ∈ π‘Œ)
5957, 58sseldd 3982 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ π‘Ÿ ∈ 𝐴)
6033, 34, 6, 7elpadd2at2 38981 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (π‘ž ∈ 𝐴 ∧ 𝑝 ∈ 𝐴 ∧ π‘Ÿ ∈ 𝐴)) β†’ (π‘Ÿ ∈ ({π‘ž} + {𝑝}) ↔ π‘Ÿ ≀ (π‘ž ∨ 𝑝)))
6156, 46, 50, 59, 60syl13anc 1370 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ (π‘Ÿ ∈ ({π‘ž} + {𝑝}) ↔ π‘Ÿ ≀ (π‘ž ∨ 𝑝)))
6255, 61mpbird 256 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ π‘Ÿ ∈ ({π‘ž} + {𝑝}))
6354, 62sseldd 3982 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ π‘Ÿ ≀ (π‘ž ∨ 𝑝))) β†’ π‘Ÿ ∈ 𝑍)
6414, 16, 17, 21, 22, 23, 19, 20, 37, 63syl333anc 1400 . . . 4 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ π‘Ÿ ∈ 𝑍)
6520, 64elind 4193 . . 3 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ π‘Ÿ ∈ (π‘Œ ∩ 𝑍))
6633, 34, 6, 7elpaddri 38976 . . 3 (((𝐾 ∈ Lat ∧ 𝑋 βŠ† 𝐴 ∧ (π‘Œ ∩ 𝑍) βŠ† 𝐴) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ (π‘Œ ∩ 𝑍)) ∧ (𝑝 ∈ 𝐴 ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) β†’ 𝑝 ∈ (𝑋 + (π‘Œ ∩ 𝑍)))
6715, 16, 18, 19, 65, 27, 32, 66syl322anc 1396 . 2 ((((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) ∧ 𝑝 β‰  π‘ž) β†’ 𝑝 ∈ (𝑋 + (π‘Œ ∩ 𝑍)))
6813, 67pm2.61dane 3027 1 (((𝐾 ∈ HL ∧ 𝑋 βŠ† 𝐴 ∧ π‘Œ βŠ† 𝐴) ∧ (𝑍 ∈ 𝑆 ∧ 𝑋 βŠ† 𝑍 ∧ 𝑝 ∈ 𝑍) ∧ (π‘ž ∈ 𝑋 ∧ π‘Ÿ ∈ π‘Œ ∧ 𝑝 ≀ (π‘ž ∨ π‘Ÿ))) β†’ 𝑝 ∈ (𝑋 + (π‘Œ ∩ 𝑍)))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 394   ∧ w3a 1085   = wceq 1539   ∈ wcel 2104   β‰  wne 2938   ∩ cin 3946   βŠ† wss 3947  {csn 4627   class class class wbr 5147  β€˜cfv 6542  (class class class)co 7411  lecple 17208  joincjn 18268  Latclat 18388  Atomscatm 38436  HLchlt 38523  PSubSpcpsubsp 38670  +𝑃cpadd 38969
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2701  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7727
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2532  df-eu 2561  df-clab 2708  df-cleq 2722  df-clel 2808  df-nfc 2883  df-ne 2939  df-ral 3060  df-rex 3069  df-rmo 3374  df-reu 3375  df-rab 3431  df-v 3474  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-id 5573  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  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 7367  df-ov 7414  df-oprab 7415  df-mpo 7416  df-1st 7977  df-2nd 7978  df-proset 18252  df-poset 18270  df-plt 18287  df-lub 18303  df-glb 18304  df-join 18305  df-meet 18306  df-p0 18382  df-lat 18389  df-covers 38439  df-ats 38440  df-atl 38471  df-cvlat 38495  df-hlat 38524  df-psubsp 38677  df-padd 38970
This theorem is referenced by:  pmodlem2  39021
  Copyright terms: Public domain W3C validator