Metamath Proof Explorer


Theorem pcqmul

Description: Multiplication property of the prime power function. (Contributed by Mario Carneiro, 9-Sep-2014)

Ref Expression
Assertion pcqmul PAA0BB0PpCntAB=PpCntA+PpCntB

Proof

Step Hyp Ref Expression
1 simp2l PAA0BB0A
2 elq AxyA=xy
3 1 2 sylib PAA0BB0xyA=xy
4 simp3l PAA0BB0B
5 elq BzwB=zw
6 4 5 sylib PAA0BB0zwB=zw
7 reeanv xzyA=xywB=zwxyA=xyzwB=zw
8 reeanv ywA=xyB=zwyA=xywB=zw
9 simp2r PAA0BB0A0
10 simp3r PAA0BB0B0
11 9 10 jca PAA0BB0A0B0
12 11 ad2antrr PAA0BB0xzywA0B0
13 simp1 PAA0BB0P
14 simprl Pxzywy
15 14 nncnd Pxzywy
16 14 nnne0d Pxzywy0
17 15 16 div0d Pxzyw0y=0
18 oveq1 x=0xy=0y
19 18 eqeq1d x=0xy=00y=0
20 17 19 syl5ibrcom Pxzywx=0xy=0
21 20 necon3d Pxzywxy0x0
22 simprr Pxzyww
23 22 nncnd Pxzyww
24 22 nnne0d Pxzyww0
25 23 24 div0d Pxzyw0w=0
26 oveq1 z=0zw=0w
27 26 eqeq1d z=0zw=00w=0
28 25 27 syl5ibrcom Pxzywz=0zw=0
29 28 necon3d Pxzywzw0z0
30 simpll Pxzywx0z0P
31 simplrl Pxzywx0z0x
32 simplrr Pxzywx0z0z
33 31 32 zmulcld Pxzywx0z0xz
34 31 zcnd Pxzywx0z0x
35 32 zcnd Pxzywx0z0z
36 simprrl Pxzywx0z0x0
37 simprrr Pxzywx0z0z0
38 34 35 36 37 mulne0d Pxzywx0z0xz0
39 14 adantrr Pxzywx0z0y
40 22 adantrr Pxzywx0z0w
41 39 40 nnmulcld Pxzywx0z0yw
42 pcdiv Pxzxz0ywPpCntxzyw=PpCntxzPpCntyw
43 30 33 38 41 42 syl121anc Pxzywx0z0PpCntxzyw=PpCntxzPpCntyw
44 pcmul Pxx0zz0PpCntxz=PpCntx+PpCntz
45 30 31 36 32 37 44 syl122anc Pxzywx0z0PpCntxz=PpCntx+PpCntz
46 39 nnzd Pxzywx0z0y
47 16 adantrr Pxzywx0z0y0
48 40 nnzd Pxzywx0z0w
49 24 adantrr Pxzywx0z0w0
50 pcmul Pyy0ww0PpCntyw=PpCnty+PpCntw
51 30 46 47 48 49 50 syl122anc Pxzywx0z0PpCntyw=PpCnty+PpCntw
52 45 51 oveq12d Pxzywx0z0PpCntxzPpCntyw=PpCntx+PpCntz-PpCnty+PpCntw
53 pczcl Pxx0PpCntx0
54 30 31 36 53 syl12anc Pxzywx0z0PpCntx0
55 54 nn0cnd Pxzywx0z0PpCntx
56 pczcl Pzz0PpCntz0
57 30 32 37 56 syl12anc Pxzywx0z0PpCntz0
58 57 nn0cnd Pxzywx0z0PpCntz
59 30 39 pccld Pxzywx0z0PpCnty0
60 59 nn0cnd Pxzywx0z0PpCnty
61 30 40 pccld Pxzywx0z0PpCntw0
62 61 nn0cnd Pxzywx0z0PpCntw
63 55 58 60 62 addsub4d Pxzywx0z0PpCntx+PpCntz-PpCnty+PpCntw=PpCntxPpCnty+PpCntz-PpCntw
64 43 52 63 3eqtrd Pxzywx0z0PpCntxzyw=PpCntxPpCnty+PpCntz-PpCntw
65 15 adantrr Pxzywx0z0y
66 23 adantrr Pxzywx0z0w
67 34 65 35 66 47 49 divmuldivd Pxzywx0z0xyzw=xzyw
68 67 oveq2d Pxzywx0z0PpCntxyzw=PpCntxzyw
69 pcdiv Pxx0yPpCntxy=PpCntxPpCnty
70 30 31 36 39 69 syl121anc Pxzywx0z0PpCntxy=PpCntxPpCnty
71 pcdiv Pzz0wPpCntzw=PpCntzPpCntw
72 30 32 37 40 71 syl121anc Pxzywx0z0PpCntzw=PpCntzPpCntw
73 70 72 oveq12d Pxzywx0z0PpCntxy+PpCntzw=PpCntxPpCnty+PpCntz-PpCntw
74 64 68 73 3eqtr4d Pxzywx0z0PpCntxyzw=PpCntxy+PpCntzw
75 74 expr Pxzywx0z0PpCntxyzw=PpCntxy+PpCntzw
76 21 29 75 syl2and Pxzywxy0zw0PpCntxyzw=PpCntxy+PpCntzw
77 neeq1 A=xyA0xy0
78 neeq1 B=zwB0zw0
79 77 78 bi2anan9 A=xyB=zwA0B0xy0zw0
80 oveq12 A=xyB=zwAB=xyzw
81 80 oveq2d A=xyB=zwPpCntAB=PpCntxyzw
82 oveq2 A=xyPpCntA=PpCntxy
83 oveq2 B=zwPpCntB=PpCntzw
84 82 83 oveqan12d A=xyB=zwPpCntA+PpCntB=PpCntxy+PpCntzw
85 81 84 eqeq12d A=xyB=zwPpCntAB=PpCntA+PpCntBPpCntxyzw=PpCntxy+PpCntzw
86 79 85 imbi12d A=xyB=zwA0B0PpCntAB=PpCntA+PpCntBxy0zw0PpCntxyzw=PpCntxy+PpCntzw
87 76 86 syl5ibrcom PxzywA=xyB=zwA0B0PpCntAB=PpCntA+PpCntB
88 13 87 sylanl1 PAA0BB0xzywA=xyB=zwA0B0PpCntAB=PpCntA+PpCntB
89 12 88 mpid PAA0BB0xzywA=xyB=zwPpCntAB=PpCntA+PpCntB
90 89 rexlimdvva PAA0BB0xzywA=xyB=zwPpCntAB=PpCntA+PpCntB
91 8 90 biimtrrid PAA0BB0xzyA=xywB=zwPpCntAB=PpCntA+PpCntB
92 91 rexlimdvva PAA0BB0xzyA=xywB=zwPpCntAB=PpCntA+PpCntB
93 7 92 biimtrrid PAA0BB0xyA=xyzwB=zwPpCntAB=PpCntA+PpCntB
94 3 6 93 mp2and PAA0BB0PpCntAB=PpCntA+PpCntB