Metamath Proof Explorer


Theorem pmodlem2

Description: Lemma for pmod1i . (Contributed by NM, 9-Mar-2012)

Ref Expression
Hypotheses pmodlem.l ˙=K
pmodlem.j ˙=joinK
pmodlem.a A=AtomsK
pmodlem.s S=PSubSpK
pmodlem.p +˙=+𝑃K
Assertion pmodlem2 KHLXAYAZSXZX+˙YZX+˙YZ

Proof

Step Hyp Ref Expression
1 pmodlem.l ˙=K
2 pmodlem.j ˙=joinK
3 pmodlem.a A=AtomsK
4 pmodlem.s S=PSubSpK
5 pmodlem.p +˙=+𝑃K
6 simpr KHLXAYAZSXZX=X=
7 6 oveq1d KHLXAYAZSXZX=X+˙Y=+˙Y
8 simpl1 KHLXAYAZSXZX=KHL
9 simpl22 KHLXAYAZSXZX=YA
10 3 5 padd02 KHLYA+˙Y=Y
11 8 9 10 syl2anc KHLXAYAZSXZX=+˙Y=Y
12 7 11 eqtrd KHLXAYAZSXZX=X+˙Y=Y
13 12 ineq1d KHLXAYAZSXZX=X+˙YZ=YZ
14 ssinss1 YAYZA
15 9 14 syl KHLXAYAZSXZX=YZA
16 simpl21 KHLXAYAZSXZX=XA
17 3 5 sspadd2 KHLYZAXAYZX+˙YZ
18 8 15 16 17 syl3anc KHLXAYAZSXZX=YZX+˙YZ
19 13 18 eqsstrd KHLXAYAZSXZX=X+˙YZX+˙YZ
20 oveq2 Y=X+˙Y=X+˙
21 simp1 KHLXAYAZSXZKHL
22 simp21 KHLXAYAZSXZXA
23 3 5 padd01 KHLXAX+˙=X
24 21 22 23 syl2anc KHLXAYAZSXZX+˙=X
25 20 24 sylan9eqr KHLXAYAZSXZY=X+˙Y=X
26 25 ineq1d KHLXAYAZSXZY=X+˙YZ=XZ
27 inss1 XZX
28 simpl1 KHLXAYAZSXZY=KHL
29 simpl21 KHLXAYAZSXZY=XA
30 simpl22 KHLXAYAZSXZY=YA
31 30 14 syl KHLXAYAZSXZY=YZA
32 3 5 sspadd1 KHLXAYZAXX+˙YZ
33 28 29 31 32 syl3anc KHLXAYAZSXZY=XX+˙YZ
34 27 33 sstrid KHLXAYAZSXZY=XZX+˙YZ
35 26 34 eqsstrd KHLXAYAZSXZY=X+˙YZX+˙YZ
36 elin pX+˙YZpX+˙YpZ
37 simpl1 KHLXAYAZSXZXYpZKHL
38 37 hllatd KHLXAYAZSXZXYpZKLat
39 simpl21 KHLXAYAZSXZXYpZXA
40 simpl22 KHLXAYAZSXZXYpZYA
41 simprl KHLXAYAZSXZXYpZXY
42 1 2 3 5 elpaddn0 KLatXAYAXYpX+˙YpAqXrYp˙q˙r
43 38 39 40 41 42 syl31anc KHLXAYAZSXZXYpZpX+˙YpAqXrYp˙q˙r
44 simpl1 KHLXAYAZSXZpZqXrYp˙q˙rKHL
45 simpl21 KHLXAYAZSXZpZqXrYp˙q˙rXA
46 simpl22 KHLXAYAZSXZpZqXrYp˙q˙rYA
47 simpl23 KHLXAYAZSXZpZqXrYp˙q˙rZS
48 simpl3 KHLXAYAZSXZpZqXrYp˙q˙rXZ
49 simpr1 KHLXAYAZSXZpZqXrYp˙q˙rpZ
50 simpr2l KHLXAYAZSXZpZqXrYp˙q˙rqX
51 simpr2r KHLXAYAZSXZpZqXrYp˙q˙rrY
52 simpr3 KHLXAYAZSXZpZqXrYp˙q˙rp˙q˙r
53 1 2 3 4 5 pmodlem1 KHLXAYAZSXZpZqXrYp˙q˙rpX+˙YZ
54 44 45 46 47 48 49 50 51 52 53 syl333anc KHLXAYAZSXZpZqXrYp˙q˙rpX+˙YZ
55 54 3exp2 KHLXAYAZSXZpZqXrYp˙q˙rpX+˙YZ
56 55 imp KHLXAYAZSXZpZqXrYp˙q˙rpX+˙YZ
57 56 rexlimdvv KHLXAYAZSXZpZqXrYp˙q˙rpX+˙YZ
58 57 adantld KHLXAYAZSXZpZpAqXrYp˙q˙rpX+˙YZ
59 58 adantrl KHLXAYAZSXZXYpZpAqXrYp˙q˙rpX+˙YZ
60 43 59 sylbid KHLXAYAZSXZXYpZpX+˙YpX+˙YZ
61 60 exp32 KHLXAYAZSXZXYpZpX+˙YpX+˙YZ
62 61 com34 KHLXAYAZSXZXYpX+˙YpZpX+˙YZ
63 62 imp4b KHLXAYAZSXZXYpX+˙YpZpX+˙YZ
64 36 63 biimtrid KHLXAYAZSXZXYpX+˙YZpX+˙YZ
65 64 ssrdv KHLXAYAZSXZXYX+˙YZX+˙YZ
66 19 35 65 pm2.61da2ne KHLXAYAZSXZX+˙YZX+˙YZ