Proof of Theorem fzrevral
Step | Hyp | Ref
| Expression |
1 | | simpr 109 |
. . . . . . . 8
⊢ ((((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝐾 ∈ ℤ) ∧ 𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) → 𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) |
2 | | elfzelz 9968 |
. . . . . . . . 9
⊢ (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) → 𝑘 ∈ ℤ) |
3 | | fzrev 10027 |
. . . . . . . . . 10
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝐾 ∈ ℤ ∧ 𝑘 ∈ ℤ)) → (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) ↔ (𝐾 − 𝑘) ∈ (𝑀...𝑁))) |
4 | 3 | anassrs 398 |
. . . . . . . . 9
⊢ ((((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝐾 ∈ ℤ) ∧ 𝑘 ∈ ℤ) → (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) ↔ (𝐾 − 𝑘) ∈ (𝑀...𝑁))) |
5 | 2, 4 | sylan2 284 |
. . . . . . . 8
⊢ ((((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝐾 ∈ ℤ) ∧ 𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) → (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) ↔ (𝐾 − 𝑘) ∈ (𝑀...𝑁))) |
6 | 1, 5 | mpbid 146 |
. . . . . . 7
⊢ ((((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝐾 ∈ ℤ) ∧ 𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) → (𝐾 − 𝑘) ∈ (𝑀...𝑁)) |
7 | | rspsbc 3037 |
. . . . . . 7
⊢ ((𝐾 − 𝑘) ∈ (𝑀...𝑁) → (∀𝑗 ∈ (𝑀...𝑁)𝜑 → [(𝐾 − 𝑘) / 𝑗]𝜑)) |
8 | 6, 7 | syl 14 |
. . . . . 6
⊢ ((((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝐾 ∈ ℤ) ∧ 𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) → (∀𝑗 ∈ (𝑀...𝑁)𝜑 → [(𝐾 − 𝑘) / 𝑗]𝜑)) |
9 | 8 | ex 114 |
. . . . 5
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝐾 ∈ ℤ) → (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) → (∀𝑗 ∈ (𝑀...𝑁)𝜑 → [(𝐾 − 𝑘) / 𝑗]𝜑))) |
10 | 9 | 3impa 1189 |
. . . 4
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ) → (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) → (∀𝑗 ∈ (𝑀...𝑁)𝜑 → [(𝐾 − 𝑘) / 𝑗]𝜑))) |
11 | 10 | com23 78 |
. . 3
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ) →
(∀𝑗 ∈ (𝑀...𝑁)𝜑 → (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) → [(𝐾 − 𝑘) / 𝑗]𝜑))) |
12 | 11 | ralrimdv 2549 |
. 2
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ) →
(∀𝑗 ∈ (𝑀...𝑁)𝜑 → ∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑)) |
13 | | nfv 1521 |
. . . 4
⊢
Ⅎ𝑗 𝐾 ∈ ℤ |
14 | | nfcv 2312 |
. . . . 5
⊢
Ⅎ𝑗((𝐾 − 𝑁)...(𝐾 − 𝑀)) |
15 | | nfsbc1v 2973 |
. . . . 5
⊢
Ⅎ𝑗[(𝐾 − 𝑘) / 𝑗]𝜑 |
16 | 14, 15 | nfralxy 2508 |
. . . 4
⊢
Ⅎ𝑗∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 |
17 | | fzrev2i 10029 |
. . . . . . . 8
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → (𝐾 − 𝑗) ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) |
18 | | oveq2 5858 |
. . . . . . . . . 10
⊢ (𝑘 = (𝐾 − 𝑗) → (𝐾 − 𝑘) = (𝐾 − (𝐾 − 𝑗))) |
19 | 18 | sbceq1d 2960 |
. . . . . . . . 9
⊢ (𝑘 = (𝐾 − 𝑗) → ([(𝐾 − 𝑘) / 𝑗]𝜑 ↔ [(𝐾 − (𝐾 − 𝑗)) / 𝑗]𝜑)) |
20 | 19 | rspcv 2830 |
. . . . . . . 8
⊢ ((𝐾 − 𝑗) ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) → (∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → [(𝐾 − (𝐾 − 𝑗)) / 𝑗]𝜑)) |
21 | 17, 20 | syl 14 |
. . . . . . 7
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → (∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → [(𝐾 − (𝐾 − 𝑗)) / 𝑗]𝜑)) |
22 | | zcn 9204 |
. . . . . . . . . 10
⊢ (𝐾 ∈ ℤ → 𝐾 ∈
ℂ) |
23 | | elfzelz 9968 |
. . . . . . . . . . 11
⊢ (𝑗 ∈ (𝑀...𝑁) → 𝑗 ∈ ℤ) |
24 | 23 | zcnd 9322 |
. . . . . . . . . 10
⊢ (𝑗 ∈ (𝑀...𝑁) → 𝑗 ∈ ℂ) |
25 | | nncan 8135 |
. . . . . . . . . 10
⊢ ((𝐾 ∈ ℂ ∧ 𝑗 ∈ ℂ) → (𝐾 − (𝐾 − 𝑗)) = 𝑗) |
26 | 22, 24, 25 | syl2an 287 |
. . . . . . . . 9
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → (𝐾 − (𝐾 − 𝑗)) = 𝑗) |
27 | 26 | eqcomd 2176 |
. . . . . . . 8
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → 𝑗 = (𝐾 − (𝐾 − 𝑗))) |
28 | | sbceq1a 2964 |
. . . . . . . 8
⊢ (𝑗 = (𝐾 − (𝐾 − 𝑗)) → (𝜑 ↔ [(𝐾 − (𝐾 − 𝑗)) / 𝑗]𝜑)) |
29 | 27, 28 | syl 14 |
. . . . . . 7
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → (𝜑 ↔ [(𝐾 − (𝐾 − 𝑗)) / 𝑗]𝜑)) |
30 | 21, 29 | sylibrd 168 |
. . . . . 6
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → (∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → 𝜑)) |
31 | 30 | ex 114 |
. . . . 5
⊢ (𝐾 ∈ ℤ → (𝑗 ∈ (𝑀...𝑁) → (∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → 𝜑))) |
32 | 31 | com23 78 |
. . . 4
⊢ (𝐾 ∈ ℤ →
(∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → (𝑗 ∈ (𝑀...𝑁) → 𝜑))) |
33 | 13, 16, 32 | ralrimd 2548 |
. . 3
⊢ (𝐾 ∈ ℤ →
(∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → ∀𝑗 ∈ (𝑀...𝑁)𝜑)) |
34 | 33 | 3ad2ant3 1015 |
. 2
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ) →
(∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → ∀𝑗 ∈ (𝑀...𝑁)𝜑)) |
35 | 12, 34 | impbid 128 |
1
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ) →
(∀𝑗 ∈ (𝑀...𝑁)𝜑 ↔ ∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑)) |