Proof of Theorem difmodm1lt
| Step | Hyp | Ref
| Expression |
| 1 | | peano2zm 12583 |
. . . . . . . 8
⊢ (𝐴 ∈ ℤ → (𝐴 − 1) ∈
ℤ) |
| 2 | 1 | 3ad2ant1 1133 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → (𝐴 − 1) ∈
ℤ) |
| 3 | 2 | zred 12645 |
. . . . . 6
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → (𝐴 − 1) ∈
ℝ) |
| 4 | | nnrp 12970 |
. . . . . . 7
⊢ (𝑁 ∈ ℕ → 𝑁 ∈
ℝ+) |
| 5 | 4 | 3ad2ant2 1134 |
. . . . . 6
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → 𝑁 ∈
ℝ+) |
| 6 | 3, 5 | modcld 13844 |
. . . . 5
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → ((𝐴 − 1) mod 𝑁) ∈
ℝ) |
| 7 | 6 | recnd 11209 |
. . . 4
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → ((𝐴 − 1) mod 𝑁) ∈
ℂ) |
| 8 | | zre 12540 |
. . . . . . 7
⊢ (𝐴 ∈ ℤ → 𝐴 ∈
ℝ) |
| 9 | 8 | 3ad2ant1 1133 |
. . . . . 6
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → 𝐴 ∈ ℝ) |
| 10 | 9, 5 | modcld 13844 |
. . . . 5
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → (𝐴 mod 𝑁) ∈ ℝ) |
| 11 | 10 | recnd 11209 |
. . . 4
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → (𝐴 mod 𝑁) ∈ ℂ) |
| 12 | 7, 11 | negsubdi2d 11556 |
. . 3
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → -(((𝐴 − 1) mod 𝑁) − (𝐴 mod 𝑁)) = ((𝐴 mod 𝑁) − ((𝐴 − 1) mod 𝑁))) |
| 13 | | m1modmmod 47363 |
. . . . 5
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (((𝐴 − 1) mod 𝑁) − (𝐴 mod 𝑁)) = if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1)) |
| 14 | 13 | 3adant3 1132 |
. . . 4
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → (((𝐴 − 1) mod 𝑁) − (𝐴 mod 𝑁)) = if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1)) |
| 15 | 14 | negeqd 11422 |
. . 3
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → -(((𝐴 − 1) mod 𝑁) − (𝐴 mod 𝑁)) = -if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1)) |
| 16 | 12, 15 | eqtr3d 2767 |
. 2
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → ((𝐴 mod 𝑁) − ((𝐴 − 1) mod 𝑁)) = -if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1)) |
| 17 | | iftrue 4497 |
. . . . . 6
⊢ ((𝐴 mod 𝑁) = 0 → if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1) = (𝑁 − 1)) |
| 18 | 17 | adantr 480 |
. . . . 5
⊢ (((𝐴 mod 𝑁) = 0 ∧ (𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 < 𝑁)) → if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1) = (𝑁 − 1)) |
| 19 | 18 | negeqd 11422 |
. . . 4
⊢ (((𝐴 mod 𝑁) = 0 ∧ (𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 < 𝑁)) → -if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1) = -(𝑁 − 1)) |
| 20 | | 1red 11182 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → 1 ∈
ℝ) |
| 21 | | 2re 12267 |
. . . . . . . . 9
⊢ 2 ∈
ℝ |
| 22 | 21 | a1i 11 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → 2 ∈
ℝ) |
| 23 | | nnre 12200 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℕ → 𝑁 ∈
ℝ) |
| 24 | 23 | 3ad2ant2 1134 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → 𝑁 ∈ ℝ) |
| 25 | | 1lt2 12359 |
. . . . . . . . 9
⊢ 1 <
2 |
| 26 | 25 | a1i 11 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → 1 <
2) |
| 27 | | simp3 1138 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → 2 < 𝑁) |
| 28 | 20, 22, 24, 26, 27 | lttrd 11342 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → 1 < 𝑁) |
| 29 | | difrp 12998 |
. . . . . . . 8
⊢ ((1
∈ ℝ ∧ 𝑁
∈ ℝ) → (1 < 𝑁 ↔ (𝑁 − 1) ∈
ℝ+)) |
| 30 | 20, 24, 29 | syl2anc 584 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → (1 < 𝑁 ↔ (𝑁 − 1) ∈
ℝ+)) |
| 31 | 28, 30 | mpbid 232 |
. . . . . 6
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → (𝑁 − 1) ∈
ℝ+) |
| 32 | | neglt 12978 |
. . . . . 6
⊢ ((𝑁 − 1) ∈
ℝ+ → -(𝑁 − 1) < (𝑁 − 1)) |
| 33 | 31, 32 | syl 17 |
. . . . 5
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → -(𝑁 − 1) < (𝑁 − 1)) |
| 34 | 33 | adantl 481 |
. . . 4
⊢ (((𝐴 mod 𝑁) = 0 ∧ (𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 < 𝑁)) → -(𝑁 − 1) < (𝑁 − 1)) |
| 35 | 19, 34 | eqbrtrd 5132 |
. . 3
⊢ (((𝐴 mod 𝑁) = 0 ∧ (𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 < 𝑁)) → -if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1) < (𝑁 − 1)) |
| 36 | | iffalse 4500 |
. . . . . 6
⊢ (¬
(𝐴 mod 𝑁) = 0 → if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1) = -1) |
| 37 | 36 | adantr 480 |
. . . . 5
⊢ ((¬
(𝐴 mod 𝑁) = 0 ∧ (𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 < 𝑁)) → if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1) = -1) |
| 38 | 37 | negeqd 11422 |
. . . 4
⊢ ((¬
(𝐴 mod 𝑁) = 0 ∧ (𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 < 𝑁)) → -if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1) = --1) |
| 39 | | negneg1e1 12182 |
. . . . . 6
⊢ --1 =
1 |
| 40 | | df-2 12256 |
. . . . . . . . . 10
⊢ 2 = (1 +
1) |
| 41 | 40 | breq1i 5117 |
. . . . . . . . 9
⊢ (2 <
𝑁 ↔ (1 + 1) < 𝑁) |
| 42 | 41 | biimpi 216 |
. . . . . . . 8
⊢ (2 <
𝑁 → (1 + 1) < 𝑁) |
| 43 | 42 | 3ad2ant3 1135 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → (1 + 1) <
𝑁) |
| 44 | 20, 20, 24 | ltaddsub2d 11786 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → ((1 + 1) <
𝑁 ↔ 1 < (𝑁 − 1))) |
| 45 | 43, 44 | mpbid 232 |
. . . . . 6
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → 1 < (𝑁 − 1)) |
| 46 | 39, 45 | eqbrtrid 5145 |
. . . . 5
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → --1 < (𝑁 − 1)) |
| 47 | 46 | adantl 481 |
. . . 4
⊢ ((¬
(𝐴 mod 𝑁) = 0 ∧ (𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 < 𝑁)) → --1 < (𝑁 − 1)) |
| 48 | 38, 47 | eqbrtrd 5132 |
. . 3
⊢ ((¬
(𝐴 mod 𝑁) = 0 ∧ (𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 < 𝑁)) → -if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1) < (𝑁 − 1)) |
| 49 | 35, 48 | pm2.61ian 811 |
. 2
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → -if((𝐴 mod 𝑁) = 0, (𝑁 − 1), -1) < (𝑁 − 1)) |
| 50 | 16, 49 | eqbrtrd 5132 |
1
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ ∧ 2 <
𝑁) → ((𝐴 mod 𝑁) − ((𝐴 − 1) mod 𝑁)) < (𝑁 − 1)) |