Metamath Proof Explorer


Theorem logsqvma

Description: A formula for log ^ 2 ( N ) in terms of the primes. Equation 10.4.6 of Shapiro, p. 418. (Contributed by Mario Carneiro, 13-May-2016)

Ref Expression
Assertion logsqvma ⊢ N ∈ ℕ → ∑ d ∈ x ∈ ℕ | x ∥ N ∑ u ∈ x ∈ ℕ | x ∥ d Λ ⁡ u ⁢ Λ ⁡ d u + Λ ⁡ d ⁢ log ⁡ d = log ⁡ N 2

Proof

Step Hyp Ref Expression
1 dvdsfi ⊢ N ∈ ℕ → x ∈ ℕ | x ∥ N ∈ Fin
2 fzfid ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → 1 … d ∈ Fin
3 elrabi ⊢ d ∈ x ∈ ℕ | x ∥ N → d ∈ ℕ
4 3 adantl ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → d ∈ ℕ
5 dvdsssfz1 ⊢ d ∈ ℕ → x ∈ ℕ | x ∥ d ⊆ 1 … d
6 4 5 syl ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → x ∈ ℕ | x ∥ d ⊆ 1 … d
7 2 6 ssfid ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → x ∈ ℕ | x ∥ d ∈ Fin
8 elrabi ⊢ u ∈ x ∈ ℕ | x ∥ d → u ∈ ℕ
9 8 ad2antll ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N ∧ u ∈ x ∈ ℕ | x ∥ d → u ∈ ℕ
10 vmacl ⊢ u ∈ ℕ → Λ ⁡ u ∈ ℝ
11 9 10 syl ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N ∧ u ∈ x ∈ ℕ | x ∥ d → Λ ⁡ u ∈ ℝ
12 breq1 ⊢ x = u → x ∥ d ↔ u ∥ d
13 12 elrab ⊢ u ∈ x ∈ ℕ | x ∥ d ↔ u ∈ ℕ ∧ u ∥ d
14 13 simprbi ⊢ u ∈ x ∈ ℕ | x ∥ d → u ∥ d
15 14 ad2antll ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N ∧ u ∈ x ∈ ℕ | x ∥ d → u ∥ d
16 3 ad2antrl ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N ∧ u ∈ x ∈ ℕ | x ∥ d → d ∈ ℕ
17 nndivdvds ⊢ d ∈ ℕ ∧ u ∈ ℕ → u ∥ d ↔ d u ∈ ℕ
18 16 9 17 syl2anc ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N ∧ u ∈ x ∈ ℕ | x ∥ d → u ∥ d ↔ d u ∈ ℕ
19 15 18 mpbid ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N ∧ u ∈ x ∈ ℕ | x ∥ d → d u ∈ ℕ
20 vmacl ⊢ d u ∈ ℕ → Λ ⁡ d u ∈ ℝ
21 19 20 syl ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N ∧ u ∈ x ∈ ℕ | x ∥ d → Λ ⁡ d u ∈ ℝ
22 11 21 remulcld ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N ∧ u ∈ x ∈ ℕ | x ∥ d → Λ ⁡ u ⁢ Λ ⁡ d u ∈ ℝ
23 22 recnd ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N ∧ u ∈ x ∈ ℕ | x ∥ d → Λ ⁡ u ⁢ Λ ⁡ d u ∈ ℂ
24 23 anassrs ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N ∧ u ∈ x ∈ ℕ | x ∥ d → Λ ⁡ u ⁢ Λ ⁡ d u ∈ ℂ
25 7 24 fsumcl ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → ∑ u ∈ x ∈ ℕ | x ∥ d Λ ⁡ u ⁢ Λ ⁡ d u ∈ ℂ
26 vmacl ⊢ d ∈ ℕ → Λ ⁡ d ∈ ℝ
27 4 26 syl ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → Λ ⁡ d ∈ ℝ
28 4 nnrpd ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → d ∈ ℝ +
29 28 relogcld ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → log ⁡ d ∈ ℝ
30 27 29 remulcld ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → Λ ⁡ d ⁢ log ⁡ d ∈ ℝ
31 30 recnd ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → Λ ⁡ d ⁢ log ⁡ d ∈ ℂ
32 1 25 31 fsumadd ⊢ N ∈ ℕ → ∑ d ∈ x ∈ ℕ | x ∥ N ∑ u ∈ x ∈ ℕ | x ∥ d Λ ⁡ u ⁢ Λ ⁡ d u + Λ ⁡ d ⁢ log ⁡ d = ∑ d ∈ x ∈ ℕ | x ∥ N ∑ u ∈ x ∈ ℕ | x ∥ d Λ ⁡ u ⁢ Λ ⁡ d u + ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d
33 id ⊢ N ∈ ℕ → N ∈ ℕ
34 fvoveq1 ⊢ d = u ⁢ k → Λ ⁡ d u = Λ ⁡ u ⁢ k u
35 34 oveq2d ⊢ d = u ⁢ k → Λ ⁡ u ⁢ Λ ⁡ d u = Λ ⁡ u ⁢ Λ ⁡ u ⁢ k u
36 33 35 23 fsumdvdscom ⊢ N ∈ ℕ → ∑ d ∈ x ∈ ℕ | x ∥ N ∑ u ∈ x ∈ ℕ | x ∥ d Λ ⁡ u ⁢ Λ ⁡ d u = ∑ u ∈ x ∈ ℕ | x ∥ N ∑ k ∈ x ∈ ℕ | x ∥ N u Λ ⁡ u ⁢ Λ ⁡ u ⁢ k u
37 ssrab2 ⊢ x ∈ ℕ | x ∥ N u ⊆ ℕ
38 simpr ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N ∧ k ∈ x ∈ ℕ | x ∥ N u → k ∈ x ∈ ℕ | x ∥ N u
39 37 38 sselid ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N ∧ k ∈ x ∈ ℕ | x ∥ N u → k ∈ ℕ
40 39 nncnd ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N ∧ k ∈ x ∈ ℕ | x ∥ N u → k ∈ ℂ
41 ssrab2 ⊢ x ∈ ℕ | x ∥ N ⊆ ℕ
42 simpr ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → u ∈ x ∈ ℕ | x ∥ N
43 41 42 sselid ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → u ∈ ℕ
44 43 nncnd ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → u ∈ ℂ
45 44 adantr ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N ∧ k ∈ x ∈ ℕ | x ∥ N u → u ∈ ℂ
46 43 nnne0d ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → u ≠ 0
47 46 adantr ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N ∧ k ∈ x ∈ ℕ | x ∥ N u → u ≠ 0
48 40 45 47 divcan3d ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N ∧ k ∈ x ∈ ℕ | x ∥ N u → u ⁢ k u = k
49 48 fveq2d ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N ∧ k ∈ x ∈ ℕ | x ∥ N u → Λ ⁡ u ⁢ k u = Λ ⁡ k
50 49 sumeq2dv ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → ∑ k ∈ x ∈ ℕ | x ∥ N u Λ ⁡ u ⁢ k u = ∑ k ∈ x ∈ ℕ | x ∥ N u Λ ⁡ k
51 dvdsdivcl ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → N u ∈ x ∈ ℕ | x ∥ N
52 41 51 sselid ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → N u ∈ ℕ
53 vmasum ⊢ N u ∈ ℕ → ∑ k ∈ x ∈ ℕ | x ∥ N u Λ ⁡ k = log ⁡ N u
54 52 53 syl ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → ∑ k ∈ x ∈ ℕ | x ∥ N u Λ ⁡ k = log ⁡ N u
55 nnrp ⊢ N ∈ ℕ → N ∈ ℝ +
56 55 adantr ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → N ∈ ℝ +
57 43 nnrpd ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → u ∈ ℝ +
58 56 57 relogdivd ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → log ⁡ N u = log ⁡ N − log ⁡ u
59 50 54 58 3eqtrd ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → ∑ k ∈ x ∈ ℕ | x ∥ N u Λ ⁡ u ⁢ k u = log ⁡ N − log ⁡ u
60 59 oveq2d ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → Λ ⁡ u ⁢ ∑ k ∈ x ∈ ℕ | x ∥ N u Λ ⁡ u ⁢ k u = Λ ⁡ u ⁢ log ⁡ N − log ⁡ u
61 fzfid ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → 1 … N u ∈ Fin
62 dvdsssfz1 ⊢ N u ∈ ℕ → x ∈ ℕ | x ∥ N u ⊆ 1 … N u
63 52 62 syl ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → x ∈ ℕ | x ∥ N u ⊆ 1 … N u
64 61 63 ssfid ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → x ∈ ℕ | x ∥ N u ∈ Fin
65 43 10 syl ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → Λ ⁡ u ∈ ℝ
66 65 recnd ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → Λ ⁡ u ∈ ℂ
67 vmacl ⊢ k ∈ ℕ → Λ ⁡ k ∈ ℝ
68 39 67 syl ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N ∧ k ∈ x ∈ ℕ | x ∥ N u → Λ ⁡ k ∈ ℝ
69 68 recnd ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N ∧ k ∈ x ∈ ℕ | x ∥ N u → Λ ⁡ k ∈ ℂ
70 49 69 eqeltrd ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N ∧ k ∈ x ∈ ℕ | x ∥ N u → Λ ⁡ u ⁢ k u ∈ ℂ
71 64 66 70 fsummulc2 ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → Λ ⁡ u ⁢ ∑ k ∈ x ∈ ℕ | x ∥ N u Λ ⁡ u ⁢ k u = ∑ k ∈ x ∈ ℕ | x ∥ N u Λ ⁡ u ⁢ Λ ⁡ u ⁢ k u
72 relogcl ⊢ N ∈ ℝ + → log ⁡ N ∈ ℝ
73 72 recnd ⊢ N ∈ ℝ + → log ⁡ N ∈ ℂ
74 56 73 syl ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → log ⁡ N ∈ ℂ
75 57 relogcld ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → log ⁡ u ∈ ℝ
76 75 recnd ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → log ⁡ u ∈ ℂ
77 66 74 76 subdid ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → Λ ⁡ u ⁢ log ⁡ N − log ⁡ u = Λ ⁡ u ⁢ log ⁡ N − Λ ⁡ u ⁢ log ⁡ u
78 60 71 77 3eqtr3d ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → ∑ k ∈ x ∈ ℕ | x ∥ N u Λ ⁡ u ⁢ Λ ⁡ u ⁢ k u = Λ ⁡ u ⁢ log ⁡ N − Λ ⁡ u ⁢ log ⁡ u
79 78 sumeq2dv ⊢ N ∈ ℕ → ∑ u ∈ x ∈ ℕ | x ∥ N ∑ k ∈ x ∈ ℕ | x ∥ N u Λ ⁡ u ⁢ Λ ⁡ u ⁢ k u = ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ N − Λ ⁡ u ⁢ log ⁡ u
80 66 74 mulcld ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → Λ ⁡ u ⁢ log ⁡ N ∈ ℂ
81 66 76 mulcld ⊢ N ∈ ℕ ∧ u ∈ x ∈ ℕ | x ∥ N → Λ ⁡ u ⁢ log ⁡ u ∈ ℂ
82 1 80 81 fsumsub ⊢ N ∈ ℕ → ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ N − Λ ⁡ u ⁢ log ⁡ u = ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ N − ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ u
83 55 73 syl ⊢ N ∈ ℕ → log ⁡ N ∈ ℂ
84 83 sqvald ⊢ N ∈ ℕ → log ⁡ N 2 = log ⁡ N ⁢ log ⁡ N
85 vmasum ⊢ N ∈ ℕ → ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u = log ⁡ N
86 85 oveq1d ⊢ N ∈ ℕ → ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ N = log ⁡ N ⁢ log ⁡ N
87 1 83 66 fsummulc1 ⊢ N ∈ ℕ → ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ N = ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ N
88 84 86 87 3eqtr2rd ⊢ N ∈ ℕ → ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ N = log ⁡ N 2
89 fveq2 ⊢ u = d → Λ ⁡ u = Λ ⁡ d
90 fveq2 ⊢ u = d → log ⁡ u = log ⁡ d
91 89 90 oveq12d ⊢ u = d → Λ ⁡ u ⁢ log ⁡ u = Λ ⁡ d ⁢ log ⁡ d
92 91 cbvsumv ⊢ ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ u = ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d
93 92 a1i ⊢ N ∈ ℕ → ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ u = ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d
94 88 93 oveq12d ⊢ N ∈ ℕ → ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ N − ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ u = log ⁡ N 2 − ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d
95 82 94 eqtrd ⊢ N ∈ ℕ → ∑ u ∈ x ∈ ℕ | x ∥ N Λ ⁡ u ⁢ log ⁡ N − Λ ⁡ u ⁢ log ⁡ u = log ⁡ N 2 − ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d
96 36 79 95 3eqtrd ⊢ N ∈ ℕ → ∑ d ∈ x ∈ ℕ | x ∥ N ∑ u ∈ x ∈ ℕ | x ∥ d Λ ⁡ u ⁢ Λ ⁡ d u = log ⁡ N 2 − ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d
97 96 oveq1d ⊢ N ∈ ℕ → ∑ d ∈ x ∈ ℕ | x ∥ N ∑ u ∈ x ∈ ℕ | x ∥ d Λ ⁡ u ⁢ Λ ⁡ d u + ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d = log ⁡ N 2 - ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d + ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d
98 83 sqcld ⊢ N ∈ ℕ → log ⁡ N 2 ∈ ℂ
99 1 31 fsumcl ⊢ N ∈ ℕ → ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d ∈ ℂ
100 98 99 npcand ⊢ N ∈ ℕ → log ⁡ N 2 - ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d + ∑ d ∈ x ∈ ℕ | x ∥ N Λ ⁡ d ⁢ log ⁡ d = log ⁡ N 2
101 32 97 100 3eqtrd ⊢ N ∈ ℕ → ∑ d ∈ x ∈ ℕ | x ∥ N ∑ u ∈ x ∈ ℕ | x ∥ d Λ ⁡ u ⁢ Λ ⁡ d u + Λ ⁡ d ⁢ log ⁡ d = log ⁡ N 2