Theorem bitsinv1 16333

Description: There is an explicit inverse to the bits function for nonnegative integers (which can be extended to negative integers using bitscmp 16329), part 1. (Contributed by Mario Carneiro, 7-Sep-2016.)

Assertion

Ref	Expression
bitsinv1	⊢ (𝑁 ∈ ℕ0 → Σ𝑛 ∈ (bits‘𝑁)(2↑𝑛) = 𝑁)

Distinct variable group:   𝑛,𝑁

Proof of Theorem bitsinv1

Dummy variables 𝑘 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq2 7370	. . . . . . . . . . 11 ⊢ (𝑥 = 0 → (0..^𝑥) = (0..^0))
2		fzo0 13606	. . . . . . . . . . 11 ⊢ (0..^0) = ∅
3	1, 2	eqtrdi 2787	. . . . . . . . . 10 ⊢ (𝑥 = 0 → (0..^𝑥) = ∅)
4	3	ineq2d 4177	. . . . . . . . 9 ⊢ (𝑥 = 0 → ((bits‘𝑁) ∩ (0..^𝑥)) = ((bits‘𝑁) ∩ ∅))
5		in0 4356	. . . . . . . . 9 ⊢ ((bits‘𝑁) ∩ ∅) = ∅
6	4, 5	eqtrdi 2787	. . . . . . . 8 ⊢ (𝑥 = 0 → ((bits‘𝑁) ∩ (0..^𝑥)) = ∅)
7	6	sumeq1d 15597	. . . . . . 7 ⊢ (𝑥 = 0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = Σ𝑛 ∈ ∅ (2↑𝑛))
8		sum0 15617	. . . . . . 7 ⊢ Σ𝑛 ∈ ∅ (2↑𝑛) = 0
9	7, 8	eqtrdi 2787	. . . . . 6 ⊢ (𝑥 = 0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = 0)
10		oveq2 7370	. . . . . . . 8 ⊢ (𝑥 = 0 → (2↑𝑥) = (2↑0))
11		2cn 12237	. . . . . . . . 9 ⊢ 2 ∈ ℂ
12		exp0 13981	. . . . . . . . 9 ⊢ (2 ∈ ℂ → (2↑0) = 1)
13	11, 12	ax-mp 5	. . . . . . . 8 ⊢ (2↑0) = 1
14	10, 13	eqtrdi 2787	. . . . . . 7 ⊢ (𝑥 = 0 → (2↑𝑥) = 1)
15	14	oveq2d 7378	. . . . . 6 ⊢ (𝑥 = 0 → (𝑁 mod (2↑𝑥)) = (𝑁 mod 1))
16	9, 15	eqeq12d 2747	. . . . 5 ⊢ (𝑥 = 0 → (Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = (𝑁 mod (2↑𝑥)) ↔ 0 = (𝑁 mod 1)))
17	16	imbi2d 340	. . . 4 ⊢ (𝑥 = 0 → ((𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = (𝑁 mod (2↑𝑥))) ↔ (𝑁 ∈ ℕ0 → 0 = (𝑁 mod 1))))
18		oveq2 7370	. . . . . . . 8 ⊢ (𝑥 = 𝑘 → (0..^𝑥) = (0..^𝑘))
19	18	ineq2d 4177	. . . . . . 7 ⊢ (𝑥 = 𝑘 → ((bits‘𝑁) ∩ (0..^𝑥)) = ((bits‘𝑁) ∩ (0..^𝑘)))
20	19	sumeq1d 15597	. . . . . 6 ⊢ (𝑥 = 𝑘 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑘))(2↑𝑛))
21		oveq2 7370	. . . . . . 7 ⊢ (𝑥 = 𝑘 → (2↑𝑥) = (2↑𝑘))
22	21	oveq2d 7378	. . . . . 6 ⊢ (𝑥 = 𝑘 → (𝑁 mod (2↑𝑥)) = (𝑁 mod (2↑𝑘)))
23	20, 22	eqeq12d 2747	. . . . 5 ⊢ (𝑥 = 𝑘 → (Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = (𝑁 mod (2↑𝑥)) ↔ Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑘))(2↑𝑛) = (𝑁 mod (2↑𝑘))))
24	23	imbi2d 340	. . . 4 ⊢ (𝑥 = 𝑘 → ((𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = (𝑁 mod (2↑𝑥))) ↔ (𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑘))(2↑𝑛) = (𝑁 mod (2↑𝑘)))))
25		oveq2 7370	. . . . . . . 8 ⊢ (𝑥 = (𝑘 + 1) → (0..^𝑥) = (0..^(𝑘 + 1)))
26	25	ineq2d 4177	. . . . . . 7 ⊢ (𝑥 = (𝑘 + 1) → ((bits‘𝑁) ∩ (0..^𝑥)) = ((bits‘𝑁) ∩ (0..^(𝑘 + 1))))
27	26	sumeq1d 15597	. . . . . 6 ⊢ (𝑥 = (𝑘 + 1) → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))(2↑𝑛))
28		oveq2 7370	. . . . . . 7 ⊢ (𝑥 = (𝑘 + 1) → (2↑𝑥) = (2↑(𝑘 + 1)))
29	28	oveq2d 7378	. . . . . 6 ⊢ (𝑥 = (𝑘 + 1) → (𝑁 mod (2↑𝑥)) = (𝑁 mod (2↑(𝑘 + 1))))
30	27, 29	eqeq12d 2747	. . . . 5 ⊢ (𝑥 = (𝑘 + 1) → (Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = (𝑁 mod (2↑𝑥)) ↔ Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))(2↑𝑛) = (𝑁 mod (2↑(𝑘 + 1)))))
31	30	imbi2d 340	. . . 4 ⊢ (𝑥 = (𝑘 + 1) → ((𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = (𝑁 mod (2↑𝑥))) ↔ (𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))(2↑𝑛) = (𝑁 mod (2↑(𝑘 + 1))))))
32		oveq2 7370	. . . . . . . 8 ⊢ (𝑥 = 𝑁 → (0..^𝑥) = (0..^𝑁))
33	32	ineq2d 4177	. . . . . . 7 ⊢ (𝑥 = 𝑁 → ((bits‘𝑁) ∩ (0..^𝑥)) = ((bits‘𝑁) ∩ (0..^𝑁)))
34	33	sumeq1d 15597	. . . . . 6 ⊢ (𝑥 = 𝑁 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑁))(2↑𝑛))
35		oveq2 7370	. . . . . . 7 ⊢ (𝑥 = 𝑁 → (2↑𝑥) = (2↑𝑁))
36	35	oveq2d 7378	. . . . . 6 ⊢ (𝑥 = 𝑁 → (𝑁 mod (2↑𝑥)) = (𝑁 mod (2↑𝑁)))
37	34, 36	eqeq12d 2747	. . . . 5 ⊢ (𝑥 = 𝑁 → (Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = (𝑁 mod (2↑𝑥)) ↔ Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑁))(2↑𝑛) = (𝑁 mod (2↑𝑁))))
38	37	imbi2d 340	. . . 4 ⊢ (𝑥 = 𝑁 → ((𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑥))(2↑𝑛) = (𝑁 mod (2↑𝑥))) ↔ (𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑁))(2↑𝑛) = (𝑁 mod (2↑𝑁)))))
39		nn0z 12533	. . . . . 6 ⊢ (𝑁 ∈ ℕ0 → 𝑁 ∈ ℤ)
40		zmod10 13802	. . . . . 6 ⊢ (𝑁 ∈ ℤ → (𝑁 mod 1) = 0)
41	39, 40	syl 17	. . . . 5 ⊢ (𝑁 ∈ ℕ0 → (𝑁 mod 1) = 0)
42	41	eqcomd 2737	. . . 4 ⊢ (𝑁 ∈ ℕ0 → 0 = (𝑁 mod 1))
43		oveq1 7369	. . . . . . 7 ⊢ (Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑘))(2↑𝑛) = (𝑁 mod (2↑𝑘)) → (Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑘))(2↑𝑛) + Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛)) = ((𝑁 mod (2↑𝑘)) + Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛)))
44		fzonel 13596	. . . . . . . . . . . . 13 ⊢ ¬ 𝑘 ∈ (0..^𝑘)
45	44	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ¬ 𝑘 ∈ (0..^𝑘))
46		disjsn 4677	. . . . . . . . . . . 12 ⊢ (((0..^𝑘) ∩ {𝑘}) = ∅ ↔ ¬ 𝑘 ∈ (0..^𝑘))
47	45, 46	sylibr 233	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((0..^𝑘) ∩ {𝑘}) = ∅)
48	47	ineq2d 4177	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((bits‘𝑁) ∩ ((0..^𝑘) ∩ {𝑘})) = ((bits‘𝑁) ∩ ∅))
49		inindi 4191	. . . . . . . . . 10 ⊢ ((bits‘𝑁) ∩ ((0..^𝑘) ∩ {𝑘})) = (((bits‘𝑁) ∩ (0..^𝑘)) ∩ ((bits‘𝑁) ∩ {𝑘}))
50	48, 49, 5	3eqtr3g 2794	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (((bits‘𝑁) ∩ (0..^𝑘)) ∩ ((bits‘𝑁) ∩ {𝑘})) = ∅)
51		simpr 485	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → 𝑘 ∈ ℕ0)
52		nn0uz 12814	. . . . . . . . . . . . 13 ⊢ ℕ0 = (ℤ≥‘0)
53	51, 52	eleqtrdi 2842	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → 𝑘 ∈ (ℤ≥‘0))
54		fzosplitsn 13690	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (ℤ≥‘0) → (0..^(𝑘 + 1)) = ((0..^𝑘) ∪ {𝑘}))
55	53, 54	syl 17	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (0..^(𝑘 + 1)) = ((0..^𝑘) ∪ {𝑘}))
56	55	ineq2d 4177	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((bits‘𝑁) ∩ (0..^(𝑘 + 1))) = ((bits‘𝑁) ∩ ((0..^𝑘) ∪ {𝑘})))
57		indi 4238	. . . . . . . . . 10 ⊢ ((bits‘𝑁) ∩ ((0..^𝑘) ∪ {𝑘})) = (((bits‘𝑁) ∩ (0..^𝑘)) ∪ ((bits‘𝑁) ∩ {𝑘}))
58	56, 57	eqtrdi 2787	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((bits‘𝑁) ∩ (0..^(𝑘 + 1))) = (((bits‘𝑁) ∩ (0..^𝑘)) ∪ ((bits‘𝑁) ∩ {𝑘})))
59		fzofi 13889	. . . . . . . . . . 11 ⊢ (0..^(𝑘 + 1)) ∈ Fin
60		inss2 4194	. . . . . . . . . . 11 ⊢ ((bits‘𝑁) ∩ (0..^(𝑘 + 1))) ⊆ (0..^(𝑘 + 1))
61		ssfi 9124	. . . . . . . . . . 11 ⊢ (((0..^(𝑘 + 1)) ∈ Fin ∧ ((bits‘𝑁) ∩ (0..^(𝑘 + 1))) ⊆ (0..^(𝑘 + 1))) → ((bits‘𝑁) ∩ (0..^(𝑘 + 1))) ∈ Fin)
62	59, 60, 61	mp2an 690	. . . . . . . . . 10 ⊢ ((bits‘𝑁) ∩ (0..^(𝑘 + 1))) ∈ Fin
63	62	a1i 11	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((bits‘𝑁) ∩ (0..^(𝑘 + 1))) ∈ Fin)
64		2nn 12235	. . . . . . . . . . . 12 ⊢ 2 ∈ ℕ
65	64	a1i 11	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))) → 2 ∈ ℕ)
66		simpr 485	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))) → 𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1))))
67	66	elin2d 4164	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))) → 𝑛 ∈ (0..^(𝑘 + 1)))
68		elfzouz 13586	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (0..^(𝑘 + 1)) → 𝑛 ∈ (ℤ≥‘0))
69	67, 68	syl 17	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))) → 𝑛 ∈ (ℤ≥‘0))
70	69, 52	eleqtrrdi 2843	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))) → 𝑛 ∈ ℕ0)
71	65, 70	nnexpcld 14158	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))) → (2↑𝑛) ∈ ℕ)
72	71	nncnd 12178	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))) → (2↑𝑛) ∈ ℂ)
73	50, 58, 63, 72	fsumsplit 15637	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))(2↑𝑛) = (Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑘))(2↑𝑛) + Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛)))
74		bitsinv1lem 16332	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℤ ∧ 𝑘 ∈ ℕ0) → (𝑁 mod (2↑(𝑘 + 1))) = ((𝑁 mod (2↑𝑘)) + if(𝑘 ∈ (bits‘𝑁), (2↑𝑘), 0)))
75	39, 74	sylan 580	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑁 mod (2↑(𝑘 + 1))) = ((𝑁 mod (2↑𝑘)) + if(𝑘 ∈ (bits‘𝑁), (2↑𝑘), 0)))
76		eqeq2 2743	. . . . . . . . . . 11 ⊢ ((2↑𝑘) = if(𝑘 ∈ (bits‘𝑁), (2↑𝑘), 0) → (Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛) = (2↑𝑘) ↔ Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛) = if(𝑘 ∈ (bits‘𝑁), (2↑𝑘), 0)))
77		eqeq2 2743	. . . . . . . . . . 11 ⊢ (0 = if(𝑘 ∈ (bits‘𝑁), (2↑𝑘), 0) → (Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛) = 0 ↔ Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛) = if(𝑘 ∈ (bits‘𝑁), (2↑𝑘), 0)))
78		simpr 485	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑘 ∈ (bits‘𝑁)) → 𝑘 ∈ (bits‘𝑁))
79	78	snssd 4774	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑘 ∈ (bits‘𝑁)) → {𝑘} ⊆ (bits‘𝑁))
80		sseqin2 4180	. . . . . . . . . . . . . 14 ⊢ ({𝑘} ⊆ (bits‘𝑁) ↔ ((bits‘𝑁) ∩ {𝑘}) = {𝑘})
81	79, 80	sylib 217	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑘 ∈ (bits‘𝑁)) → ((bits‘𝑁) ∩ {𝑘}) = {𝑘})
82	81	sumeq1d 15597	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑘 ∈ (bits‘𝑁)) → Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛) = Σ𝑛 ∈ {𝑘} (2↑𝑛))
83		simplr 767	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑘 ∈ (bits‘𝑁)) → 𝑘 ∈ ℕ0)
84	64	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑘 ∈ (bits‘𝑁)) → 2 ∈ ℕ)
85	84, 83	nnexpcld 14158	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑘 ∈ (bits‘𝑁)) → (2↑𝑘) ∈ ℕ)
86	85	nncnd 12178	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑘 ∈ (bits‘𝑁)) → (2↑𝑘) ∈ ℂ)
87		oveq2 7370	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑘 → (2↑𝑛) = (2↑𝑘))
88	87	sumsn 15642	. . . . . . . . . . . . 13 ⊢ ((𝑘 ∈ ℕ0 ∧ (2↑𝑘) ∈ ℂ) → Σ𝑛 ∈ {𝑘} (2↑𝑛) = (2↑𝑘))
89	83, 86, 88	syl2anc 584	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑘 ∈ (bits‘𝑁)) → Σ𝑛 ∈ {𝑘} (2↑𝑛) = (2↑𝑘))
90	82, 89	eqtrd 2771	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ 𝑘 ∈ (bits‘𝑁)) → Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛) = (2↑𝑘))
91		simpr 485	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ∈ (bits‘𝑁)) → ¬ 𝑘 ∈ (bits‘𝑁))
92		disjsn 4677	. . . . . . . . . . . . . 14 ⊢ (((bits‘𝑁) ∩ {𝑘}) = ∅ ↔ ¬ 𝑘 ∈ (bits‘𝑁))
93	91, 92	sylibr 233	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ∈ (bits‘𝑁)) → ((bits‘𝑁) ∩ {𝑘}) = ∅)
94	93	sumeq1d 15597	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ∈ (bits‘𝑁)) → Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛) = Σ𝑛 ∈ ∅ (2↑𝑛))
95	94, 8	eqtrdi 2787	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ∈ (bits‘𝑁)) → Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛) = 0)
96	76, 77, 90, 95	ifbothda 4529	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛) = if(𝑘 ∈ (bits‘𝑁), (2↑𝑘), 0))
97	96	oveq2d 7378	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → ((𝑁 mod (2↑𝑘)) + Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛)) = ((𝑁 mod (2↑𝑘)) + if(𝑘 ∈ (bits‘𝑁), (2↑𝑘), 0)))
98	75, 97	eqtr4d 2774	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (𝑁 mod (2↑(𝑘 + 1))) = ((𝑁 mod (2↑𝑘)) + Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛)))
99	73, 98	eqeq12d 2747	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))(2↑𝑛) = (𝑁 mod (2↑(𝑘 + 1))) ↔ (Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑘))(2↑𝑛) + Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛)) = ((𝑁 mod (2↑𝑘)) + Σ𝑛 ∈ ((bits‘𝑁) ∩ {𝑘})(2↑𝑛))))
100	43, 99	imbitrrid 245	. . . . . 6 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑘 ∈ ℕ0) → (Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑘))(2↑𝑛) = (𝑁 mod (2↑𝑘)) → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))(2↑𝑛) = (𝑁 mod (2↑(𝑘 + 1)))))
101	100	expcom 414	. . . . 5 ⊢ (𝑘 ∈ ℕ0 → (𝑁 ∈ ℕ0 → (Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑘))(2↑𝑛) = (𝑁 mod (2↑𝑘)) → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))(2↑𝑛) = (𝑁 mod (2↑(𝑘 + 1))))))
102	101	a2d 29	. . . 4 ⊢ (𝑘 ∈ ℕ0 → ((𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑘))(2↑𝑛) = (𝑁 mod (2↑𝑘))) → (𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^(𝑘 + 1)))(2↑𝑛) = (𝑁 mod (2↑(𝑘 + 1))))))
103	17, 24, 31, 38, 42, 102	nn0ind 12607	. . 3 ⊢ (𝑁 ∈ ℕ0 → (𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑁))(2↑𝑛) = (𝑁 mod (2↑𝑁))))
104	103	pm2.43i 52	. 2 ⊢ (𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑁))(2↑𝑛) = (𝑁 mod (2↑𝑁)))
105		id 22	. . . . . . 7 ⊢ (𝑁 ∈ ℕ0 → 𝑁 ∈ ℕ0)
106	105, 52	eleqtrdi 2842	. . . . . 6 ⊢ (𝑁 ∈ ℕ0 → 𝑁 ∈ (ℤ≥‘0))
107	64	a1i 11	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ0 → 2 ∈ ℕ)
108	107, 105	nnexpcld 14158	. . . . . . 7 ⊢ (𝑁 ∈ ℕ0 → (2↑𝑁) ∈ ℕ)
109	108	nnzd 12535	. . . . . 6 ⊢ (𝑁 ∈ ℕ0 → (2↑𝑁) ∈ ℤ)
110		2z 12544	. . . . . . . 8 ⊢ 2 ∈ ℤ
111		uzid 12787	. . . . . . . 8 ⊢ (2 ∈ ℤ → 2 ∈ (ℤ≥‘2))
112	110, 111	ax-mp 5	. . . . . . 7 ⊢ 2 ∈ (ℤ≥‘2)
113		bernneq3 14144	. . . . . . 7 ⊢ ((2 ∈ (ℤ≥‘2) ∧ 𝑁 ∈ ℕ0) → 𝑁 < (2↑𝑁))
114	112, 113	mpan 688	. . . . . 6 ⊢ (𝑁 ∈ ℕ0 → 𝑁 < (2↑𝑁))
115		elfzo2 13585	. . . . . 6 ⊢ (𝑁 ∈ (0..^(2↑𝑁)) ↔ (𝑁 ∈ (ℤ≥‘0) ∧ (2↑𝑁) ∈ ℤ ∧ 𝑁 < (2↑𝑁)))
116	106, 109, 114, 115	syl3anbrc 1343	. . . . 5 ⊢ (𝑁 ∈ ℕ0 → 𝑁 ∈ (0..^(2↑𝑁)))
117		bitsfzo 16326	. . . . . 6 ⊢ ((𝑁 ∈ ℤ ∧ 𝑁 ∈ ℕ0) → (𝑁 ∈ (0..^(2↑𝑁)) ↔ (bits‘𝑁) ⊆ (0..^𝑁)))
118	39, 105, 117	syl2anc 584	. . . . 5 ⊢ (𝑁 ∈ ℕ0 → (𝑁 ∈ (0..^(2↑𝑁)) ↔ (bits‘𝑁) ⊆ (0..^𝑁)))
119	116, 118	mpbid 231	. . . 4 ⊢ (𝑁 ∈ ℕ0 → (bits‘𝑁) ⊆ (0..^𝑁))
120		df-ss 3930	. . . 4 ⊢ ((bits‘𝑁) ⊆ (0..^𝑁) ↔ ((bits‘𝑁) ∩ (0..^𝑁)) = (bits‘𝑁))
121	119, 120	sylib 217	. . 3 ⊢ (𝑁 ∈ ℕ0 → ((bits‘𝑁) ∩ (0..^𝑁)) = (bits‘𝑁))
122	121	sumeq1d 15597	. 2 ⊢ (𝑁 ∈ ℕ0 → Σ𝑛 ∈ ((bits‘𝑁) ∩ (0..^𝑁))(2↑𝑛) = Σ𝑛 ∈ (bits‘𝑁)(2↑𝑛))
123		nn0re 12431	. . 3 ⊢ (𝑁 ∈ ℕ0 → 𝑁 ∈ ℝ)
124		2rp 12929	. . . . 5 ⊢ 2 ∈ ℝ+
125	124	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ0 → 2 ∈ ℝ+)
126	125, 39	rpexpcld 14160	. . 3 ⊢ (𝑁 ∈ ℕ0 → (2↑𝑁) ∈ ℝ+)
127		nn0ge0 12447	. . 3 ⊢ (𝑁 ∈ ℕ0 → 0 ≤ 𝑁)
128		modid 13811	. . 3 ⊢ (((𝑁 ∈ ℝ ∧ (2↑𝑁) ∈ ℝ+) ∧ (0 ≤ 𝑁 ∧ 𝑁 < (2↑𝑁))) → (𝑁 mod (2↑𝑁)) = 𝑁)
129	123, 126, 127, 114, 128	syl22anc 837	. 2 ⊢ (𝑁 ∈ ℕ0 → (𝑁 mod (2↑𝑁)) = 𝑁)
130	104, 122, 129	3eqtr3d 2779	1 ⊢ (𝑁 ∈ ℕ0 → Σ𝑛 ∈ (bits‘𝑁)(2↑𝑛) = 𝑁)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1541   ∈ wcel 2106   ∪ cun 3911   ∩ cin 3912   ⊆ wss 3913  ∅c0 4287  ifcif 4491  {csn 4591   class class class wbr 5110  ‘cfv 6501  (class class class)co 7362  Fincfn 8890  ℂcc 11058  ℝcr 11059  0cc0 11060  1c1 11061   + caddc 11063   < clt 11198   ≤ cle 11199  ℕcn 12162  2c2 12217  ℕ₀cn0 12422  ℤcz 12508  ℤ_≥cuz 12772  ℝ⁺crp 12924  ..^cfzo 13577   mod cmo 13784  ↑cexp 13977  Σcsu 15582  bitscbits 16310

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-inf2 9586  ax-cnex 11116  ax-resscn 11117  ax-1cn 11118  ax-icn 11119  ax-addcl 11120  ax-addrcl 11121  ax-mulcl 11122  ax-mulrcl 11123  ax-mulcom 11124  ax-addass 11125  ax-mulass 11126  ax-distr 11127  ax-i2m1 11128  ax-1ne0 11129  ax-1rid 11130  ax-rnegex 11131  ax-rrecex 11132  ax-cnre 11133  ax-pre-lttri 11134  ax-pre-lttrn 11135  ax-pre-ltadd 11136  ax-pre-mulgt0 11137  ax-pre-sup 11138

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3351  df-reu 3352  df-rab 3406  df-v 3448  df-sbc 3743  df-csb 3859  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3932  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-int 4913  df-iun 4961  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-se 5594  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-isom 6510  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-om 7808  df-1st 7926  df-2nd 7927  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-1o 8417  df-er 8655  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-sup 9387  df-inf 9388  df-oi 9455  df-card 9884  df-pnf 11200  df-mnf 11201  df-xr 11202  df-ltxr 11203  df-le 11204  df-sub 11396  df-neg 11397  df-div 11822  df-nn 12163  df-2 12225  df-3 12226  df-n0 12423  df-z 12509  df-uz 12773  df-rp 12925  df-fz 13435  df-fzo 13578  df-fl 13707  df-mod 13785  df-seq 13917  df-exp 13978  df-hash 14241  df-cj 14996  df-re 14997  df-im 14998  df-sqrt 15132  df-abs 15133  df-clim 15382  df-sum 15583  df-dvds 16148  df-bits 16313

This theorem is referenced by:  bitsinv2  16334  bitsf1ocnv  16335  eulerpartlemgc  33051  eulerpartlemgs2  33069