Metamath Proof Explorer


Theorem knoppndvlem2

Description: Lemma for knoppndv . (Contributed by Asger C. Ipsen, 15-Jun-2021) (Revised by Asger C. Ipsen, 5-Jul-2021)

Ref Expression
Hypotheses knoppndvlem2.n ⊢ φ → N ∈ ℕ
knoppndvlem2.i ⊢ φ → I ∈ ℤ
knoppndvlem2.j ⊢ φ → J ∈ ℤ
knoppndvlem2.m ⊢ φ → M ∈ ℤ
knoppndvlem2.1 ⊢ φ → J < I
Assertion knoppndvlem2 ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J 2 ⋅ M ∈ ℤ

Proof

Step Hyp Ref Expression
1 knoppndvlem2.n ⊢ φ → N ∈ ℕ
2 knoppndvlem2.i ⊢ φ → I ∈ ℤ
3 knoppndvlem2.j ⊢ φ → J ∈ ℤ
4 knoppndvlem2.m ⊢ φ → M ∈ ℤ
5 knoppndvlem2.1 ⊢ φ → J < I
6 2cnd ⊢ φ → 2 ∈ ℂ
7 nnz ⊢ N ∈ ℕ → N ∈ ℤ
8 1 7 syl ⊢ φ → N ∈ ℤ
9 8 zcnd ⊢ φ → N ∈ ℂ
10 6 9 mulcld ⊢ φ → 2 ⋅ N ∈ ℂ
11 2ne0 ⊢ 2 ≠ 0
12 11 a1i ⊢ φ → 2 ≠ 0
13 0red ⊢ φ → 0 ∈ ℝ
14 1red ⊢ φ → 1 ∈ ℝ
15 8 zred ⊢ φ → N ∈ ℝ
16 0lt1 ⊢ 0 < 1
17 16 a1i ⊢ φ → 0 < 1
18 nnge1 ⊢ N ∈ ℕ → 1 ≤ N
19 1 18 syl ⊢ φ → 1 ≤ N
20 13 14 15 17 19 ltletrd ⊢ φ → 0 < N
21 13 20 ltned ⊢ φ → 0 ≠ N
22 21 necomd ⊢ φ → N ≠ 0
23 6 9 12 22 mulne0d ⊢ φ → 2 ⋅ N ≠ 0
24 10 23 2 expclzd ⊢ φ → 2 ⋅ N I ∈ ℂ
25 3 znegcld ⊢ φ → − J ∈ ℤ
26 10 23 25 expclzd ⊢ φ → 2 ⋅ N − J ∈ ℂ
27 26 6 12 divcld ⊢ φ → 2 ⋅ N − J 2 ∈ ℂ
28 4 zcnd ⊢ φ → M ∈ ℂ
29 24 27 28 mulassd ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J 2 ⋅ M = 2 ⋅ N I ⁢ 2 ⋅ N − J 2 ⋅ M
30 29 eqcomd ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J 2 ⋅ M = 2 ⋅ N I ⁢ 2 ⋅ N − J 2 ⋅ M
31 24 26 6 12 divassd ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J 2 = 2 ⋅ N I ⁢ 2 ⋅ N − J 2
32 31 eqcomd ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J 2 = 2 ⋅ N I ⁢ 2 ⋅ N − J 2
33 10 23 jca ⊢ φ → 2 ⋅ N ∈ ℂ ∧ 2 ⋅ N ≠ 0
34 2 25 jca ⊢ φ → I ∈ ℤ ∧ − J ∈ ℤ
35 33 34 jca ⊢ φ → 2 ⋅ N ∈ ℂ ∧ 2 ⋅ N ≠ 0 ∧ I ∈ ℤ ∧ − J ∈ ℤ
36 expaddz ⊢ 2 ⋅ N ∈ ℂ ∧ 2 ⋅ N ≠ 0 ∧ I ∈ ℤ ∧ − J ∈ ℤ → 2 ⋅ N I + -J = 2 ⋅ N I ⁢ 2 ⋅ N − J
37 35 36 syl ⊢ φ → 2 ⋅ N I + -J = 2 ⋅ N I ⁢ 2 ⋅ N − J
38 37 eqcomd ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J = 2 ⋅ N I + -J
39 2 zcnd ⊢ φ → I ∈ ℂ
40 3 zcnd ⊢ φ → J ∈ ℂ
41 39 40 negsubd ⊢ φ → I + -J = I − J
42 41 oveq2d ⊢ φ → 2 ⋅ N I + -J = 2 ⋅ N I − J
43 3 2 jca ⊢ φ → J ∈ ℤ ∧ I ∈ ℤ
44 znnsub ⊢ J ∈ ℤ ∧ I ∈ ℤ → J < I ↔ I − J ∈ ℕ
45 43 44 syl ⊢ φ → J < I ↔ I − J ∈ ℕ
46 5 45 mpbid ⊢ φ → I − J ∈ ℕ
47 10 46 jca ⊢ φ → 2 ⋅ N ∈ ℂ ∧ I − J ∈ ℕ
48 expm1t ⊢ 2 ⋅ N ∈ ℂ ∧ I − J ∈ ℕ → 2 ⋅ N I − J = 2 ⋅ N I - J - 1 ⁢ 2 ⋅ N
49 47 48 syl ⊢ φ → 2 ⋅ N I − J = 2 ⋅ N I - J - 1 ⁢ 2 ⋅ N
50 38 42 49 3eqtrd ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J = 2 ⋅ N I - J - 1 ⁢ 2 ⋅ N
51 50 oveq1d ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J 2 = 2 ⋅ N I - J - 1 ⁢ 2 ⋅ N 2
52 2 3 jca ⊢ φ → I ∈ ℤ ∧ J ∈ ℤ
53 zsubcl ⊢ I ∈ ℤ ∧ J ∈ ℤ → I − J ∈ ℤ
54 52 53 syl ⊢ φ → I − J ∈ ℤ
55 peano2zm ⊢ I − J ∈ ℤ → I - J - 1 ∈ ℤ
56 54 55 syl ⊢ φ → I - J - 1 ∈ ℤ
57 3 zred ⊢ φ → J ∈ ℝ
58 2 zred ⊢ φ → I ∈ ℝ
59 57 58 posdifd ⊢ φ → J < I ↔ 0 < I − J
60 5 59 mpbid ⊢ φ → 0 < I − J
61 0zd ⊢ φ → 0 ∈ ℤ
62 61 54 jca ⊢ φ → 0 ∈ ℤ ∧ I − J ∈ ℤ
63 zltlem1 ⊢ 0 ∈ ℤ ∧ I − J ∈ ℤ → 0 < I − J ↔ 0 ≤ I - J - 1
64 62 63 syl ⊢ φ → 0 < I − J ↔ 0 ≤ I - J - 1
65 60 64 mpbid ⊢ φ → 0 ≤ I - J - 1
66 56 65 jca ⊢ φ → I - J - 1 ∈ ℤ ∧ 0 ≤ I - J - 1
67 elnn0z ⊢ I - J - 1 ∈ ℕ 0 ↔ I - J - 1 ∈ ℤ ∧ 0 ≤ I - J - 1
68 66 67 sylibr ⊢ φ → I - J - 1 ∈ ℕ 0
69 10 68 expcld ⊢ φ → 2 ⋅ N I - J - 1 ∈ ℂ
70 69 10 6 12 divassd ⊢ φ → 2 ⋅ N I - J - 1 ⁢ 2 ⋅ N 2 = 2 ⋅ N I - J - 1 ⁢ 2 ⋅ N 2
71 9 6 12 divcan3d ⊢ φ → 2 ⋅ N 2 = N
72 71 oveq2d ⊢ φ → 2 ⋅ N I - J - 1 ⁢ 2 ⋅ N 2 = 2 ⋅ N I - J - 1 ⋅ N
73 70 72 eqtrd ⊢ φ → 2 ⋅ N I - J - 1 ⁢ 2 ⋅ N 2 = 2 ⋅ N I - J - 1 ⋅ N
74 32 51 73 3eqtrd ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J 2 = 2 ⋅ N I - J - 1 ⋅ N
75 74 oveq1d ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J 2 ⋅ M = 2 ⋅ N I - J - 1 ⋅ N ⋅ M
76 30 75 eqtrd ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J 2 ⋅ M = 2 ⋅ N I - J - 1 ⋅ N ⋅ M
77 2z ⊢ 2 ∈ ℤ
78 77 a1i ⊢ φ → 2 ∈ ℤ
79 78 8 jca ⊢ φ → 2 ∈ ℤ ∧ N ∈ ℤ
80 zmulcl ⊢ 2 ∈ ℤ ∧ N ∈ ℤ → 2 ⋅ N ∈ ℤ
81 79 80 syl ⊢ φ → 2 ⋅ N ∈ ℤ
82 81 68 jca ⊢ φ → 2 ⋅ N ∈ ℤ ∧ I - J - 1 ∈ ℕ 0
83 zexpcl ⊢ 2 ⋅ N ∈ ℤ ∧ I - J - 1 ∈ ℕ 0 → 2 ⋅ N I - J - 1 ∈ ℤ
84 82 83 syl ⊢ φ → 2 ⋅ N I - J - 1 ∈ ℤ
85 84 8 zmulcld ⊢ φ → 2 ⋅ N I - J - 1 ⋅ N ∈ ℤ
86 85 4 zmulcld ⊢ φ → 2 ⋅ N I - J - 1 ⋅ N ⋅ M ∈ ℤ
87 76 86 eqeltrd ⊢ φ → 2 ⋅ N I ⁢ 2 ⋅ N − J 2 ⋅ M ∈ ℤ