Proof of Theorem dvdsmod
| Step | Hyp | Ref
| Expression |
| 1 | | simpl3 1194 |
. . . . 5
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 𝐾 ∈ ℤ) |
| 2 | 1 | zred 12722 |
. . . 4
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 𝐾 ∈ ℝ) |
| 3 | | simpl2 1193 |
. . . . 5
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 𝑁 ∈ ℕ) |
| 4 | 3 | nnrpd 13075 |
. . . 4
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 𝑁 ∈
ℝ+) |
| 5 | | modval 13911 |
. . . 4
⊢ ((𝐾 ∈ ℝ ∧ 𝑁 ∈ ℝ+)
→ (𝐾 mod 𝑁) = (𝐾 − (𝑁 · (⌊‘(𝐾 / 𝑁))))) |
| 6 | 2, 4, 5 | syl2anc 584 |
. . 3
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → (𝐾 mod 𝑁) = (𝐾 − (𝑁 · (⌊‘(𝐾 / 𝑁))))) |
| 7 | 6 | breq2d 5155 |
. 2
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → (𝑃 ∥ (𝐾 mod 𝑁) ↔ 𝑃 ∥ (𝐾 − (𝑁 · (⌊‘(𝐾 / 𝑁)))))) |
| 8 | | simpl1 1192 |
. . . . . . . 8
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 𝑃 ∈ ℕ) |
| 9 | 8 | nnzd 12640 |
. . . . . . 7
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 𝑃 ∈ ℤ) |
| 10 | 3 | nnzd 12640 |
. . . . . . 7
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 𝑁 ∈ ℤ) |
| 11 | 2, 3 | nndivred 12320 |
. . . . . . . 8
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → (𝐾 / 𝑁) ∈ ℝ) |
| 12 | 11 | flcld 13838 |
. . . . . . 7
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → (⌊‘(𝐾 / 𝑁)) ∈ ℤ) |
| 13 | | simpr 484 |
. . . . . . 7
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 𝑃 ∥ 𝑁) |
| 14 | 9, 10, 12, 13 | dvdsmultr1d 16334 |
. . . . . 6
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 𝑃 ∥ (𝑁 · (⌊‘(𝐾 / 𝑁)))) |
| 15 | 10, 12 | zmulcld 12728 |
. . . . . . . 8
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → (𝑁 · (⌊‘(𝐾 / 𝑁))) ∈ ℤ) |
| 16 | 15 | zcnd 12723 |
. . . . . . 7
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → (𝑁 · (⌊‘(𝐾 / 𝑁))) ∈ ℂ) |
| 17 | 16 | subid1d 11609 |
. . . . . 6
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → ((𝑁 · (⌊‘(𝐾 / 𝑁))) − 0) = (𝑁 · (⌊‘(𝐾 / 𝑁)))) |
| 18 | 14, 17 | breqtrrd 5171 |
. . . . 5
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 𝑃 ∥ ((𝑁 · (⌊‘(𝐾 / 𝑁))) − 0)) |
| 19 | | 0zd 12625 |
. . . . . 6
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 0 ∈ ℤ) |
| 20 | | moddvds 16301 |
. . . . . 6
⊢ ((𝑃 ∈ ℕ ∧ (𝑁 · (⌊‘(𝐾 / 𝑁))) ∈ ℤ ∧ 0 ∈ ℤ)
→ (((𝑁 ·
(⌊‘(𝐾 / 𝑁))) mod 𝑃) = (0 mod 𝑃) ↔ 𝑃 ∥ ((𝑁 · (⌊‘(𝐾 / 𝑁))) − 0))) |
| 21 | 8, 15, 19, 20 | syl3anc 1373 |
. . . . 5
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → (((𝑁 · (⌊‘(𝐾 / 𝑁))) mod 𝑃) = (0 mod 𝑃) ↔ 𝑃 ∥ ((𝑁 · (⌊‘(𝐾 / 𝑁))) − 0))) |
| 22 | 18, 21 | mpbird 257 |
. . . 4
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → ((𝑁 · (⌊‘(𝐾 / 𝑁))) mod 𝑃) = (0 mod 𝑃)) |
| 23 | 22 | eqeq2d 2748 |
. . 3
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → ((𝐾 mod 𝑃) = ((𝑁 · (⌊‘(𝐾 / 𝑁))) mod 𝑃) ↔ (𝐾 mod 𝑃) = (0 mod 𝑃))) |
| 24 | | moddvds 16301 |
. . . 4
⊢ ((𝑃 ∈ ℕ ∧ 𝐾 ∈ ℤ ∧ (𝑁 · (⌊‘(𝐾 / 𝑁))) ∈ ℤ) → ((𝐾 mod 𝑃) = ((𝑁 · (⌊‘(𝐾 / 𝑁))) mod 𝑃) ↔ 𝑃 ∥ (𝐾 − (𝑁 · (⌊‘(𝐾 / 𝑁)))))) |
| 25 | 8, 1, 15, 24 | syl3anc 1373 |
. . 3
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → ((𝐾 mod 𝑃) = ((𝑁 · (⌊‘(𝐾 / 𝑁))) mod 𝑃) ↔ 𝑃 ∥ (𝐾 − (𝑁 · (⌊‘(𝐾 / 𝑁)))))) |
| 26 | | moddvds 16301 |
. . . 4
⊢ ((𝑃 ∈ ℕ ∧ 𝐾 ∈ ℤ ∧ 0 ∈
ℤ) → ((𝐾 mod
𝑃) = (0 mod 𝑃) ↔ 𝑃 ∥ (𝐾 − 0))) |
| 27 | 8, 1, 19, 26 | syl3anc 1373 |
. . 3
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → ((𝐾 mod 𝑃) = (0 mod 𝑃) ↔ 𝑃 ∥ (𝐾 − 0))) |
| 28 | 23, 25, 27 | 3bitr3d 309 |
. 2
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → (𝑃 ∥ (𝐾 − (𝑁 · (⌊‘(𝐾 / 𝑁)))) ↔ 𝑃 ∥ (𝐾 − 0))) |
| 29 | 1 | zcnd 12723 |
. . . 4
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → 𝐾 ∈ ℂ) |
| 30 | 29 | subid1d 11609 |
. . 3
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → (𝐾 − 0) = 𝐾) |
| 31 | 30 | breq2d 5155 |
. 2
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → (𝑃 ∥ (𝐾 − 0) ↔ 𝑃 ∥ 𝐾)) |
| 32 | 7, 28, 31 | 3bitrd 305 |
1
⊢ (((𝑃 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝐾 ∈ ℤ) ∧ 𝑃 ∥ 𝑁) → (𝑃 ∥ (𝐾 mod 𝑁) ↔ 𝑃 ∥ 𝐾)) |