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 40602
Description: Lemma for pmod1i 40603. (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 489 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → 𝑋 = ∅)
21oveq1d 7427 . . . . 5 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → (𝑋 + 𝑌) = (∅ + 𝑌))
3 simpl1 1210 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → 𝐾 ∈ HL)
4 simpl22 1271 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → 𝑌𝐴)
5 pmodlem.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
6 pmodlem.p . . . . . . 7 + = (+𝑃𝐾)
75, 6padd02 40567 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑌𝐴) → (∅ + 𝑌) = 𝑌)
83, 4, 7syl2anc 595 . . . . 5 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → (∅ + 𝑌) = 𝑌)
92, 8eqtrd 2798 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → (𝑋 + 𝑌) = 𝑌)
109ineq1d 4173 . . 3 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → ((𝑋 + 𝑌) ∩ 𝑍) = (𝑌𝑍))
11 ssinss1 4199 . . . . 5 (𝑌𝐴 → (𝑌𝑍) ⊆ 𝐴)
124, 11syl 18 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → (𝑌𝑍) ⊆ 𝐴)
13 simpl21 1270 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → 𝑋𝐴)
145, 6sspadd2 40571 . . . 4 ((𝐾 ∈ HL ∧ (𝑌𝑍) ⊆ 𝐴𝑋𝐴) → (𝑌𝑍) ⊆ (𝑋 + (𝑌𝑍)))
153, 12, 13, 14syl3anc 1398 . . 3 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → (𝑌𝑍) ⊆ (𝑋 + (𝑌𝑍)))
1610, 15eqsstrd 3972 . 2 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑋 = ∅) → ((𝑋 + 𝑌) ∩ 𝑍) ⊆ (𝑋 + (𝑌𝑍)))
17 oveq2 7420 . . . . 5 (𝑌 = ∅ → (𝑋 + 𝑌) = (𝑋 + ∅))
18 simp1 1154 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → 𝐾 ∈ HL)
19 simp21 1225 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → 𝑋𝐴)
205, 6padd01 40566 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑋𝐴) → (𝑋 + ∅) = 𝑋)
2118, 19, 20syl2anc 595 . . . . 5 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → (𝑋 + ∅) = 𝑋)
2217, 21sylan9eqr 2820 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → (𝑋 + 𝑌) = 𝑋)
2322ineq1d 4173 . . 3 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → ((𝑋 + 𝑌) ∩ 𝑍) = (𝑋𝑍))
24 inss1 4190 . . . 4 (𝑋𝑍) ⊆ 𝑋
25 simpl1 1210 . . . . 5 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → 𝐾 ∈ HL)
26 simpl21 1270 . . . . 5 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → 𝑋𝐴)
27 simpl22 1271 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → 𝑌𝐴)
2827, 11syl 18 . . . . 5 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → (𝑌𝑍) ⊆ 𝐴)
295, 6sspadd1 40570 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝐴 ∧ (𝑌𝑍) ⊆ 𝐴) → 𝑋 ⊆ (𝑋 + (𝑌𝑍)))
3025, 26, 28, 29syl3anc 1398 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → 𝑋 ⊆ (𝑋 + (𝑌𝑍)))
3124, 30sstrid 3949 . . 3 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → (𝑋𝑍) ⊆ (𝑋 + (𝑌𝑍)))
3223, 31eqsstrd 3972 . 2 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑌 = ∅) → ((𝑋 + 𝑌) ∩ 𝑍) ⊆ (𝑋 + (𝑌𝑍)))
33 elin 3922 . . . 4 (𝑝 ∈ ((𝑋 + 𝑌) ∩ 𝑍) ↔ (𝑝 ∈ (𝑋 + 𝑌) ∧ 𝑝𝑍))
34 simpl1 1210 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → 𝐾 ∈ HL)
3534hllatd 40119 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → 𝐾 ∈ Lat)
36 simpl21 1270 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → 𝑋𝐴)
37 simpl22 1271 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → 𝑌𝐴)
38 simprl 782 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → (𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅))
39 pmodlem.l . . . . . . . . . 10 = (le‘𝐾)
40 pmodlem.j . . . . . . . . . 10 = (join‘𝐾)
4139, 40, 5, 6elpaddn0 40555 . . . . . . . . 9 (((𝐾 ∈ Lat ∧ 𝑋𝐴𝑌𝐴) ∧ (𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅)) → (𝑝 ∈ (𝑋 + 𝑌) ↔ (𝑝𝐴 ∧ ∃𝑞𝑋𝑟𝑌 𝑝 (𝑞 𝑟))))
4235, 36, 37, 38, 41syl31anc 1400 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → (𝑝 ∈ (𝑋 + 𝑌) ↔ (𝑝𝐴 ∧ ∃𝑞𝑋𝑟𝑌 𝑝 (𝑞 𝑟))))
43 simpl1 1210 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝐾 ∈ HL)
44 simpl21 1270 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑋𝐴)
45 simpl22 1271 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑌𝐴)
46 simpl23 1272 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑍𝑆)
47 simpl3 1212 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑋𝑍)
48 simpr1 1213 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑝𝑍)
49 simpr2l 1251 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑞𝑋)
50 simpr2r 1252 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑟𝑌)
51 simpr3 1215 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑝 (𝑞 𝑟))
52 pmodlem.s . . . . . . . . . . . . . . 15 𝑆 = (PSubSp‘𝐾)
5339, 40, 5, 52, 6pmodlem1 40601 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑌𝐴) ∧ (𝑍𝑆𝑋𝑍𝑝𝑍) ∧ (𝑞𝑋𝑟𝑌𝑝 (𝑞 𝑟))) → 𝑝 ∈ (𝑋 + (𝑌𝑍)))
5443, 44, 45, 46, 47, 48, 49, 50, 51, 53syl333anc 1429 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑝𝑍 ∧ (𝑞𝑋𝑟𝑌) ∧ 𝑝 (𝑞 𝑟))) → 𝑝 ∈ (𝑋 + (𝑌𝑍)))
55543exp2 1373 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → (𝑝𝑍 → ((𝑞𝑋𝑟𝑌) → (𝑝 (𝑞 𝑟) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))))
5655imp 411 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑝𝑍) → ((𝑞𝑋𝑟𝑌) → (𝑝 (𝑞 𝑟) → 𝑝 ∈ (𝑋 + (𝑌𝑍)))))
5756rexlimdvv 3221 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑝𝑍) → (∃𝑞𝑋𝑟𝑌 𝑝 (𝑞 𝑟) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
5857adantld 495 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ 𝑝𝑍) → ((𝑝𝐴 ∧ ∃𝑞𝑋𝑟𝑌 𝑝 (𝑞 𝑟)) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
5958adantrl 728 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → ((𝑝𝐴 ∧ ∃𝑞𝑋𝑟𝑌 𝑝 (𝑞 𝑟)) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
6042, 59sylbid 243 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) ∧ 𝑝𝑍)) → (𝑝 ∈ (𝑋 + 𝑌) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
6160exp32 425 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) → (𝑝𝑍 → (𝑝 ∈ (𝑋 + 𝑌) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))))
6261com34 92 . . . . 5 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → ((𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅) → (𝑝 ∈ (𝑋 + 𝑌) → (𝑝𝑍𝑝 ∈ (𝑋 + (𝑌𝑍))))))
6362imp4b 426 . . . 4 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅)) → ((𝑝 ∈ (𝑋 + 𝑌) ∧ 𝑝𝑍) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
6433, 63biimtrid 245 . . 3 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅)) → (𝑝 ∈ ((𝑋 + 𝑌) ∩ 𝑍) → 𝑝 ∈ (𝑋 + (𝑌𝑍))))
6564ssrdv 3944 . 2 (((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) ∧ (𝑋 ≠ ∅ ∧ 𝑌 ≠ ∅)) → ((𝑋 + 𝑌) ∩ 𝑍) ⊆ (𝑋 + (𝑌𝑍)))
6616, 32, 65pm2.61da2ne 3046 1 ((𝐾 ∈ HL ∧ (𝑋𝐴𝑌𝐴𝑍𝑆) ∧ 𝑋𝑍) → ((𝑋 + 𝑌) ∩ 𝑍) ⊆ (𝑋 + (𝑌𝑍)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 400  w3a 1103   = wceq 1570  wcel 2143  wne 2958  wrex 3089  cin 3905  wss 3906  c0 4287   class class class wbr 5110  cfv 6538  (class class class)co 7412  lecple 17318  joincjn 18368  Latclat 18488  Atomscatm 40018  HLchlt 40105  PSubSpcpsubsp 40251  +𝑃cpadd 40550
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-id 5558  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-1st 7987  df-2nd 7988  df-proset 18351  df-poset 18370  df-plt 18385  df-lub 18401  df-glb 18402  df-join 18403  df-meet 18404  df-p0 18480  df-lat 18489  df-covers 40021  df-ats 40022  df-atl 40053  df-cvlat 40077  df-hlat 40106  df-psubsp 40258  df-padd 40551
This theorem is referenced by:  pmod1i  40603
  Copyright terms: Public domain W3C validator