Proof of Theorem hashfzp1
Step | Hyp | Ref
| Expression |
1 | | eluzel2 9492 |
. . . 4
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → 𝐴 ∈ ℤ) |
2 | | eluzelz 9496 |
. . . 4
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → 𝐵 ∈ ℤ) |
3 | | zdceq 9287 |
. . . 4
⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) →
DECID 𝐴 =
𝐵) |
4 | 1, 2, 3 | syl2anc 409 |
. . 3
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → DECID 𝐴 = 𝐵) |
5 | | exmiddc 831 |
. . 3
⊢
(DECID 𝐴 = 𝐵 → (𝐴 = 𝐵 ∨ ¬ 𝐴 = 𝐵)) |
6 | 4, 5 | syl 14 |
. 2
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → (𝐴 = 𝐵 ∨ ¬ 𝐴 = 𝐵)) |
7 | | hash0 10731 |
. . . . 5
⊢
(♯‘∅) = 0 |
8 | | eluzelre 9497 |
. . . . . . . 8
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → 𝐵 ∈ ℝ) |
9 | 8 | ltp1d 8846 |
. . . . . . 7
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → 𝐵 < (𝐵 + 1)) |
10 | | peano2z 9248 |
. . . . . . . . 9
⊢ (𝐵 ∈ ℤ → (𝐵 + 1) ∈
ℤ) |
11 | 10 | ancri 322 |
. . . . . . . 8
⊢ (𝐵 ∈ ℤ → ((𝐵 + 1) ∈ ℤ ∧ 𝐵 ∈
ℤ)) |
12 | | fzn 9998 |
. . . . . . . 8
⊢ (((𝐵 + 1) ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐵 < (𝐵 + 1) ↔ ((𝐵 + 1)...𝐵) = ∅)) |
13 | 2, 11, 12 | 3syl 17 |
. . . . . . 7
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → (𝐵 < (𝐵 + 1) ↔ ((𝐵 + 1)...𝐵) = ∅)) |
14 | 9, 13 | mpbid 146 |
. . . . . 6
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → ((𝐵 + 1)...𝐵) = ∅) |
15 | 14 | fveq2d 5500 |
. . . . 5
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → (♯‘((𝐵 + 1)...𝐵)) =
(♯‘∅)) |
16 | 2 | zcnd 9335 |
. . . . . 6
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → 𝐵 ∈ ℂ) |
17 | 16 | subidd 8218 |
. . . . 5
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → (𝐵 − 𝐵) = 0) |
18 | 7, 15, 17 | 3eqtr4a 2229 |
. . . 4
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → (♯‘((𝐵 + 1)...𝐵)) = (𝐵 − 𝐵)) |
19 | | oveq1 5860 |
. . . . . . 7
⊢ (𝐴 = 𝐵 → (𝐴 + 1) = (𝐵 + 1)) |
20 | 19 | oveq1d 5868 |
. . . . . 6
⊢ (𝐴 = 𝐵 → ((𝐴 + 1)...𝐵) = ((𝐵 + 1)...𝐵)) |
21 | 20 | fveq2d 5500 |
. . . . 5
⊢ (𝐴 = 𝐵 → (♯‘((𝐴 + 1)...𝐵)) = (♯‘((𝐵 + 1)...𝐵))) |
22 | | oveq2 5861 |
. . . . 5
⊢ (𝐴 = 𝐵 → (𝐵 − 𝐴) = (𝐵 − 𝐵)) |
23 | 21, 22 | eqeq12d 2185 |
. . . 4
⊢ (𝐴 = 𝐵 → ((♯‘((𝐴 + 1)...𝐵)) = (𝐵 − 𝐴) ↔ (♯‘((𝐵 + 1)...𝐵)) = (𝐵 − 𝐵))) |
24 | 18, 23 | syl5ibr 155 |
. . 3
⊢ (𝐴 = 𝐵 → (𝐵 ∈ (ℤ≥‘𝐴) → (♯‘((𝐴 + 1)...𝐵)) = (𝐵 − 𝐴))) |
25 | | uzp1 9520 |
. . . . . . . 8
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → (𝐵 = 𝐴 ∨ 𝐵 ∈ (ℤ≥‘(𝐴 + 1)))) |
26 | | pm2.24 616 |
. . . . . . . . . 10
⊢ (𝐴 = 𝐵 → (¬ 𝐴 = 𝐵 → 𝐵 ∈ (ℤ≥‘(𝐴 + 1)))) |
27 | 26 | eqcoms 2173 |
. . . . . . . . 9
⊢ (𝐵 = 𝐴 → (¬ 𝐴 = 𝐵 → 𝐵 ∈ (ℤ≥‘(𝐴 + 1)))) |
28 | | ax-1 6 |
. . . . . . . . 9
⊢ (𝐵 ∈
(ℤ≥‘(𝐴 + 1)) → (¬ 𝐴 = 𝐵 → 𝐵 ∈ (ℤ≥‘(𝐴 + 1)))) |
29 | 27, 28 | jaoi 711 |
. . . . . . . 8
⊢ ((𝐵 = 𝐴 ∨ 𝐵 ∈ (ℤ≥‘(𝐴 + 1))) → (¬ 𝐴 = 𝐵 → 𝐵 ∈ (ℤ≥‘(𝐴 + 1)))) |
30 | 25, 29 | syl 14 |
. . . . . . 7
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → (¬ 𝐴 = 𝐵 → 𝐵 ∈ (ℤ≥‘(𝐴 + 1)))) |
31 | 30 | impcom 124 |
. . . . . 6
⊢ ((¬
𝐴 = 𝐵 ∧ 𝐵 ∈ (ℤ≥‘𝐴)) → 𝐵 ∈ (ℤ≥‘(𝐴 + 1))) |
32 | | hashfz 10756 |
. . . . . 6
⊢ (𝐵 ∈
(ℤ≥‘(𝐴 + 1)) → (♯‘((𝐴 + 1)...𝐵)) = ((𝐵 − (𝐴 + 1)) + 1)) |
33 | 31, 32 | syl 14 |
. . . . 5
⊢ ((¬
𝐴 = 𝐵 ∧ 𝐵 ∈ (ℤ≥‘𝐴)) → (♯‘((𝐴 + 1)...𝐵)) = ((𝐵 − (𝐴 + 1)) + 1)) |
34 | 1 | zcnd 9335 |
. . . . . . 7
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → 𝐴 ∈ ℂ) |
35 | | 1cnd 7936 |
. . . . . . 7
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → 1 ∈ ℂ) |
36 | 16, 34, 35 | nppcan2d 8256 |
. . . . . 6
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → ((𝐵 − (𝐴 + 1)) + 1) = (𝐵 − 𝐴)) |
37 | 36 | adantl 275 |
. . . . 5
⊢ ((¬
𝐴 = 𝐵 ∧ 𝐵 ∈ (ℤ≥‘𝐴)) → ((𝐵 − (𝐴 + 1)) + 1) = (𝐵 − 𝐴)) |
38 | 33, 37 | eqtrd 2203 |
. . . 4
⊢ ((¬
𝐴 = 𝐵 ∧ 𝐵 ∈ (ℤ≥‘𝐴)) → (♯‘((𝐴 + 1)...𝐵)) = (𝐵 − 𝐴)) |
39 | 38 | ex 114 |
. . 3
⊢ (¬
𝐴 = 𝐵 → (𝐵 ∈ (ℤ≥‘𝐴) → (♯‘((𝐴 + 1)...𝐵)) = (𝐵 − 𝐴))) |
40 | 24, 39 | jaoi 711 |
. 2
⊢ ((𝐴 = 𝐵 ∨ ¬ 𝐴 = 𝐵) → (𝐵 ∈ (ℤ≥‘𝐴) → (♯‘((𝐴 + 1)...𝐵)) = (𝐵 − 𝐴))) |
41 | 6, 40 | mpcom 36 |
1
⊢ (𝐵 ∈
(ℤ≥‘𝐴) → (♯‘((𝐴 + 1)...𝐵)) = (𝐵 − 𝐴)) |