Proof of Theorem modaddmodup
Step | Hyp | Ref
| Expression |
1 | | elfzoelz 10103 |
. . . . . . 7
⊢ (𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) → 𝐵 ∈ ℤ) |
2 | 1 | adantr 274 |
. . . . . 6
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → 𝐵 ∈ ℤ) |
3 | | zmodcl 10300 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ) → (𝐴 mod 𝑀) ∈
ℕ0) |
4 | 3 | adantl 275 |
. . . . . . 7
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → (𝐴 mod 𝑀) ∈
ℕ0) |
5 | 4 | nn0zd 9332 |
. . . . . 6
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → (𝐴 mod 𝑀) ∈ ℤ) |
6 | 2, 5 | zaddcld 9338 |
. . . . 5
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → (𝐵 + (𝐴 mod 𝑀)) ∈ ℤ) |
7 | | zq 9585 |
. . . . 5
⊢ ((𝐵 + (𝐴 mod 𝑀)) ∈ ℤ → (𝐵 + (𝐴 mod 𝑀)) ∈ ℚ) |
8 | 6, 7 | syl 14 |
. . . 4
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → (𝐵 + (𝐴 mod 𝑀)) ∈ ℚ) |
9 | | simprr 527 |
. . . . 5
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → 𝑀 ∈ ℕ) |
10 | | nnq 9592 |
. . . . 5
⊢ (𝑀 ∈ ℕ → 𝑀 ∈
ℚ) |
11 | 9, 10 | syl 14 |
. . . 4
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → 𝑀 ∈ ℚ) |
12 | 9 | nngt0d 8922 |
. . . 4
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → 0 < 𝑀) |
13 | | elfzole1 10111 |
. . . . . 6
⊢ (𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) → (𝑀 − (𝐴 mod 𝑀)) ≤ 𝐵) |
14 | 13 | adantr 274 |
. . . . 5
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → (𝑀 − (𝐴 mod 𝑀)) ≤ 𝐵) |
15 | 9 | nnred 8891 |
. . . . . 6
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → 𝑀 ∈ ℝ) |
16 | 3 | nn0red 9189 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ) → (𝐴 mod 𝑀) ∈ ℝ) |
17 | 16 | adantl 275 |
. . . . . 6
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → (𝐴 mod 𝑀) ∈ ℝ) |
18 | 1 | zred 9334 |
. . . . . . 7
⊢ (𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) → 𝐵 ∈ ℝ) |
19 | 18 | adantr 274 |
. . . . . 6
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → 𝐵 ∈ ℝ) |
20 | 15, 17, 19 | lesubaddd 8461 |
. . . . 5
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → ((𝑀 − (𝐴 mod 𝑀)) ≤ 𝐵 ↔ 𝑀 ≤ (𝐵 + (𝐴 mod 𝑀)))) |
21 | 14, 20 | mpbid 146 |
. . . 4
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → 𝑀 ≤ (𝐵 + (𝐴 mod 𝑀))) |
22 | | elfzolt2 10112 |
. . . . . . 7
⊢ (𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) → 𝐵 < 𝑀) |
23 | 22 | adantr 274 |
. . . . . 6
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → 𝐵 < 𝑀) |
24 | | zq 9585 |
. . . . . . . 8
⊢ (𝐴 ∈ ℤ → 𝐴 ∈
ℚ) |
25 | 24 | ad2antrl 487 |
. . . . . . 7
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → 𝐴 ∈ ℚ) |
26 | | modqlt 10289 |
. . . . . . 7
⊢ ((𝐴 ∈ ℚ ∧ 𝑀 ∈ ℚ ∧ 0 <
𝑀) → (𝐴 mod 𝑀) < 𝑀) |
27 | 25, 11, 12, 26 | syl3anc 1233 |
. . . . . 6
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → (𝐴 mod 𝑀) < 𝑀) |
28 | 19, 17, 15, 15, 23, 27 | lt2addd 8486 |
. . . . 5
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → (𝐵 + (𝐴 mod 𝑀)) < (𝑀 + 𝑀)) |
29 | 9 | nncnd 8892 |
. . . . . 6
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → 𝑀 ∈ ℂ) |
30 | 29 | 2timesd 9120 |
. . . . 5
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → (2 · 𝑀) = (𝑀 + 𝑀)) |
31 | 28, 30 | breqtrrd 4017 |
. . . 4
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → (𝐵 + (𝐴 mod 𝑀)) < (2 · 𝑀)) |
32 | | q2submod 10341 |
. . . 4
⊢ ((((𝐵 + (𝐴 mod 𝑀)) ∈ ℚ ∧ 𝑀 ∈ ℚ ∧ 0 < 𝑀) ∧ (𝑀 ≤ (𝐵 + (𝐴 mod 𝑀)) ∧ (𝐵 + (𝐴 mod 𝑀)) < (2 · 𝑀))) → ((𝐵 + (𝐴 mod 𝑀)) mod 𝑀) = ((𝐵 + (𝐴 mod 𝑀)) − 𝑀)) |
33 | 8, 11, 12, 21, 31, 32 | syl32anc 1241 |
. . 3
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → ((𝐵 + (𝐴 mod 𝑀)) mod 𝑀) = ((𝐵 + (𝐴 mod 𝑀)) − 𝑀)) |
34 | | zq 9585 |
. . . . 5
⊢ (𝐵 ∈ ℤ → 𝐵 ∈
ℚ) |
35 | 2, 34 | syl 14 |
. . . 4
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → 𝐵 ∈ ℚ) |
36 | | modqadd2mod 10330 |
. . . 4
⊢ (((𝐴 ∈ ℚ ∧ 𝐵 ∈ ℚ) ∧ (𝑀 ∈ ℚ ∧ 0 <
𝑀)) → ((𝐵 + (𝐴 mod 𝑀)) mod 𝑀) = ((𝐵 + 𝐴) mod 𝑀)) |
37 | 25, 35, 11, 12, 36 | syl22anc 1234 |
. . 3
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → ((𝐵 + (𝐴 mod 𝑀)) mod 𝑀) = ((𝐵 + 𝐴) mod 𝑀)) |
38 | 33, 37 | eqtr3d 2205 |
. 2
⊢ ((𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) ∧ (𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ)) → ((𝐵 + (𝐴 mod 𝑀)) − 𝑀) = ((𝐵 + 𝐴) mod 𝑀)) |
39 | 38 | expcom 115 |
1
⊢ ((𝐴 ∈ ℤ ∧ 𝑀 ∈ ℕ) → (𝐵 ∈ ((𝑀 − (𝐴 mod 𝑀))..^𝑀) → ((𝐵 + (𝐴 mod 𝑀)) − 𝑀) = ((𝐵 + 𝐴) mod 𝑀))) |