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