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

Theorem pmodlem2 36985
Description: Lemma for pmod1i 36986. (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
pmodlem2 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → ((𝑋 + 𝑌) ∩ 𝑍) ⊆ (𝑋 + (𝑌𝑍)))

Proof of Theorem pmodlem2
Dummy variables 𝑞 𝑝 𝑟 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpr 487 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → 𝑋 = ∅)
21oveq1d 7173 . . . . 5 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → (𝑋 + 𝑌) = (∅ + 𝑌))
3 simpl1 1187 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → 𝐾 ∈ HL)
4 simpl22 1248 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → 𝑌𝐴)
5 pmodlem.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
6 pmodlem.p . . . . . . 7 + = (+𝑃𝐾)
75, 6padd02 36950 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑌𝐴) → (∅ + 𝑌) = 𝑌)
83, 4, 7syl2anc 586 . . . . 5 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → (∅ + 𝑌) = 𝑌)
92, 8eqtrd 2858 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → (𝑋 + 𝑌) = 𝑌)
109ineq1d 4190 . . 3 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → ((𝑋 + 𝑌) ∩ 𝑍) = (𝑌𝑍))
11 ssinss1 4216 . . . . 5 (𝑌𝐴 → (𝑌𝑍) ⊆ 𝐴)
124, 11syl 17 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → (𝑌𝑍) ⊆ 𝐴)
13 simpl21 1247 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → 𝑋𝐴)
145, 6sspadd2 36954 . . . 4 ((𝐾 ∈ HL ∧ (𝑌𝑍) ⊆ 𝐴𝑋𝐴) → (𝑌𝑍) ⊆ (𝑋 + (𝑌𝑍)))
153, 12, 13, 14syl3anc 1367 . . 3 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → (𝑌𝑍) ⊆ (𝑋 + (𝑌𝑍)))
1610, 15eqsstrd 4007 . 2 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → ((𝑋 + 𝑌) ∩ 𝑍) ⊆ (𝑋 + (𝑌𝑍)))
17 oveq2 7166 . . . . 5 (𝑌 = ∅ → (𝑋 + 𝑌) = (𝑋 + ∅))
18 simp1 1132 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → 𝐾 ∈ HL)
19 simp21 1202 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → 𝑋𝐴)
205, 6padd01 36949 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑋𝐴) → (𝑋 + ∅) = 𝑋)
2118, 19, 20syl2anc 586 . . . . 5 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → (𝑋 + ∅) = 𝑋)
2217, 21sylan9eqr 2880 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → (𝑋 + 𝑌) = 𝑋)
2322ineq1d 4190 . . 3 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → ((𝑋 + 𝑌) ∩ 𝑍) = (𝑋𝑍))
24 inss1 4207 . . . 4 (𝑋𝑍) ⊆ 𝑋
25 simpl1 1187 . . . . 5 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → 𝐾 ∈ HL)
26 simpl21 1247 . . . . 5 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → 𝑋𝐴)
27 simpl22 1248 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → 𝑌𝐴)
2827, 11syl 17 . . . . 5 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → (𝑌𝑍) ⊆ 𝐴)
295, 6sspadd1 36953 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝐴 ∧ (𝑌𝑍) ⊆ 𝐴) → 𝑋 ⊆ (𝑋 + (𝑌𝑍)))
3025, 26, 28, 29syl3anc 1367 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → 𝑋 ⊆ (𝑋 + (𝑌𝑍)))
3124, 30sstrid 3980 . . 3 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → (𝑋𝑍) ⊆ (𝑋 + (𝑌𝑍)))
3223, 31eqsstrd 4007 . 2 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → ((𝑋 + 𝑌) ∩ 𝑍) ⊆ (𝑋 + (𝑌𝑍)))
33 elin 4171 . . . 4 (𝑝 ∈ ((𝑋 + 𝑌) ∩ 𝑍) ↔ (𝑝 ∈ (𝑋 + 𝑌) ∧ 𝑝𝑍))
34 simpl1 1187 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → 𝐾 ∈ HL)
3534hllatd 36502 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → 𝐾 ∈ Lat)
36 simpl21 1247 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → 𝑋𝐴)
37 simpl22 1248 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → 𝑌𝐴)
38 simprl 769 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → (𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅))
39 pmodlem.l . . . . . . . . . 10 = (le‘𝐾)
40 pmodlem.j . . . . . . . . . 10 = (join‘𝐾)
4139, 40, 5, 6elpaddn0 36938 . . . . . . . . 9 (((𝐾 ∈ Lat ∧ 𝑋𝐴𝑌𝐴) ∧ (𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅)) → (𝑝 ∈ (𝑋 + 𝑌) ↔ (𝑝𝐴 ∧ ∃𝑞𝑋𝑟𝑌 𝑝 (𝑞 𝑟))))
4235, 36, 37, 38, 41syl31anc 1369 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → (𝑝 ∈ (𝑋 + 𝑌) ↔ (𝑝𝐴 ∧ ∃𝑞𝑋𝑟𝑌 𝑝 (𝑞 𝑟))))
43 simpl1 1187 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝐾 ∈ HL)
44 simpl21 1247 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑋𝐴)
45 simpl22 1248 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑌𝐴)
46 simpl23 1249 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑍𝑆)
47 simpl3 1189 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑋𝑍)
48 simpr1 1190 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑝𝑍)
49 simpr2l 1228 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑞𝑋)
50 simpr2r 1229 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑟𝑌)
51 simpr3 1192 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑝 (𝑞 𝑟))
52 pmodlem.s . . . . . . . . . . . . . . 15 𝑆 = (PSubSp‘𝐾)
5339, 40, 5, 52, 6pmodlem1 36984 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑌𝐴) ∧ (𝑍𝑆𝑋𝑍𝑝𝑍) ∧ (𝑞𝑋𝑟𝑌𝑝 (𝑞 𝑟))) → 𝑝 ∈ (𝑋 + (𝑌𝑍)))
5443, 44, 45, 46, 47, 48, 49, 50, 51, 53syl333anc 1398 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑝 ∈ (𝑋 + (𝑌𝑍)))
55543exp2 1350 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → (𝑝𝑍 → ((𝑞𝑋𝑟𝑌) → (𝑝 (𝑞 𝑟) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))))
5655imp 409 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑝𝑍) → ((𝑞𝑋𝑟𝑌) → (𝑝 (𝑞 𝑟) → 𝑝 ∈ (𝑋 + (𝑌𝑍)))))
5756rexlimdvv 3295 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑝𝑍) → (∃𝑞𝑋𝑟𝑌 𝑝 (𝑞 𝑟) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
5857adantld 493 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑝𝑍) → ((𝑝𝐴 ∧ ∃𝑞𝑋𝑟𝑌 𝑝 (𝑞 𝑟)) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
5958adantrl 714 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → ((𝑝𝐴 ∧ ∃𝑞𝑋𝑟𝑌 𝑝 (𝑞 𝑟)) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
6042, 59sylbid 242 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → (𝑝 ∈ (𝑋 + 𝑌) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
6160exp32 423 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) → (𝑝𝑍 → (𝑝 ∈ (𝑋 + 𝑌) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))))
6261com34 91 . . . . 5 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) → (𝑝 ∈ (𝑋 + 𝑌) → (𝑝𝑍𝑝 ∈ (𝑋 + (𝑌𝑍))))))
6362imp4b 424 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅)) → ((𝑝 ∈ (𝑋 + 𝑌) ∧ 𝑝𝑍) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
6433, 63syl5bi 244 . . 3 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅)) → (𝑝 ∈ ((𝑋 + 𝑌) ∩ 𝑍) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
6564ssrdv 3975 . 2 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅)) → ((𝑋 + 𝑌) ∩ 𝑍) ⊆ (𝑋 + (𝑌𝑍)))
6616, 32, 65pm2.61da2ne 3107 1 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → ((𝑋 + 𝑌) ∩ 𝑍) ⊆ (𝑋 + (𝑌𝑍)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 398  w3a 1083   = wceq 1537  wcel 2114  wne 3018  wrex 3141  cin 3937  wss 3938  c0 4293   class class class wbr 5068  cfv 6357  (class class class)co 7158  lecple 16574  joincjn 17556  Latclat 17657  Atomscatm 36401  HLchlt 36488  PSubSpcpsubsp 36634  +𝑃cpadd 36933
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-ral 3145  df-rex 3146  df-reu 3147  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4841  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-id 5462  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-1st 7691  df-2nd 7692  df-proset 17540  df-poset 17558  df-plt 17570  df-lub 17586  df-glb 17587  df-join 17588  df-meet 17589  df-p0 17651  df-lat 17658  df-covers 36404  df-ats 36405  df-atl 36436  df-cvlat 36460  df-hlat 36489  df-psubsp 36641  df-padd 36934
This theorem is referenced by:  pmod1i  36986
  Copyright terms: Public domain W3C validator