Proof of Theorem modqltm1p1mod
Step | Hyp | Ref
| Expression |
1 | | simpll 519 |
. . 3
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → 𝐴 ∈ ℚ) |
2 | | 1z 9217 |
. . . 4
⊢ 1 ∈
ℤ |
3 | | zq 9564 |
. . . 4
⊢ (1 ∈
ℤ → 1 ∈ ℚ) |
4 | 2, 3 | mp1i 10 |
. . 3
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → 1 ∈
ℚ) |
5 | | simprl 521 |
. . 3
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → 𝑀 ∈ ℚ) |
6 | | simprr 522 |
. . 3
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → 0 < 𝑀) |
7 | | modqaddmod 10298 |
. . 3
⊢ (((𝐴 ∈ ℚ ∧ 1 ∈
ℚ) ∧ (𝑀 ∈
ℚ ∧ 0 < 𝑀))
→ (((𝐴 mod 𝑀) + 1) mod 𝑀) = ((𝐴 + 1) mod 𝑀)) |
8 | 1, 4, 5, 6, 7 | syl22anc 1229 |
. 2
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → (((𝐴 mod 𝑀) + 1) mod 𝑀) = ((𝐴 + 1) mod 𝑀)) |
9 | 1, 5, 6 | modqcld 10263 |
. . . 4
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → (𝐴 mod 𝑀) ∈ ℚ) |
10 | | qaddcl 9573 |
. . . 4
⊢ (((𝐴 mod 𝑀) ∈ ℚ ∧ 1 ∈ ℚ)
→ ((𝐴 mod 𝑀) + 1) ∈
ℚ) |
11 | 9, 4, 10 | syl2anc 409 |
. . 3
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → ((𝐴 mod 𝑀) + 1) ∈ ℚ) |
12 | | 0red 7900 |
. . . 4
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → 0 ∈
ℝ) |
13 | | qre 9563 |
. . . . 5
⊢ ((𝐴 mod 𝑀) ∈ ℚ → (𝐴 mod 𝑀) ∈ ℝ) |
14 | 9, 13 | syl 14 |
. . . 4
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → (𝐴 mod 𝑀) ∈ ℝ) |
15 | | 1red 7914 |
. . . . 5
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → 1 ∈
ℝ) |
16 | 14, 15 | readdcld 7928 |
. . . 4
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → ((𝐴 mod 𝑀) + 1) ∈ ℝ) |
17 | | modqge0 10267 |
. . . . 5
⊢ ((𝐴 ∈ ℚ ∧ 𝑀 ∈ ℚ ∧ 0 <
𝑀) → 0 ≤ (𝐴 mod 𝑀)) |
18 | 1, 5, 6, 17 | syl3anc 1228 |
. . . 4
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → 0 ≤ (𝐴 mod 𝑀)) |
19 | 14 | lep1d 8826 |
. . . 4
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → (𝐴 mod 𝑀) ≤ ((𝐴 mod 𝑀) + 1)) |
20 | 12, 14, 16, 18, 19 | letrd 8022 |
. . 3
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → 0 ≤ ((𝐴 mod 𝑀) + 1)) |
21 | | simplr 520 |
. . . 4
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → (𝐴 mod 𝑀) < (𝑀 − 1)) |
22 | | qre 9563 |
. . . . . 6
⊢ (𝑀 ∈ ℚ → 𝑀 ∈
ℝ) |
23 | 5, 22 | syl 14 |
. . . . 5
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → 𝑀 ∈ ℝ) |
24 | 14, 15, 23 | ltaddsubd 8443 |
. . . 4
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → (((𝐴 mod 𝑀) + 1) < 𝑀 ↔ (𝐴 mod 𝑀) < (𝑀 − 1))) |
25 | 21, 24 | mpbird 166 |
. . 3
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → ((𝐴 mod 𝑀) + 1) < 𝑀) |
26 | | modqid 10284 |
. . 3
⊢
(((((𝐴 mod 𝑀) + 1) ∈ ℚ ∧
𝑀 ∈ ℚ) ∧ (0
≤ ((𝐴 mod 𝑀) + 1) ∧ ((𝐴 mod 𝑀) + 1) < 𝑀)) → (((𝐴 mod 𝑀) + 1) mod 𝑀) = ((𝐴 mod 𝑀) + 1)) |
27 | 11, 5, 20, 25, 26 | syl22anc 1229 |
. 2
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → (((𝐴 mod 𝑀) + 1) mod 𝑀) = ((𝐴 mod 𝑀) + 1)) |
28 | 8, 27 | eqtr3d 2200 |
1
⊢ (((𝐴 ∈ ℚ ∧ (𝐴 mod 𝑀) < (𝑀 − 1)) ∧ (𝑀 ∈ ℚ ∧ 0 < 𝑀)) → ((𝐴 + 1) mod 𝑀) = ((𝐴 mod 𝑀) + 1)) |