Metamath Proof Explorer


Theorem aaliou3lem6

Description: Lemma for aaliou3 . (Contributed by Stefan O'Rear, 16-Nov-2014)

Ref Expression
Hypotheses aaliou3lem.c ⊢ F = a ∈ ℕ ⟼ 2 − a !
aaliou3lem.d ⊢ L = ∑ b ∈ ℕ F ⁡ b
aaliou3lem.e ⊢ H = c ∈ ℕ ⟼ ∑ b = 1 c F ⁡ b
Assertion aaliou3lem6 ⊢ A ∈ ℕ → H ⁡ A ⁢ 2 A ! ∈ ℤ

Proof

Step Hyp Ref Expression
1 aaliou3lem.c ⊢ F = a ∈ ℕ ⟼ 2 − a !
2 aaliou3lem.d ⊢ L = ∑ b ∈ ℕ F ⁡ b
3 aaliou3lem.e ⊢ H = c ∈ ℕ ⟼ ∑ b = 1 c F ⁡ b
4 oveq2 ⊢ c = A → 1 … c = 1 … A
5 4 sumeq1d ⊢ c = A → ∑ b = 1 c F ⁡ b = ∑ b = 1 A F ⁡ b
6 sumex ⊢ ∑ b = 1 A F ⁡ b ∈ V
7 5 3 6 fvmpt ⊢ A ∈ ℕ → H ⁡ A = ∑ b = 1 A F ⁡ b
8 7 oveq1d ⊢ A ∈ ℕ → H ⁡ A ⁢ 2 A ! = ∑ b = 1 A F ⁡ b ⁢ 2 A !
9 fzfid ⊢ A ∈ ℕ → 1 … A ∈ Fin
10 2rp ⊢ 2 ∈ ℝ +
11 nnnn0 ⊢ A ∈ ℕ → A ∈ ℕ 0
12 11 faccld ⊢ A ∈ ℕ → A ! ∈ ℕ
13 12 nnzd ⊢ A ∈ ℕ → A ! ∈ ℤ
14 rpexpcl ⊢ 2 ∈ ℝ + ∧ A ! ∈ ℤ → 2 A ! ∈ ℝ +
15 10 13 14 sylancr ⊢ A ∈ ℕ → 2 A ! ∈ ℝ +
16 15 rpcnd ⊢ A ∈ ℕ → 2 A ! ∈ ℂ
17 elfznn ⊢ b ∈ 1 … A → b ∈ ℕ
18 fveq2 ⊢ a = b → a ! = b !
19 18 negeqd ⊢ a = b → − a ! = − b !
20 19 oveq2d ⊢ a = b → 2 − a ! = 2 − b !
21 ovex ⊢ 2 − b ! ∈ V
22 20 1 21 fvmpt ⊢ b ∈ ℕ → F ⁡ b = 2 − b !
23 17 22 syl ⊢ b ∈ 1 … A → F ⁡ b = 2 − b !
24 23 adantl ⊢ A ∈ ℕ ∧ b ∈ 1 … A → F ⁡ b = 2 − b !
25 17 adantl ⊢ A ∈ ℕ ∧ b ∈ 1 … A → b ∈ ℕ
26 25 nnnn0d ⊢ A ∈ ℕ ∧ b ∈ 1 … A → b ∈ ℕ 0
27 26 faccld ⊢ A ∈ ℕ ∧ b ∈ 1 … A → b ! ∈ ℕ
28 27 nnzd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → b ! ∈ ℤ
29 28 znegcld ⊢ A ∈ ℕ ∧ b ∈ 1 … A → − b ! ∈ ℤ
30 rpexpcl ⊢ 2 ∈ ℝ + ∧ − b ! ∈ ℤ → 2 − b ! ∈ ℝ +
31 10 29 30 sylancr ⊢ A ∈ ℕ ∧ b ∈ 1 … A → 2 − b ! ∈ ℝ +
32 31 rpcnd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → 2 − b ! ∈ ℂ
33 24 32 eqeltrd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → F ⁡ b ∈ ℂ
34 9 16 33 fsummulc1 ⊢ A ∈ ℕ → ∑ b = 1 A F ⁡ b ⁢ 2 A ! = ∑ b = 1 A F ⁡ b ⁢ 2 A !
35 24 oveq1d ⊢ A ∈ ℕ ∧ b ∈ 1 … A → F ⁡ b ⁢ 2 A ! = 2 − b ! ⁢ 2 A !
36 13 adantr ⊢ A ∈ ℕ ∧ b ∈ 1 … A → A ! ∈ ℤ
37 2cnne0 ⊢ 2 ∈ ℂ ∧ 2 ≠ 0
38 expaddz ⊢ 2 ∈ ℂ ∧ 2 ≠ 0 ∧ − b ! ∈ ℤ ∧ A ! ∈ ℤ → 2 - b ! + A ! = 2 − b ! ⁢ 2 A !
39 37 38 mpan ⊢ − b ! ∈ ℤ ∧ A ! ∈ ℤ → 2 - b ! + A ! = 2 − b ! ⁢ 2 A !
40 29 36 39 syl2anc ⊢ A ∈ ℕ ∧ b ∈ 1 … A → 2 - b ! + A ! = 2 − b ! ⁢ 2 A !
41 2z ⊢ 2 ∈ ℤ
42 29 zcnd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → − b ! ∈ ℂ
43 36 zcnd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → A ! ∈ ℂ
44 42 43 addcomd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → - b ! + A ! = A ! + − b !
45 27 nncnd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → b ! ∈ ℂ
46 43 45 negsubd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → A ! + − b ! = A ! − b !
47 44 46 eqtrd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → - b ! + A ! = A ! − b !
48 11 adantr ⊢ A ∈ ℕ ∧ b ∈ 1 … A → A ∈ ℕ 0
49 elfzle2 ⊢ b ∈ 1 … A → b ≤ A
50 49 adantl ⊢ A ∈ ℕ ∧ b ∈ 1 … A → b ≤ A
51 facwordi ⊢ b ∈ ℕ 0 ∧ A ∈ ℕ 0 ∧ b ≤ A → b ! ≤ A !
52 26 48 50 51 syl3anc ⊢ A ∈ ℕ ∧ b ∈ 1 … A → b ! ≤ A !
53 27 nnnn0d ⊢ A ∈ ℕ ∧ b ∈ 1 … A → b ! ∈ ℕ 0
54 48 faccld ⊢ A ∈ ℕ ∧ b ∈ 1 … A → A ! ∈ ℕ
55 54 nnnn0d ⊢ A ∈ ℕ ∧ b ∈ 1 … A → A ! ∈ ℕ 0
56 nn0sub ⊢ b ! ∈ ℕ 0 ∧ A ! ∈ ℕ 0 → b ! ≤ A ! ↔ A ! − b ! ∈ ℕ 0
57 53 55 56 syl2anc ⊢ A ∈ ℕ ∧ b ∈ 1 … A → b ! ≤ A ! ↔ A ! − b ! ∈ ℕ 0
58 52 57 mpbid ⊢ A ∈ ℕ ∧ b ∈ 1 … A → A ! − b ! ∈ ℕ 0
59 47 58 eqeltrd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → - b ! + A ! ∈ ℕ 0
60 zexpcl ⊢ 2 ∈ ℤ ∧ - b ! + A ! ∈ ℕ 0 → 2 - b ! + A ! ∈ ℤ
61 41 59 60 sylancr ⊢ A ∈ ℕ ∧ b ∈ 1 … A → 2 - b ! + A ! ∈ ℤ
62 40 61 eqeltrrd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → 2 − b ! ⁢ 2 A ! ∈ ℤ
63 35 62 eqeltrd ⊢ A ∈ ℕ ∧ b ∈ 1 … A → F ⁡ b ⁢ 2 A ! ∈ ℤ
64 9 63 fsumzcl ⊢ A ∈ ℕ → ∑ b = 1 A F ⁡ b ⁢ 2 A ! ∈ ℤ
65 34 64 eqeltrd ⊢ A ∈ ℕ → ∑ b = 1 A F ⁡ b ⁢ 2 A ! ∈ ℤ
66 8 65 eqeltrd ⊢ A ∈ ℕ → H ⁡ A ⁢ 2 A ! ∈ ℤ