Metamath Proof Explorer


Theorem pmodl42N

Description: Lemma derived from modular law. (Contributed by NM, 8-Apr-2012) (New usage is discouraged.)

Ref Expression
Hypotheses pmodl42.s ⊢ S = PSubSp ⁡ K
pmodl42.p ⊢ + ˙ = + 𝑃 ⁡ K
Assertion pmodl42N ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ Z ∩ X + ˙ Y + ˙ W = X + ˙ Y + ˙ X + ˙ Z ∩ Y + ˙ W

Proof

Step Hyp Ref Expression
1 pmodl42.s ⊢ S = PSubSp ⁡ K
2 pmodl42.p ⊢ + ˙ = + 𝑃 ⁡ K
3 simpl1 ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → K ∈ HL
4 simpl3 ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → Y ∈ S
5 eqid ⊢ Atoms ⁡ K = Atoms ⁡ K
6 5 1 psubssat ⊢ K ∈ HL ∧ Y ∈ S → Y ⊆ Atoms ⁡ K
7 3 4 6 syl2anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → Y ⊆ Atoms ⁡ K
8 simpl2 ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X ∈ S
9 5 1 psubssat ⊢ K ∈ HL ∧ X ∈ S → X ⊆ Atoms ⁡ K
10 3 8 9 syl2anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X ⊆ Atoms ⁡ K
11 simprl ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → Z ∈ S
12 5 1 psubssat ⊢ K ∈ HL ∧ Z ∈ S → Z ⊆ Atoms ⁡ K
13 3 11 12 syl2anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → Z ⊆ Atoms ⁡ K
14 5 2 paddssat ⊢ K ∈ HL ∧ X ⊆ Atoms ⁡ K ∧ Z ⊆ Atoms ⁡ K → X + ˙ Z ⊆ Atoms ⁡ K
15 3 10 13 14 syl3anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Z ⊆ Atoms ⁡ K
16 simprr ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → W ∈ S
17 1 2 paddclN ⊢ K ∈ HL ∧ Y ∈ S ∧ W ∈ S → Y + ˙ W ∈ S
18 3 4 16 17 syl3anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → Y + ˙ W ∈ S
19 5 1 psubssat ⊢ K ∈ HL ∧ W ∈ S → W ⊆ Atoms ⁡ K
20 3 16 19 syl2anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → W ⊆ Atoms ⁡ K
21 5 2 sspadd1 ⊢ K ∈ HL ∧ Y ⊆ Atoms ⁡ K ∧ W ⊆ Atoms ⁡ K → Y ⊆ Y + ˙ W
22 3 7 20 21 syl3anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → Y ⊆ Y + ˙ W
23 5 1 2 pmod1i ⊢ K ∈ HL ∧ Y ⊆ Atoms ⁡ K ∧ X + ˙ Z ⊆ Atoms ⁡ K ∧ Y + ˙ W ∈ S → Y ⊆ Y + ˙ W → Y + ˙ X + ˙ Z ∩ Y + ˙ W = Y + ˙ X + ˙ Z ∩ Y + ˙ W
24 23 3impia ⊢ K ∈ HL ∧ Y ⊆ Atoms ⁡ K ∧ X + ˙ Z ⊆ Atoms ⁡ K ∧ Y + ˙ W ∈ S ∧ Y ⊆ Y + ˙ W → Y + ˙ X + ˙ Z ∩ Y + ˙ W = Y + ˙ X + ˙ Z ∩ Y + ˙ W
25 3 7 15 18 22 24 syl131anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → Y + ˙ X + ˙ Z ∩ Y + ˙ W = Y + ˙ X + ˙ Z ∩ Y + ˙ W
26 incom ⊢ Y + ˙ X + ˙ Z ∩ Y + ˙ W = Y + ˙ W ∩ Y + ˙ X + ˙ Z
27 25 26 eqtr3di ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → Y + ˙ X + ˙ Z ∩ Y + ˙ W = Y + ˙ W ∩ Y + ˙ X + ˙ Z
28 27 oveq2d ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ X + ˙ Z ∩ Y + ˙ W = X + ˙ Y + ˙ W ∩ Y + ˙ X + ˙ Z
29 ssinss1 ⊢ X + ˙ Z ⊆ Atoms ⁡ K → X + ˙ Z ∩ Y + ˙ W ⊆ Atoms ⁡ K
30 15 29 syl ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Z ∩ Y + ˙ W ⊆ Atoms ⁡ K
31 5 2 paddass ⊢ K ∈ HL ∧ X ⊆ Atoms ⁡ K ∧ Y ⊆ Atoms ⁡ K ∧ X + ˙ Z ∩ Y + ˙ W ⊆ Atoms ⁡ K → X + ˙ Y + ˙ X + ˙ Z ∩ Y + ˙ W = X + ˙ Y + ˙ X + ˙ Z ∩ Y + ˙ W
32 3 10 7 30 31 syl13anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ X + ˙ Z ∩ Y + ˙ W = X + ˙ Y + ˙ X + ˙ Z ∩ Y + ˙ W
33 5 2 paddass ⊢ K ∈ HL ∧ X ⊆ Atoms ⁡ K ∧ Y ⊆ Atoms ⁡ K ∧ Z ⊆ Atoms ⁡ K → X + ˙ Y + ˙ Z = X + ˙ Y + ˙ Z
34 3 10 7 13 33 syl13anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ Z = X + ˙ Y + ˙ Z
35 5 2 padd12N ⊢ K ∈ HL ∧ X ⊆ Atoms ⁡ K ∧ Y ⊆ Atoms ⁡ K ∧ Z ⊆ Atoms ⁡ K → X + ˙ Y + ˙ Z = Y + ˙ X + ˙ Z
36 3 10 7 13 35 syl13anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ Z = Y + ˙ X + ˙ Z
37 34 36 eqtrd ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ Z = Y + ˙ X + ˙ Z
38 5 2 paddass ⊢ K ∈ HL ∧ X ⊆ Atoms ⁡ K ∧ Y ⊆ Atoms ⁡ K ∧ W ⊆ Atoms ⁡ K → X + ˙ Y + ˙ W = X + ˙ Y + ˙ W
39 3 10 7 20 38 syl13anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ W = X + ˙ Y + ˙ W
40 37 39 ineq12d ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ Z ∩ X + ˙ Y + ˙ W = Y + ˙ X + ˙ Z ∩ X + ˙ Y + ˙ W
41 incom ⊢ Y + ˙ X + ˙ Z ∩ X + ˙ Y + ˙ W = X + ˙ Y + ˙ W ∩ Y + ˙ X + ˙ Z
42 40 41 eqtrdi ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ Z ∩ X + ˙ Y + ˙ W = X + ˙ Y + ˙ W ∩ Y + ˙ X + ˙ Z
43 5 1 psubssat ⊢ K ∈ HL ∧ Y + ˙ W ∈ S → Y + ˙ W ⊆ Atoms ⁡ K
44 3 18 43 syl2anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → Y + ˙ W ⊆ Atoms ⁡ K
45 1 2 paddclN ⊢ K ∈ HL ∧ X ∈ S ∧ Z ∈ S → X + ˙ Z ∈ S
46 3 8 11 45 syl3anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Z ∈ S
47 1 2 paddclN ⊢ K ∈ HL ∧ Y ∈ S ∧ X + ˙ Z ∈ S → Y + ˙ X + ˙ Z ∈ S
48 3 4 46 47 syl3anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → Y + ˙ X + ˙ Z ∈ S
49 5 2 sspadd1 ⊢ K ∈ HL ∧ X ⊆ Atoms ⁡ K ∧ Z ⊆ Atoms ⁡ K → X ⊆ X + ˙ Z
50 3 10 13 49 syl3anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X ⊆ X + ˙ Z
51 5 2 sspadd2 ⊢ K ∈ HL ∧ X + ˙ Z ⊆ Atoms ⁡ K ∧ Y ⊆ Atoms ⁡ K → X + ˙ Z ⊆ Y + ˙ X + ˙ Z
52 3 15 7 51 syl3anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Z ⊆ Y + ˙ X + ˙ Z
53 50 52 sstrd ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X ⊆ Y + ˙ X + ˙ Z
54 5 1 2 pmod1i ⊢ K ∈ HL ∧ X ⊆ Atoms ⁡ K ∧ Y + ˙ W ⊆ Atoms ⁡ K ∧ Y + ˙ X + ˙ Z ∈ S → X ⊆ Y + ˙ X + ˙ Z → X + ˙ Y + ˙ W ∩ Y + ˙ X + ˙ Z = X + ˙ Y + ˙ W ∩ Y + ˙ X + ˙ Z
55 54 3impia ⊢ K ∈ HL ∧ X ⊆ Atoms ⁡ K ∧ Y + ˙ W ⊆ Atoms ⁡ K ∧ Y + ˙ X + ˙ Z ∈ S ∧ X ⊆ Y + ˙ X + ˙ Z → X + ˙ Y + ˙ W ∩ Y + ˙ X + ˙ Z = X + ˙ Y + ˙ W ∩ Y + ˙ X + ˙ Z
56 3 10 44 48 53 55 syl131anc ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ W ∩ Y + ˙ X + ˙ Z = X + ˙ Y + ˙ W ∩ Y + ˙ X + ˙ Z
57 42 56 eqtrd ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ Z ∩ X + ˙ Y + ˙ W = X + ˙ Y + ˙ W ∩ Y + ˙ X + ˙ Z
58 28 32 57 3eqtr4rd ⊢ K ∈ HL ∧ X ∈ S ∧ Y ∈ S ∧ Z ∈ S ∧ W ∈ S → X + ˙ Y + ˙ Z ∩ X + ˙ Y + ˙ W = X + ˙ Y + ˙ X + ˙ Z ∩ Y + ˙ W