Step | Hyp | Ref
| Expression |
1 | | bitsss 16061 |
. . . . . 6
⊢
(bits‘𝐴)
⊆ ℕ0 |
2 | | bitsss 16061 |
. . . . . 6
⊢
(bits‘𝐵)
⊆ ℕ0 |
3 | | smucl 16119 |
. . . . . 6
⊢
(((bits‘𝐴)
⊆ ℕ0 ∧ (bits‘𝐵) ⊆ ℕ0) →
((bits‘𝐴) smul
(bits‘𝐵)) ⊆
ℕ0) |
4 | 1, 2, 3 | mp2an 688 |
. . . . 5
⊢
((bits‘𝐴) smul
(bits‘𝐵)) ⊆
ℕ0 |
5 | 4 | sseli 3913 |
. . . 4
⊢ (𝑘 ∈ ((bits‘𝐴) smul (bits‘𝐵)) → 𝑘 ∈ ℕ0) |
6 | 5 | a1i 11 |
. . 3
⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝑘 ∈ ((bits‘𝐴) smul (bits‘𝐵)) → 𝑘 ∈
ℕ0)) |
7 | | bitsss 16061 |
. . . . 5
⊢
(bits‘(𝐴
· 𝐵)) ⊆
ℕ0 |
8 | 7 | sseli 3913 |
. . . 4
⊢ (𝑘 ∈ (bits‘(𝐴 · 𝐵)) → 𝑘 ∈ ℕ0) |
9 | 8 | a1i 11 |
. . 3
⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝑘 ∈ (bits‘(𝐴 · 𝐵)) → 𝑘 ∈
ℕ0)) |
10 | | simpll 763 |
. . . . . . . . . . . 12
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ 𝐴 ∈
ℤ) |
11 | | simplr 765 |
. . . . . . . . . . . 12
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ 𝐵 ∈
ℤ) |
12 | | simpr 484 |
. . . . . . . . . . . . 13
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ 𝑘 ∈
ℕ0) |
13 | | 1nn0 12179 |
. . . . . . . . . . . . . 14
⊢ 1 ∈
ℕ0 |
14 | 13 | a1i 11 |
. . . . . . . . . . . . 13
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ 1 ∈ ℕ0) |
15 | 12, 14 | nn0addcld 12227 |
. . . . . . . . . . . 12
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (𝑘 + 1) ∈
ℕ0) |
16 | 10, 11, 15 | smumullem 16127 |
. . . . . . . . . . 11
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (((bits‘𝐴)
∩ (0..^(𝑘 + 1))) smul
(bits‘𝐵)) =
(bits‘((𝐴 mod
(2↑(𝑘 + 1))) ·
𝐵))) |
17 | 16 | ineq1d 4142 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ ((((bits‘𝐴)
∩ (0..^(𝑘 + 1))) smul
(bits‘𝐵)) ∩
(0..^(𝑘 + 1))) =
((bits‘((𝐴 mod
(2↑(𝑘 + 1))) ·
𝐵)) ∩ (0..^(𝑘 + 1)))) |
18 | | 2nn 11976 |
. . . . . . . . . . . . . . . 16
⊢ 2 ∈
ℕ |
19 | 18 | a1i 11 |
. . . . . . . . . . . . . . 15
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ 2 ∈ ℕ) |
20 | 19, 15 | nnexpcld 13888 |
. . . . . . . . . . . . . 14
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (2↑(𝑘 + 1))
∈ ℕ) |
21 | 10, 20 | zmodcld 13540 |
. . . . . . . . . . . . 13
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (𝐴 mod
(2↑(𝑘 + 1))) ∈
ℕ0) |
22 | 21 | nn0zd 12353 |
. . . . . . . . . . . 12
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (𝐴 mod
(2↑(𝑘 + 1))) ∈
ℤ) |
23 | 22, 11 | zmulcld 12361 |
. . . . . . . . . . 11
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ ((𝐴 mod
(2↑(𝑘 + 1))) ·
𝐵) ∈
ℤ) |
24 | | bitsmod 16071 |
. . . . . . . . . . 11
⊢ ((((𝐴 mod (2↑(𝑘 + 1))) · 𝐵) ∈ ℤ ∧ (𝑘 + 1) ∈ ℕ0) →
(bits‘(((𝐴 mod
(2↑(𝑘 + 1))) ·
𝐵) mod (2↑(𝑘 + 1)))) = ((bits‘((𝐴 mod (2↑(𝑘 + 1))) · 𝐵)) ∩ (0..^(𝑘 + 1)))) |
25 | 23, 15, 24 | syl2anc 583 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (bits‘(((𝐴 mod
(2↑(𝑘 + 1))) ·
𝐵) mod (2↑(𝑘 + 1)))) = ((bits‘((𝐴 mod (2↑(𝑘 + 1))) · 𝐵)) ∩ (0..^(𝑘 + 1)))) |
26 | 17, 25 | eqtr4d 2781 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ ((((bits‘𝐴)
∩ (0..^(𝑘 + 1))) smul
(bits‘𝐵)) ∩
(0..^(𝑘 + 1))) =
(bits‘(((𝐴 mod
(2↑(𝑘 + 1))) ·
𝐵) mod (2↑(𝑘 + 1))))) |
27 | | inass 4150 |
. . . . . . . . . . . . 13
⊢
(((bits‘𝐴)
∩ (0..^(𝑘 + 1))) ∩
(0..^(𝑘 + 1))) =
((bits‘𝐴) ∩
((0..^(𝑘 + 1)) ∩
(0..^(𝑘 +
1)))) |
28 | | inidm 4149 |
. . . . . . . . . . . . . 14
⊢
((0..^(𝑘 + 1)) ∩
(0..^(𝑘 + 1))) =
(0..^(𝑘 +
1)) |
29 | 28 | ineq2i 4140 |
. . . . . . . . . . . . 13
⊢
((bits‘𝐴)
∩ ((0..^(𝑘 + 1)) ∩
(0..^(𝑘 + 1)))) =
((bits‘𝐴) ∩
(0..^(𝑘 +
1))) |
30 | 27, 29 | eqtri 2766 |
. . . . . . . . . . . 12
⊢
(((bits‘𝐴)
∩ (0..^(𝑘 + 1))) ∩
(0..^(𝑘 + 1))) =
((bits‘𝐴) ∩
(0..^(𝑘 +
1))) |
31 | 30 | oveq1i 7265 |
. . . . . . . . . . 11
⊢
((((bits‘𝐴)
∩ (0..^(𝑘 + 1))) ∩
(0..^(𝑘 + 1))) smul
((bits‘𝐵) ∩
(0..^(𝑘 + 1)))) =
(((bits‘𝐴) ∩
(0..^(𝑘 + 1))) smul
((bits‘𝐵) ∩
(0..^(𝑘 +
1)))) |
32 | 31 | ineq1i 4139 |
. . . . . . . . . 10
⊢
(((((bits‘𝐴)
∩ (0..^(𝑘 + 1))) ∩
(0..^(𝑘 + 1))) smul
((bits‘𝐵) ∩
(0..^(𝑘 + 1)))) ∩
(0..^(𝑘 + 1))) =
((((bits‘𝐴) ∩
(0..^(𝑘 + 1))) smul
((bits‘𝐵) ∩
(0..^(𝑘 + 1)))) ∩
(0..^(𝑘 +
1))) |
33 | | inss1 4159 |
. . . . . . . . . . . 12
⊢
((bits‘𝐴)
∩ (0..^(𝑘 + 1)))
⊆ (bits‘𝐴) |
34 | 1 | a1i 11 |
. . . . . . . . . . . 12
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (bits‘𝐴)
⊆ ℕ0) |
35 | 33, 34 | sstrid 3928 |
. . . . . . . . . . 11
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ ((bits‘𝐴)
∩ (0..^(𝑘 + 1)))
⊆ ℕ0) |
36 | 2 | a1i 11 |
. . . . . . . . . . 11
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (bits‘𝐵)
⊆ ℕ0) |
37 | 35, 36, 15 | smueq 16126 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ ((((bits‘𝐴)
∩ (0..^(𝑘 + 1))) smul
(bits‘𝐵)) ∩
(0..^(𝑘 + 1))) =
(((((bits‘𝐴) ∩
(0..^(𝑘 + 1))) ∩
(0..^(𝑘 + 1))) smul
((bits‘𝐵) ∩
(0..^(𝑘 + 1)))) ∩
(0..^(𝑘 +
1)))) |
38 | 34, 36, 15 | smueq 16126 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (((bits‘𝐴)
smul (bits‘𝐵)) ∩
(0..^(𝑘 + 1))) =
((((bits‘𝐴) ∩
(0..^(𝑘 + 1))) smul
((bits‘𝐵) ∩
(0..^(𝑘 + 1)))) ∩
(0..^(𝑘 +
1)))) |
39 | 32, 37, 38 | 3eqtr4a 2805 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ ((((bits‘𝐴)
∩ (0..^(𝑘 + 1))) smul
(bits‘𝐵)) ∩
(0..^(𝑘 + 1))) =
(((bits‘𝐴) smul
(bits‘𝐵)) ∩
(0..^(𝑘 +
1)))) |
40 | 20 | nnrpd 12699 |
. . . . . . . . . . 11
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (2↑(𝑘 + 1))
∈ ℝ+) |
41 | 10 | zred 12355 |
. . . . . . . . . . . 12
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ 𝐴 ∈
ℝ) |
42 | | modabs2 13553 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℝ ∧
(2↑(𝑘 + 1)) ∈
ℝ+) → ((𝐴 mod (2↑(𝑘 + 1))) mod (2↑(𝑘 + 1))) = (𝐴 mod (2↑(𝑘 + 1)))) |
43 | 41, 40, 42 | syl2anc 583 |
. . . . . . . . . . 11
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ ((𝐴 mod
(2↑(𝑘 + 1))) mod
(2↑(𝑘 + 1))) = (𝐴 mod (2↑(𝑘 + 1)))) |
44 | | eqidd 2739 |
. . . . . . . . . . 11
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (𝐵 mod
(2↑(𝑘 + 1))) = (𝐵 mod (2↑(𝑘 + 1)))) |
45 | 22, 10, 11, 11, 40, 43, 44 | modmul12d 13573 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (((𝐴 mod
(2↑(𝑘 + 1))) ·
𝐵) mod (2↑(𝑘 + 1))) = ((𝐴 · 𝐵) mod (2↑(𝑘 + 1)))) |
46 | 45 | fveq2d 6760 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (bits‘(((𝐴 mod
(2↑(𝑘 + 1))) ·
𝐵) mod (2↑(𝑘 + 1)))) = (bits‘((𝐴 · 𝐵) mod (2↑(𝑘 + 1))))) |
47 | 26, 39, 46 | 3eqtr3d 2786 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (((bits‘𝐴)
smul (bits‘𝐵)) ∩
(0..^(𝑘 + 1))) =
(bits‘((𝐴 ·
𝐵) mod (2↑(𝑘 + 1))))) |
48 | 10, 11 | zmulcld 12361 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (𝐴 · 𝐵) ∈
ℤ) |
49 | | bitsmod 16071 |
. . . . . . . . 9
⊢ (((𝐴 · 𝐵) ∈ ℤ ∧ (𝑘 + 1) ∈ ℕ0) →
(bits‘((𝐴 ·
𝐵) mod (2↑(𝑘 + 1)))) = ((bits‘(𝐴 · 𝐵)) ∩ (0..^(𝑘 + 1)))) |
50 | 48, 15, 49 | syl2anc 583 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (bits‘((𝐴
· 𝐵) mod
(2↑(𝑘 + 1)))) =
((bits‘(𝐴 ·
𝐵)) ∩ (0..^(𝑘 + 1)))) |
51 | 47, 50 | eqtrd 2778 |
. . . . . . 7
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (((bits‘𝐴)
smul (bits‘𝐵)) ∩
(0..^(𝑘 + 1))) =
((bits‘(𝐴 ·
𝐵)) ∩ (0..^(𝑘 + 1)))) |
52 | 51 | eleq2d 2824 |
. . . . . 6
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (𝑘 ∈
(((bits‘𝐴) smul
(bits‘𝐵)) ∩
(0..^(𝑘 + 1))) ↔ 𝑘 ∈ ((bits‘(𝐴 · 𝐵)) ∩ (0..^(𝑘 + 1))))) |
53 | | elin 3899 |
. . . . . 6
⊢ (𝑘 ∈ (((bits‘𝐴) smul (bits‘𝐵)) ∩ (0..^(𝑘 + 1))) ↔ (𝑘 ∈ ((bits‘𝐴) smul (bits‘𝐵)) ∧ 𝑘 ∈ (0..^(𝑘 + 1)))) |
54 | | elin 3899 |
. . . . . 6
⊢ (𝑘 ∈ ((bits‘(𝐴 · 𝐵)) ∩ (0..^(𝑘 + 1))) ↔ (𝑘 ∈ (bits‘(𝐴 · 𝐵)) ∧ 𝑘 ∈ (0..^(𝑘 + 1)))) |
55 | 52, 53, 54 | 3bitr3g 312 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ ((𝑘 ∈
((bits‘𝐴) smul
(bits‘𝐵)) ∧ 𝑘 ∈ (0..^(𝑘 + 1))) ↔ (𝑘 ∈ (bits‘(𝐴 · 𝐵)) ∧ 𝑘 ∈ (0..^(𝑘 + 1))))) |
56 | | nn0uz 12549 |
. . . . . . . . 9
⊢
ℕ0 = (ℤ≥‘0) |
57 | 12, 56 | eleqtrdi 2849 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ 𝑘 ∈
(ℤ≥‘0)) |
58 | | eluzfz2b 13194 |
. . . . . . . 8
⊢ (𝑘 ∈
(ℤ≥‘0) ↔ 𝑘 ∈ (0...𝑘)) |
59 | 57, 58 | sylib 217 |
. . . . . . 7
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ 𝑘 ∈ (0...𝑘)) |
60 | 12 | nn0zd 12353 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ 𝑘 ∈
ℤ) |
61 | | fzval3 13384 |
. . . . . . . 8
⊢ (𝑘 ∈ ℤ →
(0...𝑘) = (0..^(𝑘 + 1))) |
62 | 60, 61 | syl 17 |
. . . . . . 7
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (0...𝑘) =
(0..^(𝑘 +
1))) |
63 | 59, 62 | eleqtrd 2841 |
. . . . . 6
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ 𝑘 ∈ (0..^(𝑘 + 1))) |
64 | 63 | biantrud 531 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (𝑘 ∈
((bits‘𝐴) smul
(bits‘𝐵)) ↔
(𝑘 ∈
((bits‘𝐴) smul
(bits‘𝐵)) ∧ 𝑘 ∈ (0..^(𝑘 + 1))))) |
65 | 63 | biantrud 531 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (𝑘 ∈
(bits‘(𝐴 ·
𝐵)) ↔ (𝑘 ∈ (bits‘(𝐴 · 𝐵)) ∧ 𝑘 ∈ (0..^(𝑘 + 1))))) |
66 | 55, 64, 65 | 3bitr4d 310 |
. . . 4
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ 𝑘 ∈ ℕ0)
→ (𝑘 ∈
((bits‘𝐴) smul
(bits‘𝐵)) ↔
𝑘 ∈ (bits‘(𝐴 · 𝐵)))) |
67 | 66 | ex 412 |
. . 3
⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝑘 ∈ ℕ0
→ (𝑘 ∈
((bits‘𝐴) smul
(bits‘𝐵)) ↔
𝑘 ∈ (bits‘(𝐴 · 𝐵))))) |
68 | 6, 9, 67 | pm5.21ndd 380 |
. 2
⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝑘 ∈ ((bits‘𝐴) smul (bits‘𝐵)) ↔ 𝑘 ∈ (bits‘(𝐴 · 𝐵)))) |
69 | 68 | eqrdv 2736 |
1
⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) →
((bits‘𝐴) smul
(bits‘𝐵)) =
(bits‘(𝐴 ·
𝐵))) |