sadaddlem - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > sadaddlem		Structured version Visualization version GIF version

Theorem sadaddlem 15652

Description: Lemma for sadadd 15653. (Contributed by Mario Carneiro, 9-Sep-2016.)

**Hypotheses**
Ref	Expression
sadaddlem.c	⊢ 𝐶 = seq0((𝑐 ∈ 2_o, 𝑚 ∈ ℕ₀ ↦ if(cadd(𝑚 ∈ (bits‘𝐴), 𝑚 ∈ (bits‘𝐵), ∅ ∈ 𝑐), 1_o, ∅)), (𝑛 ∈ ℕ₀ ↦ if(𝑛 = 0, ∅, (𝑛 − 1))))
sadaddlem.k	⊢ 𝐾 = ^◡(bits ↾ ℕ₀)
sadaddlem.1	⊢ (𝜑 → 𝐴 ∈ ℤ)
sadaddlem.2	⊢ (𝜑 → 𝐵 ∈ ℤ)
sadaddlem.3	⊢ (𝜑 → 𝑁 ∈ ℕ₀)

**Assertion**
Ref	Expression
sadaddlem	⊢ (𝜑 → (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) = (bits‘((𝐴 + 𝐵) mod (2↑𝑁))))

Distinct variable groups: 𝑚,𝑐,𝑛 𝐴,𝑐,𝑚 𝐵,𝑐,𝑚 𝑛,𝑁 Allowed substitution hints: 𝜑(𝑚,𝑛,𝑐) 𝐴(𝑛) 𝐵(𝑛) 𝐶(𝑚,𝑛,𝑐) 𝐾(𝑚,𝑛,𝑐) 𝑁(𝑚,𝑐)

