Proof of Theorem fzrevral
| Step | Hyp | Ref | Expression | 
|---|
| 1 |  | simpr 484 | . . . . . . 7
⊢ ((((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝐾 ∈ ℤ) ∧ 𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) → 𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) | 
| 2 |  | elfzelz 13564 | . . . . . . . 8
⊢ (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) → 𝑘 ∈ ℤ) | 
| 3 |  | fzrev 13627 | . . . . . . . . 9
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝐾 ∈ ℤ ∧ 𝑘 ∈ ℤ)) → (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) ↔ (𝐾 − 𝑘) ∈ (𝑀...𝑁))) | 
| 4 | 3 | anassrs 467 | . . . . . . . 8
⊢ ((((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝐾 ∈ ℤ) ∧ 𝑘 ∈ ℤ) → (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) ↔ (𝐾 − 𝑘) ∈ (𝑀...𝑁))) | 
| 5 | 2, 4 | sylan2 593 | . . . . . . 7
⊢ ((((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝐾 ∈ ℤ) ∧ 𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) → (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) ↔ (𝐾 − 𝑘) ∈ (𝑀...𝑁))) | 
| 6 | 1, 5 | mpbid 232 | . . . . . 6
⊢ ((((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝐾 ∈ ℤ) ∧ 𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) → (𝐾 − 𝑘) ∈ (𝑀...𝑁)) | 
| 7 |  | rspsbc 3879 | . . . . . 6
⊢ ((𝐾 − 𝑘) ∈ (𝑀...𝑁) → (∀𝑗 ∈ (𝑀...𝑁)𝜑 → [(𝐾 − 𝑘) / 𝑗]𝜑)) | 
| 8 | 6, 7 | syl 17 | . . . . 5
⊢ ((((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝐾 ∈ ℤ) ∧ 𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) → (∀𝑗 ∈ (𝑀...𝑁)𝜑 → [(𝐾 − 𝑘) / 𝑗]𝜑)) | 
| 9 | 8 | ex3 1347 | . . . 4
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ) → (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) → (∀𝑗 ∈ (𝑀...𝑁)𝜑 → [(𝐾 − 𝑘) / 𝑗]𝜑))) | 
| 10 | 9 | com23 86 | . . 3
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ) →
(∀𝑗 ∈ (𝑀...𝑁)𝜑 → (𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) → [(𝐾 − 𝑘) / 𝑗]𝜑))) | 
| 11 | 10 | ralrimdv 3152 | . 2
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ) →
(∀𝑗 ∈ (𝑀...𝑁)𝜑 → ∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑)) | 
| 12 |  | nfv 1914 | . . . 4
⊢
Ⅎ𝑗 𝐾 ∈ ℤ | 
| 13 |  | nfcv 2905 | . . . . 5
⊢
Ⅎ𝑗((𝐾 − 𝑁)...(𝐾 − 𝑀)) | 
| 14 |  | nfsbc1v 3808 | . . . . 5
⊢
Ⅎ𝑗[(𝐾 − 𝑘) / 𝑗]𝜑 | 
| 15 | 13, 14 | nfralw 3311 | . . . 4
⊢
Ⅎ𝑗∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 | 
| 16 |  | fzrev2i 13629 | . . . . . . . 8
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → (𝐾 − 𝑗) ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))) | 
| 17 |  | oveq2 7439 | . . . . . . . . . 10
⊢ (𝑘 = (𝐾 − 𝑗) → (𝐾 − 𝑘) = (𝐾 − (𝐾 − 𝑗))) | 
| 18 | 17 | sbceq1d 3793 | . . . . . . . . 9
⊢ (𝑘 = (𝐾 − 𝑗) → ([(𝐾 − 𝑘) / 𝑗]𝜑 ↔ [(𝐾 − (𝐾 − 𝑗)) / 𝑗]𝜑)) | 
| 19 | 18 | rspcv 3618 | . . . . . . . 8
⊢ ((𝐾 − 𝑗) ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀)) → (∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → [(𝐾 − (𝐾 − 𝑗)) / 𝑗]𝜑)) | 
| 20 | 16, 19 | syl 17 | . . . . . . 7
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → (∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → [(𝐾 − (𝐾 − 𝑗)) / 𝑗]𝜑)) | 
| 21 |  | zcn 12618 | . . . . . . . . . 10
⊢ (𝐾 ∈ ℤ → 𝐾 ∈
ℂ) | 
| 22 |  | elfzelz 13564 | . . . . . . . . . . 11
⊢ (𝑗 ∈ (𝑀...𝑁) → 𝑗 ∈ ℤ) | 
| 23 | 22 | zcnd 12723 | . . . . . . . . . 10
⊢ (𝑗 ∈ (𝑀...𝑁) → 𝑗 ∈ ℂ) | 
| 24 |  | nncan 11538 | . . . . . . . . . 10
⊢ ((𝐾 ∈ ℂ ∧ 𝑗 ∈ ℂ) → (𝐾 − (𝐾 − 𝑗)) = 𝑗) | 
| 25 | 21, 23, 24 | syl2an 596 | . . . . . . . . 9
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → (𝐾 − (𝐾 − 𝑗)) = 𝑗) | 
| 26 | 25 | eqcomd 2743 | . . . . . . . 8
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → 𝑗 = (𝐾 − (𝐾 − 𝑗))) | 
| 27 |  | sbceq1a 3799 | . . . . . . . 8
⊢ (𝑗 = (𝐾 − (𝐾 − 𝑗)) → (𝜑 ↔ [(𝐾 − (𝐾 − 𝑗)) / 𝑗]𝜑)) | 
| 28 | 26, 27 | syl 17 | . . . . . . 7
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → (𝜑 ↔ [(𝐾 − (𝐾 − 𝑗)) / 𝑗]𝜑)) | 
| 29 | 20, 28 | sylibrd 259 | . . . . . 6
⊢ ((𝐾 ∈ ℤ ∧ 𝑗 ∈ (𝑀...𝑁)) → (∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → 𝜑)) | 
| 30 | 29 | ex 412 | . . . . 5
⊢ (𝐾 ∈ ℤ → (𝑗 ∈ (𝑀...𝑁) → (∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → 𝜑))) | 
| 31 | 30 | com23 86 | . . . 4
⊢ (𝐾 ∈ ℤ →
(∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → (𝑗 ∈ (𝑀...𝑁) → 𝜑))) | 
| 32 | 12, 15, 31 | ralrimd 3264 | . . 3
⊢ (𝐾 ∈ ℤ →
(∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → ∀𝑗 ∈ (𝑀...𝑁)𝜑)) | 
| 33 | 32 | 3ad2ant3 1136 | . 2
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ) →
(∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑 → ∀𝑗 ∈ (𝑀...𝑁)𝜑)) | 
| 34 | 11, 33 | impbid 212 | 1
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ) →
(∀𝑗 ∈ (𝑀...𝑁)𝜑 ↔ ∀𝑘 ∈ ((𝐾 − 𝑁)...(𝐾 − 𝑀))[(𝐾 − 𝑘) / 𝑗]𝜑)) |