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 incom Y + ˙ X + ˙ Z Y + ˙ W = Y + ˙ W Y + ˙ X + ˙ Z
4 simpl1 K HL X S Y S Z S W S K HL
5 simpl3 K HL X S Y S Z S W S Y S
6 eqid Atoms K = Atoms K
7 6 1 psubssat K HL Y S Y Atoms K
8 4 5 7 syl2anc K HL X S Y S Z S W S Y Atoms K
9 simpl2 K HL X S Y S Z S W S X S
10 6 1 psubssat K HL X S X Atoms K
11 4 9 10 syl2anc K HL X S Y S Z S W S X Atoms K
12 simprl K HL X S Y S Z S W S Z S
13 6 1 psubssat K HL Z S Z Atoms K
14 4 12 13 syl2anc K HL X S Y S Z S W S Z Atoms K
15 6 2 paddssat K HL X Atoms K Z Atoms K X + ˙ Z Atoms K
16 4 11 14 15 syl3anc K HL X S Y S Z S W S X + ˙ Z Atoms K
17 simprr K HL X S Y S Z S W S W S
18 1 2 paddclN K HL Y S W S Y + ˙ W S
19 4 5 17 18 syl3anc K HL X S Y S Z S W S Y + ˙ W S
20 6 1 psubssat K HL W S W Atoms K
21 4 17 20 syl2anc K HL X S Y S Z S W S W Atoms K
22 6 2 sspadd1 K HL Y Atoms K W Atoms K Y Y + ˙ W
23 4 8 21 22 syl3anc K HL X S Y S Z S W S Y Y + ˙ W
24 6 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
25 24 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
26 4 8 16 19 23 25 syl131anc K HL X S Y S Z S W S Y + ˙ X + ˙ Z Y + ˙ W = Y + ˙ X + ˙ Z Y + ˙ W
27 3 26 syl5reqr 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 16 29 syl K HL X S Y S Z S W S X + ˙ Z Y + ˙ W Atoms K
31 6 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 4 11 8 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 6 2 paddass K HL X Atoms K Y Atoms K Z Atoms K X + ˙ Y + ˙ Z = X + ˙ Y + ˙ Z
34 4 11 8 14 33 syl13anc K HL X S Y S Z S W S X + ˙ Y + ˙ Z = X + ˙ Y + ˙ Z
35 6 2 padd12N K HL X Atoms K Y Atoms K Z Atoms K X + ˙ Y + ˙ Z = Y + ˙ X + ˙ Z
36 4 11 8 14 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 6 2 paddass K HL X Atoms K Y Atoms K W Atoms K X + ˙ Y + ˙ W = X + ˙ Y + ˙ W
39 4 11 8 21 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 6 1 psubssat K HL Y + ˙ W S Y + ˙ W Atoms K
44 4 19 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 4 9 12 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 4 5 46 47 syl3anc K HL X S Y S Z S W S Y + ˙ X + ˙ Z S
49 6 2 sspadd1 K HL X Atoms K Z Atoms K X X + ˙ Z
50 4 11 14 49 syl3anc K HL X S Y S Z S W S X X + ˙ Z
51 6 2 sspadd2 K HL X + ˙ Z Atoms K Y Atoms K X + ˙ Z Y + ˙ X + ˙ Z
52 4 16 8 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 6 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 4 11 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