**Proof of Theorem sadaddlem**
Step	Hyp	Ref	Expression
1		sadaddlem.k	. . . . . . . . . . . . 13 ⊢ 𝐾 = ^◡(bits ↾ ℕ₀)
2	1	fveq1i 6546	. . . . . . . . . . . 12 ⊢ (𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) = (^◡(bits ↾ ℕ₀)‘((bits‘𝐴) ∩ (0..^𝑁)))
3		sadaddlem.1	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 ∈ ℤ)
4		2nn 11564	. . . . . . . . . . . . . . . . . 18 ⊢ 2 ∈ ℕ
5	4	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 2 ∈ ℕ)
6		sadaddlem.3	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
7	5, 6	nnexpcld 13460	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (2↑𝑁) ∈ ℕ)
8	3, 7	zmodcld 13114	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 mod (2↑𝑁)) ∈ ℕ₀)
9	8	fvresd 6565	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((bits ↾ ℕ₀)‘(𝐴 mod (2↑𝑁))) = (bits‘(𝐴 mod (2↑𝑁))))
10		bitsmod 15622	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ₀) → (bits‘(𝐴 mod (2↑𝑁))) = ((bits‘𝐴) ∩ (0..^𝑁)))
11	3, 6, 10	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (bits‘(𝐴 mod (2↑𝑁))) = ((bits‘𝐴) ∩ (0..^𝑁)))
12	9, 11	eqtrd 2833	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((bits ↾ ℕ₀)‘(𝐴 mod (2↑𝑁))) = ((bits‘𝐴) ∩ (0..^𝑁)))
13		bitsf1o 15631	. . . . . . . . . . . . . 14 ⊢ (bits ↾ ℕ₀):ℕ₀–1-1-onto→(𝒫 ℕ₀ ∩ Fin)
14		f1ocnvfv 6907	. . . . . . . . . . . . . 14 ⊢ (((bits ↾ ℕ₀):ℕ₀–1-1-onto→(𝒫 ℕ₀ ∩ Fin) ∧ (𝐴 mod (2↑𝑁)) ∈ ℕ₀) → (((bits ↾ ℕ₀)‘(𝐴 mod (2↑𝑁))) = ((bits‘𝐴) ∩ (0..^𝑁)) → (^◡(bits ↾ ℕ₀)‘((bits‘𝐴) ∩ (0..^𝑁))) = (𝐴 mod (2↑𝑁))))
15	13, 8, 14	sylancr 587	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((bits ↾ ℕ₀)‘(𝐴 mod (2↑𝑁))) = ((bits‘𝐴) ∩ (0..^𝑁)) → (^◡(bits ↾ ℕ₀)‘((bits‘𝐴) ∩ (0..^𝑁))) = (𝐴 mod (2↑𝑁))))
16	12, 15	mpd 15	. . . . . . . . . . . 12 ⊢ (𝜑 → (^◡(bits ↾ ℕ₀)‘((bits‘𝐴) ∩ (0..^𝑁))) = (𝐴 mod (2↑𝑁)))
17	2, 16	syl5eq 2845	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) = (𝐴 mod (2↑𝑁)))
18	17	oveq2d 7039	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) = (𝐴 − (𝐴 mod (2↑𝑁))))
19	18	oveq1d 7038	. . . . . . . . 9 ⊢ (𝜑 → ((𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) / (2↑𝑁)) = ((𝐴 − (𝐴 mod (2↑𝑁))) / (2↑𝑁)))
20	3	zred 11941	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℝ)
21	7	nnrpd 12283	. . . . . . . . . 10 ⊢ (𝜑 → (2↑𝑁) ∈ ℝ⁺)
22		moddifz 13105	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ ∧ (2↑𝑁) ∈ ℝ⁺) → ((𝐴 − (𝐴 mod (2↑𝑁))) / (2↑𝑁)) ∈ ℤ)
23	20, 21, 22	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → ((𝐴 − (𝐴 mod (2↑𝑁))) / (2↑𝑁)) ∈ ℤ)
24	19, 23	eqeltrd 2885	. . . . . . . 8 ⊢ (𝜑 → ((𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) / (2↑𝑁)) ∈ ℤ)
25	7	nnzd 11940	. . . . . . . . 9 ⊢ (𝜑 → (2↑𝑁) ∈ ℤ)
26	7	nnne0d 11541	. . . . . . . . 9 ⊢ (𝜑 → (2↑𝑁) ≠ 0)
27		inss1 4131	. . . . . . . . . . . . . 14 ⊢ ((bits‘𝐴) ∩ (0..^𝑁)) ⊆ (bits‘𝐴)
28		bitsss 15612	. . . . . . . . . . . . . 14 ⊢ (bits‘𝐴) ⊆ ℕ₀
29	27, 28	sstri 3904	. . . . . . . . . . . . 13 ⊢ ((bits‘𝐴) ∩ (0..^𝑁)) ⊆ ℕ₀
30		fzofi 13196	. . . . . . . . . . . . . 14 ⊢ (0..^𝑁) ∈ Fin
31		inss2 4132	. . . . . . . . . . . . . 14 ⊢ ((bits‘𝐴) ∩ (0..^𝑁)) ⊆ (0..^𝑁)
32		ssfi 8591	. . . . . . . . . . . . . 14 ⊢ (((0..^𝑁) ∈ Fin ∧ ((bits‘𝐴) ∩ (0..^𝑁)) ⊆ (0..^𝑁)) → ((bits‘𝐴) ∩ (0..^𝑁)) ∈ Fin)
33	30, 31, 32	mp2an 688	. . . . . . . . . . . . 13 ⊢ ((bits‘𝐴) ∩ (0..^𝑁)) ∈ Fin
34		elfpw 8679	. . . . . . . . . . . . 13 ⊢ (((bits‘𝐴) ∩ (0..^𝑁)) ∈ (𝒫 ℕ₀ ∩ Fin) ↔ (((bits‘𝐴) ∩ (0..^𝑁)) ⊆ ℕ₀ ∧ ((bits‘𝐴) ∩ (0..^𝑁)) ∈ Fin))
35	29, 33, 34	mpbir2an 707	. . . . . . . . . . . 12 ⊢ ((bits‘𝐴) ∩ (0..^𝑁)) ∈ (𝒫 ℕ₀ ∩ Fin)
36		f1ocnv 6502	. . . . . . . . . . . . . . 15 ⊢ ((bits ↾ ℕ₀):ℕ₀–1-1-onto→(𝒫 ℕ₀ ∩ Fin) → ^◡(bits ↾ ℕ₀):(𝒫 ℕ₀ ∩ Fin)–1-1-onto→ℕ₀)
37		f1of 6490	. . . . . . . . . . . . . . 15 ⊢ (^◡(bits ↾ ℕ₀):(𝒫 ℕ₀ ∩ Fin)–1-1-onto→ℕ₀ → ^◡(bits ↾ ℕ₀):(𝒫 ℕ₀ ∩ Fin)⟶ℕ₀)
38	13, 36, 37	mp2b 10	. . . . . . . . . . . . . 14 ⊢ ^◡(bits ↾ ℕ₀):(𝒫 ℕ₀ ∩ Fin)⟶ℕ₀
39	1	feq1i 6380	. . . . . . . . . . . . . 14 ⊢ (𝐾:(𝒫 ℕ₀ ∩ Fin)⟶ℕ₀ ↔ ^◡(bits ↾ ℕ₀):(𝒫 ℕ₀ ∩ Fin)⟶ℕ₀)
40	38, 39	mpbir 232	. . . . . . . . . . . . 13 ⊢ 𝐾:(𝒫 ℕ₀ ∩ Fin)⟶ℕ₀
41	40	ffvelrni 6722	. . . . . . . . . . . 12 ⊢ (((bits‘𝐴) ∩ (0..^𝑁)) ∈ (𝒫 ℕ₀ ∩ Fin) → (𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) ∈ ℕ₀)
42	35, 41	mp1i 13	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) ∈ ℕ₀)
43	42	nn0zd 11939	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) ∈ ℤ)
44	3, 43	zsubcld 11946	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) ∈ ℤ)
45		dvdsval2 15447	. . . . . . . . 9 ⊢ (((2↑𝑁) ∈ ℤ ∧ (2↑𝑁) ≠ 0 ∧ (𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) ∈ ℤ) → ((2↑𝑁) ∥ (𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) ↔ ((𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) / (2↑𝑁)) ∈ ℤ))
46	25, 26, 44, 45	syl3anc 1364	. . . . . . . 8 ⊢ (𝜑 → ((2↑𝑁) ∥ (𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) ↔ ((𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) / (2↑𝑁)) ∈ ℤ))
47	24, 46	mpbird 258	. . . . . . 7 ⊢ (𝜑 → (2↑𝑁) ∥ (𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))))
48	1	fveq1i 6546	. . . . . . . . . . . 12 ⊢ (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))) = (^◡(bits ↾ ℕ₀)‘((bits‘𝐵) ∩ (0..^𝑁)))
49		sadaddlem.2	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐵 ∈ ℤ)
50	49, 7	zmodcld 13114	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐵 mod (2↑𝑁)) ∈ ℕ₀)
51	50	fvresd 6565	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((bits ↾ ℕ₀)‘(𝐵 mod (2↑𝑁))) = (bits‘(𝐵 mod (2↑𝑁))))
52		bitsmod 15622	. . . . . . . . . . . . . . 15 ⊢ ((𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ₀) → (bits‘(𝐵 mod (2↑𝑁))) = ((bits‘𝐵) ∩ (0..^𝑁)))
53	49, 6, 52	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (bits‘(𝐵 mod (2↑𝑁))) = ((bits‘𝐵) ∩ (0..^𝑁)))
54	51, 53	eqtrd 2833	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((bits ↾ ℕ₀)‘(𝐵 mod (2↑𝑁))) = ((bits‘𝐵) ∩ (0..^𝑁)))
55		f1ocnvfv 6907	. . . . . . . . . . . . . 14 ⊢ (((bits ↾ ℕ₀):ℕ₀–1-1-onto→(𝒫 ℕ₀ ∩ Fin) ∧ (𝐵 mod (2↑𝑁)) ∈ ℕ₀) → (((bits ↾ ℕ₀)‘(𝐵 mod (2↑𝑁))) = ((bits‘𝐵) ∩ (0..^𝑁)) → (^◡(bits ↾ ℕ₀)‘((bits‘𝐵) ∩ (0..^𝑁))) = (𝐵 mod (2↑𝑁))))
56	13, 50, 55	sylancr 587	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((bits ↾ ℕ₀)‘(𝐵 mod (2↑𝑁))) = ((bits‘𝐵) ∩ (0..^𝑁)) → (^◡(bits ↾ ℕ₀)‘((bits‘𝐵) ∩ (0..^𝑁))) = (𝐵 mod (2↑𝑁))))
57	54, 56	mpd 15	. . . . . . . . . . . 12 ⊢ (𝜑 → (^◡(bits ↾ ℕ₀)‘((bits‘𝐵) ∩ (0..^𝑁))) = (𝐵 mod (2↑𝑁)))
58	48, 57	syl5eq 2845	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))) = (𝐵 mod (2↑𝑁)))
59	58	oveq2d 7039	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) = (𝐵 − (𝐵 mod (2↑𝑁))))
60	59	oveq1d 7038	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) / (2↑𝑁)) = ((𝐵 − (𝐵 mod (2↑𝑁))) / (2↑𝑁)))
61	49	zred 11941	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ ℝ)
62		moddifz 13105	. . . . . . . . . 10 ⊢ ((𝐵 ∈ ℝ ∧ (2↑𝑁) ∈ ℝ⁺) → ((𝐵 − (𝐵 mod (2↑𝑁))) / (2↑𝑁)) ∈ ℤ)
63	61, 21, 62	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 − (𝐵 mod (2↑𝑁))) / (2↑𝑁)) ∈ ℤ)
64	60, 63	eqeltrd 2885	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) / (2↑𝑁)) ∈ ℤ)
65		inss1 4131	. . . . . . . . . . . . . 14 ⊢ ((bits‘𝐵) ∩ (0..^𝑁)) ⊆ (bits‘𝐵)
66		bitsss 15612	. . . . . . . . . . . . . 14 ⊢ (bits‘𝐵) ⊆ ℕ₀
67	65, 66	sstri 3904	. . . . . . . . . . . . 13 ⊢ ((bits‘𝐵) ∩ (0..^𝑁)) ⊆ ℕ₀
68		inss2 4132	. . . . . . . . . . . . . 14 ⊢ ((bits‘𝐵) ∩ (0..^𝑁)) ⊆ (0..^𝑁)
69		ssfi 8591	. . . . . . . . . . . . . 14 ⊢ (((0..^𝑁) ∈ Fin ∧ ((bits‘𝐵) ∩ (0..^𝑁)) ⊆ (0..^𝑁)) → ((bits‘𝐵) ∩ (0..^𝑁)) ∈ Fin)
70	30, 68, 69	mp2an 688	. . . . . . . . . . . . 13 ⊢ ((bits‘𝐵) ∩ (0..^𝑁)) ∈ Fin
71		elfpw 8679	. . . . . . . . . . . . 13 ⊢ (((bits‘𝐵) ∩ (0..^𝑁)) ∈ (𝒫 ℕ₀ ∩ Fin) ↔ (((bits‘𝐵) ∩ (0..^𝑁)) ⊆ ℕ₀ ∧ ((bits‘𝐵) ∩ (0..^𝑁)) ∈ Fin))
72	67, 70, 71	mpbir2an 707	. . . . . . . . . . . 12 ⊢ ((bits‘𝐵) ∩ (0..^𝑁)) ∈ (𝒫 ℕ₀ ∩ Fin)
73	40	ffvelrni 6722	. . . . . . . . . . . 12 ⊢ (((bits‘𝐵) ∩ (0..^𝑁)) ∈ (𝒫 ℕ₀ ∩ Fin) → (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))) ∈ ℕ₀)
74	72, 73	mp1i 13	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))) ∈ ℕ₀)
75	74	nn0zd 11939	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))) ∈ ℤ)
76	49, 75	zsubcld 11946	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) ∈ ℤ)
77		dvdsval2 15447	. . . . . . . . 9 ⊢ (((2↑𝑁) ∈ ℤ ∧ (2↑𝑁) ≠ 0 ∧ (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) ∈ ℤ) → ((2↑𝑁) ∥ (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) ↔ ((𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) / (2↑𝑁)) ∈ ℤ))
78	25, 26, 76, 77	syl3anc 1364	. . . . . . . 8 ⊢ (𝜑 → ((2↑𝑁) ∥ (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) ↔ ((𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) / (2↑𝑁)) ∈ ℤ))
79	64, 78	mpbird 258	. . . . . . 7 ⊢ (𝜑 → (2↑𝑁) ∥ (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))))
80		dvds2add 15480	. . . . . . . 8 ⊢ (((2↑𝑁) ∈ ℤ ∧ (𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) ∈ ℤ ∧ (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) ∈ ℤ) → (((2↑𝑁) ∥ (𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) ∧ (2↑𝑁) ∥ (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))))) → (2↑𝑁) ∥ ((𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) + (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))))))
81	25, 44, 76, 80	syl3anc 1364	. . . . . . 7 ⊢ (𝜑 → (((2↑𝑁) ∥ (𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) ∧ (2↑𝑁) ∥ (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))))) → (2↑𝑁) ∥ ((𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) + (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))))))
82	47, 79, 81	mp2and 695	. . . . . 6 ⊢ (𝜑 → (2↑𝑁) ∥ ((𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) + (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))))))
83	3	zcnd 11942	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ ℂ)
84	49	zcnd 11942	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℂ)
85	42	nn0cnd 11811	. . . . . . 7 ⊢ (𝜑 → (𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) ∈ ℂ)
86	74	nn0cnd 11811	. . . . . . 7 ⊢ (𝜑 → (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))) ∈ ℂ)
87	83, 84, 85, 86	addsub4d 10898	. . . . . 6 ⊢ (𝜑 → ((𝐴 + 𝐵) − ((𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) + (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))))) = ((𝐴 − (𝐾‘((bits‘𝐴) ∩ (0..^𝑁)))) + (𝐵 − (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))))))
88	82, 87	breqtrrd 4996	. . . . 5 ⊢ (𝜑 → (2↑𝑁) ∥ ((𝐴 + 𝐵) − ((𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) + (𝐾‘((bits‘𝐵) ∩ (0..^𝑁))))))
89	3, 49	zaddcld 11945	. . . . . 6 ⊢ (𝜑 → (𝐴 + 𝐵) ∈ ℤ)
90	43, 75	zaddcld 11945	. . . . . 6 ⊢ (𝜑 → ((𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) + (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) ∈ ℤ)
91		moddvds 15455	. . . . . 6 ⊢ (((2↑𝑁) ∈ ℕ ∧ (𝐴 + 𝐵) ∈ ℤ ∧ ((𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) + (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) ∈ ℤ) → (((𝐴 + 𝐵) mod (2↑𝑁)) = (((𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) + (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) mod (2↑𝑁)) ↔ (2↑𝑁) ∥ ((𝐴 + 𝐵) − ((𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) + (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))))))
92	7, 89, 90, 91	syl3anc 1364	. . . . 5 ⊢ (𝜑 → (((𝐴 + 𝐵) mod (2↑𝑁)) = (((𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) + (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) mod (2↑𝑁)) ↔ (2↑𝑁) ∥ ((𝐴 + 𝐵) − ((𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) + (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))))))
93	88, 92	mpbird 258	. . . 4 ⊢ (𝜑 → ((𝐴 + 𝐵) mod (2↑𝑁)) = (((𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) + (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) mod (2↑𝑁)))
94	28	a1i 11	. . . . 5 ⊢ (𝜑 → (bits‘𝐴) ⊆ ℕ₀)
95	66	a1i 11	. . . . 5 ⊢ (𝜑 → (bits‘𝐵) ⊆ ℕ₀)
96		sadaddlem.c	. . . . 5 ⊢ 𝐶 = seq0((𝑐 ∈ 2_o, 𝑚 ∈ ℕ₀ ↦ if(cadd(𝑚 ∈ (bits‘𝐴), 𝑚 ∈ (bits‘𝐵), ∅ ∈ 𝑐), 1_o, ∅)), (𝑛 ∈ ℕ₀ ↦ if(𝑛 = 0, ∅, (𝑛 − 1))))
97	94, 95, 96, 6, 1	sadadd3 15647	. . . 4 ⊢ (𝜑 → ((𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) mod (2↑𝑁)) = (((𝐾‘((bits‘𝐴) ∩ (0..^𝑁))) + (𝐾‘((bits‘𝐵) ∩ (0..^𝑁)))) mod (2↑𝑁)))
98		inss1 4131	. . . . . . . . 9 ⊢ (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ⊆ ((bits‘𝐴) sadd (bits‘𝐵))
99		sadcl 15648	. . . . . . . . . 10 ⊢ (((bits‘𝐴) ⊆ ℕ₀ ∧ (bits‘𝐵) ⊆ ℕ₀) → ((bits‘𝐴) sadd (bits‘𝐵)) ⊆ ℕ₀)
100	28, 66, 99	mp2an 688	. . . . . . . . 9 ⊢ ((bits‘𝐴) sadd (bits‘𝐵)) ⊆ ℕ₀
101	98, 100	sstri 3904	. . . . . . . 8 ⊢ (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ⊆ ℕ₀
102		inss2 4132	. . . . . . . . 9 ⊢ (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ⊆ (0..^𝑁)
103		ssfi 8591	. . . . . . . . 9 ⊢ (((0..^𝑁) ∈ Fin ∧ (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ⊆ (0..^𝑁)) → (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ∈ Fin)
104	30, 102, 103	mp2an 688	. . . . . . . 8 ⊢ (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ∈ Fin
105		elfpw 8679	. . . . . . . 8 ⊢ ((((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ∈ (𝒫 ℕ₀ ∩ Fin) ↔ ((((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ⊆ ℕ₀ ∧ (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ∈ Fin))
106	101, 104, 105	mpbir2an 707	. . . . . . 7 ⊢ (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ∈ (𝒫 ℕ₀ ∩ Fin)
107	40	ffvelrni 6722	. . . . . . 7 ⊢ ((((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ∈ (𝒫 ℕ₀ ∩ Fin) → (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) ∈ ℕ₀)
108	106, 107	mp1i 13	. . . . . 6 ⊢ (𝜑 → (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) ∈ ℕ₀)
109	108	nn0red 11810	. . . . 5 ⊢ (𝜑 → (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) ∈ ℝ)
110	108	nn0ge0d 11812	. . . . 5 ⊢ (𝜑 → 0 ≤ (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))))
111	1	fveq1i 6546	. . . . . . . . . 10 ⊢ (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) = (^◡(bits ↾ ℕ₀)‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))
112	111	fveq2i 6548	. . . . . . . . 9 ⊢ ((bits ↾ ℕ₀)‘(𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))) = ((bits ↾ ℕ₀)‘(^◡(bits ↾ ℕ₀)‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))))
113	108	fvresd 6565	. . . . . . . . 9 ⊢ (𝜑 → ((bits ↾ ℕ₀)‘(𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))) = (bits‘(𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))))
114	106	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ∈ (𝒫 ℕ₀ ∩ Fin))
115		f1ocnvfv2 6906	. . . . . . . . . 10 ⊢ (((bits ↾ ℕ₀):ℕ₀–1-1-onto→(𝒫 ℕ₀ ∩ Fin) ∧ (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) ∈ (𝒫 ℕ₀ ∩ Fin)) → ((bits ↾ ℕ₀)‘(^◡(bits ↾ ℕ₀)‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))) = (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))
116	13, 114, 115	sylancr 587	. . . . . . . . 9 ⊢ (𝜑 → ((bits ↾ ℕ₀)‘(^◡(bits ↾ ℕ₀)‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))) = (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))
117	112, 113, 116	3eqtr3a 2857	. . . . . . . 8 ⊢ (𝜑 → (bits‘(𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))) = (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))
118	117, 102	syl6eqss 3948	. . . . . . 7 ⊢ (𝜑 → (bits‘(𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))) ⊆ (0..^𝑁))
119	108	nn0zd 11939	. . . . . . . 8 ⊢ (𝜑 → (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) ∈ ℤ)
120		bitsfzo 15621	. . . . . . . 8 ⊢ (((𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) ∈ ℤ ∧ 𝑁 ∈ ℕ₀) → ((𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) ∈ (0..^(2↑𝑁)) ↔ (bits‘(𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))) ⊆ (0..^𝑁)))
121	119, 6, 120	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → ((𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) ∈ (0..^(2↑𝑁)) ↔ (bits‘(𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))) ⊆ (0..^𝑁)))
122	118, 121	mpbird 258	. . . . . 6 ⊢ (𝜑 → (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) ∈ (0..^(2↑𝑁)))
123		elfzolt2 12901	. . . . . 6 ⊢ ((𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) ∈ (0..^(2↑𝑁)) → (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) < (2↑𝑁))
124	122, 123	syl 17	. . . . 5 ⊢ (𝜑 → (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) < (2↑𝑁))
125		modid 13118	. . . . 5 ⊢ ((((𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) ∈ ℝ ∧ (2↑𝑁) ∈ ℝ⁺) ∧ (0 ≤ (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) ∧ (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) < (2↑𝑁))) → ((𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) mod (2↑𝑁)) = (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))))
126	109, 21, 110, 124, 125	syl22anc 835	. . . 4 ⊢ (𝜑 → ((𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))) mod (2↑𝑁)) = (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))))
127	93, 97, 126	3eqtr2d 2839	. . 3 ⊢ (𝜑 → ((𝐴 + 𝐵) mod (2↑𝑁)) = (𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁))))
128	127	fveq2d 6549	. 2 ⊢ (𝜑 → (bits‘((𝐴 + 𝐵) mod (2↑𝑁))) = (bits‘(𝐾‘(((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)))))
129	128, 117	eqtr2d 2834	1 ⊢ (𝜑 → (((bits‘𝐴) sadd (bits‘𝐵)) ∩ (0..^𝑁)) = (bits‘((𝐴 + 𝐵) mod (2↑𝑁))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 207 ∧ wa 396 = wceq 1525 caddwcad 1592 ∈ wcel 2083 ≠ wne 2986 ∩ cin 3864 ⊆ wss 3865 ∅c0 4217 ifcif 4387 𝒫 cpw 4459 class class class wbr 4968 ↦ cmpt 5047 ^◡ccnv 5449 ↾ cres 5452 ⟶wf 6228 –1-1-onto→wf1o 6231 ‘cfv 6232 (class class class)co 7023 ∈ cmpo 7025 1_oc1o 7953 2_oc2o 7954 Fincfn 8364 ℝcr 10389 0cc0 10390 1c1 10391 + caddc 10393 < clt 10528 ≤ cle 10529 − cmin 10723 / cdiv 11151 ℕcn 11492 2c2 11546 ℕ₀cn0 11751 ℤcz 11835 ℝ⁺crp 12243 ..^cfzo 12887 mod cmo 13091 seqcseq 13223 ↑cexp 13283 ∥ cdvds 15444 bitscbits 15605 sadd csad 15606

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1781 ax-4 1795 ax-5 1892 ax-6 1951 ax-7 1996 ax-8 2085 ax-9 2093 ax-10 2114 ax-11 2128 ax-12 2143 ax-13 2346 ax-ext 2771 ax-rep 5088 ax-sep 5101 ax-nul 5108 ax-pow 5164 ax-pr 5228 ax-un 7326 ax-inf2 8957 ax-cnex 10446 ax-resscn 10447 ax-1cn 10448 ax-icn 10449 ax-addcl 10450 ax-addrcl 10451 ax-mulcl 10452 ax-mulrcl 10453 ax-mulcom 10454 ax-addass 10455 ax-mulass 10456 ax-distr 10457 ax-i2m1 10458 ax-1ne0 10459 ax-1rid 10460 ax-rnegex 10461 ax-rrecex 10462 ax-cnre 10463 ax-pre-lttri 10464 ax-pre-lttrn 10465 ax-pre-ltadd 10466 ax-pre-mulgt0 10467 ax-pre-sup 10468

This theorem depends on definitions: df-bi 208 df-an 397 df-or 843 df-3or 1081 df-3an 1082 df-xor 1497 df-tru 1528 df-fal 1538 df-had 1580 df-cad 1593 df-ex 1766 df-nf 1770 df-sb 2045 df-mo 2578 df-eu 2614 df-clab 2778 df-cleq 2790 df-clel 2865 df-nfc 2937 df-ne 2987 df-nel 3093 df-ral 3112 df-rex 3113 df-reu 3114 df-rmo 3115 df-rab 3116 df-v 3442 df-sbc 3712 df-csb 3818 df-dif 3868 df-un 3870 df-in 3872 df-ss 3880 df-pss 3882 df-nul 4218 df-if 4388 df-pw 4461 df-sn 4479 df-pr 4481 df-tp 4483 df-op 4485 df-uni 4752 df-int 4789 df-iun 4833 df-disj 4937 df-br 4969 df-opab 5031 df-mpt 5048 df-tr 5071 df-id 5355 df-eprel 5360 df-po 5369 df-so 5370 df-fr 5409 df-se 5410 df-we 5411 df-xp 5456 df-rel 5457 df-cnv 5458 df-co 5459 df-dm 5460 df-rn 5461 df-res 5462 df-ima 5463 df-pred 6030 df-ord 6076 df-on 6077 df-lim 6078 df-suc 6079 df-iota 6196 df-fun 6234 df-fn 6235 df-f 6236 df-f1 6237 df-fo 6238 df-f1o 6239 df-fv 6240 df-isom 6241 df-riota 6984 df-ov 7026 df-oprab 7027 df-mpo 7028 df-om 7444 df-1st 7552 df-2nd 7553 df-wrecs 7805 df-recs 7867 df-rdg 7905 df-1o 7960 df-2o 7961 df-oadd 7964 df-er 8146 df-map 8265 df-pm 8266 df-en 8365 df-dom 8366 df-sdom 8367 df-fin 8368 df-sup 8759 df-inf 8760 df-oi 8827 df-dju 9183 df-card 9221 df-pnf 10530 df-mnf 10531 df-xr 10532 df-ltxr 10533 df-le 10534 df-sub 10725 df-neg 10726 df-div 11152 df-nn 11493 df-2 11554 df-3 11555 df-n0 11752 df-xnn0 11822 df-z 11836 df-uz 12098 df-rp 12244 df-fz 12747 df-fzo 12888 df-fl 13016 df-mod 13092 df-seq 13224 df-exp 13284 df-hash 13545 df-cj 14296 df-re 14297 df-im 14298 df-sqrt 14432 df-abs 14433 df-clim 14683 df-sum 14881 df-dvds 15445 df-bits 15608 df-sad 15637

This theorem is referenced by: sadadd 15653

W3C validator