Proof of Theorem fzshftralt
| Step | Hyp | Ref
| Expression |
| 1 | | 0z 6103 |
. . . 4
⊢ 0 ∈ ℤ |
| 2 | | fzrevralt 6464 |
. . . 4
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ
⋀ 0 ∈ ℤ) → (∀j
∈ (M...N)φ ↔
∀x ∈ ((0 − N)...(0 − M))[(0 − x) / j]φ)) |
| 3 | 1, 2 | mp3an3 904 |
. . 3
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ)
→ (∀j ∈ (M...N)φ ↔ ∀x ∈ ((0 − N)...(0 − M))[(0 − x) / j]φ)) |
| 4 | 3 | 3adant3 798 |
. 2
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ
⋀ K ∈ ℤ) →
(∀j ∈ (M...N)φ ↔ ∀x ∈ ((0 − N)...(0 − M))[(0 − x) / j]φ)) |
| 5 | | fzrevralt 6464 |
. . . 4
⊢ (((0 − N) ∈ ℤ ⋀ (0 − M) ∈ ℤ ⋀ K ∈ ℤ) → (∀x ∈ ((0 − N)...(0 − M))[(0 − x) / j]φ ↔ ∀k ∈ ((K
− (0 − M))...(K − (0 − N)))[(K −
k) / x][(0 − x)
/ j]φ)) |
| 6 | | zsubclt 6125 |
. . . . 5
⊢ ((0 ∈ ℤ ⋀ N ∈ ℤ) → (0 − N) ∈ ℤ) |
| 7 | 1, 6 | mpan 694 |
. . . 4
⊢ (N
∈ ℤ → (0 − N) ∈
ℤ) |
| 8 | | zsubclt 6125 |
. . . . 5
⊢ ((0 ∈ ℤ ⋀ M ∈ ℤ) → (0 − M) ∈ ℤ) |
| 9 | 1, 8 | mpan 694 |
. . . 4
⊢ (M
∈ ℤ → (0 − M) ∈
ℤ) |
| 10 | | id 59 |
. . . 4
⊢ (K
∈ ℤ → K ∈
ℤ) |
| 11 | 5, 7, 9, 10 | syl3an 867 |
. . 3
⊢ ((N
∈ ℤ ⋀ M ∈ ℤ
⋀ K ∈ ℤ) →
(∀x ∈ ((0 − N)...(0 − M))[(0 − x) / j]φ ↔ ∀k ∈ ((K
− (0 − M))...(K − (0 − N)))[(K −
k) / x][(0 − x)
/ j]φ)) |
| 12 | 11 | 3com12 836 |
. 2
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ
⋀ K ∈ ℤ) →
(∀x ∈ ((0 − N)...(0 − M))[(0 − x) / j]φ ↔ ∀k ∈ ((K
− (0 − M))...(K − (0 − N)))[(K −
k) / x][(0 − x)
/ j]φ)) |
| 13 | | subnegt 5377 |
. . . . . . . . . . 11
⊢ ((K
∈ ℂ ⋀ M ∈ ℂ)
→ (K − -M) = (K +
M)) |
| 14 | | axaddcom 5258 |
. . . . . . . . . . 11
⊢ ((K
∈ ℂ ⋀ M ∈ ℂ)
→ (K + M) = (M +
K)) |
| 15 | 13, 14 | eqtrd 1505 |
. . . . . . . . . 10
⊢ ((K
∈ ℂ ⋀ M ∈ ℂ)
→ (K − -M) = (M +
K)) |
| 16 | | df-neg 5341 |
. . . . . . . . . . 11
⊢ -M =
(0 − M) |
| 17 | 16 | opreq2i 3967 |
. . . . . . . . . 10
⊢ (K
− -M) = (K − (0 − M)) |
| 18 | 15, 17 | syl5eqr 1519 |
. . . . . . . . 9
⊢ ((K
∈ ℂ ⋀ M ∈ ℂ)
→ (K − (0 − M)) = (M +
K)) |
| 19 | 18 | 3adant3 798 |
. . . . . . . 8
⊢ ((K
∈ ℂ ⋀ M ∈ ℂ
⋀ N ∈ ℂ) → (K − (0 − M)) = (M +
K)) |
| 20 | | subnegt 5377 |
. . . . . . . . . . 11
⊢ ((K
∈ ℂ ⋀ N ∈ ℂ)
→ (K − -N) = (K +
N)) |
| 21 | | axaddcom 5258 |
. . . . . . . . . . 11
⊢ ((K
∈ ℂ ⋀ N ∈ ℂ)
→ (K + N) = (N +
K)) |
| 22 | 20, 21 | eqtrd 1505 |
. . . . . . . . . 10
⊢ ((K
∈ ℂ ⋀ N ∈ ℂ)
→ (K − -N) = (N +
K)) |
| 23 | | df-neg 5341 |
. . . . . . . . . . 11
⊢ -N =
(0 − N) |
| 24 | 23 | opreq2i 3967 |
. . . . . . . . . 10
⊢ (K
− -N) = (K − (0 − N)) |
| 25 | 22, 24 | syl5eqr 1519 |
. . . . . . . . 9
⊢ ((K
∈ ℂ ⋀ N ∈ ℂ)
→ (K − (0 − N)) = (N +
K)) |
| 26 | 25 | 3adant2 797 |
. . . . . . . 8
⊢ ((K
∈ ℂ ⋀ M ∈ ℂ
⋀ N ∈ ℂ) → (K − (0 − N)) = (N +
K)) |
| 27 | 19, 26 | opreq12d 3973 |
. . . . . . 7
⊢ ((K
∈ ℂ ⋀ M ∈ ℂ
⋀ N ∈ ℂ) → ((K − (0 − M))...(K −
(0 − N))) = ((M + K)...(N +
K))) |
| 28 | 27 | 3coml 839 |
. . . . . 6
⊢ ((M
∈ ℂ ⋀ N ∈ ℂ
⋀ K ∈ ℂ) → ((K − (0 − M))...(K −
(0 − N))) = ((M + K)...(N +
K))) |
| 29 | | zcnt 6097 |
. . . . . 6
⊢ (M
∈ ℤ → M ∈
ℂ) |
| 30 | | zcnt 6097 |
. . . . . 6
⊢ (N
∈ ℤ → N ∈
ℂ) |
| 31 | | zcnt 6097 |
. . . . . 6
⊢ (K
∈ ℤ → K ∈
ℂ) |
| 32 | 28, 29, 30, 31 | syl3an 867 |
. . . . 5
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ
⋀ K ∈ ℤ) → ((K − (0 − M))...(K −
(0 − N))) = ((M + K)...(N +
K))) |
| 33 | 32 | raleq1d 1787 |
. . . 4
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ
⋀ K ∈ ℤ) →
(∀k ∈ ((K − (0 − M))...(K −
(0 − N)))[(0 − (K − k)) /
j]φ
↔ ∀k ∈ ((M + K)...(N +
K))[(0 − (K − k)) /
j]φ)) |
| 34 | | negsubdi2t 5441 |
. . . . . . . . 9
⊢ ((K
∈ ℂ ⋀ k ∈ ℂ)
→ -(K − k) = (k −
K)) |
| 35 | | df-neg 5341 |
. . . . . . . . 9
⊢ -(K
− k) = (0 − (K − k)) |
| 36 | 34, 35 | syl5eqr 1519 |
. . . . . . . 8
⊢ ((K
∈ ℂ ⋀ k ∈ ℂ)
→ (0 − (K − k)) = (k −
K)) |
| 37 | | elfzelz 6427 |
. . . . . . . . 9
⊢ (k
∈ ((M + K)...(N +
K)) → k ∈ ℤ) |
| 38 | | zcnt 6097 |
. . . . . . . . 9
⊢ (k
∈ ℤ → k ∈
ℂ) |
| 39 | 37, 38 | syl 10 |
. . . . . . . 8
⊢ (k
∈ ((M + K)...(N +
K)) → k ∈ ℂ) |
| 40 | 36, 31, 39 | syl2an 454 |
. . . . . . 7
⊢ ((K
∈ ℤ ⋀ k ∈ ((M + K)...(N +
K))) → (0 − (K − k)) =
(k − K)) |
| 41 | | dfsbcq 1940 |
. . . . . . 7
⊢ ((0 − (K − k)) =
(k − K) → ([(0 − (K − k)) /
j]φ
↔ [(k − K) / j]φ)) |
| 42 | 40, 41 | syl 10 |
. . . . . 6
⊢ ((K
∈ ℤ ⋀ k ∈ ((M + K)...(N +
K))) → ([(0 − (K − k)) /
j]φ
↔ [(k − K) / j]φ)) |
| 43 | 42 | ralbidva 1657 |
. . . . 5
⊢ (K
∈ ℤ → (∀k ∈
((M + K)...(N +
K))[(0 − (K − k)) /
j]φ
↔ ∀k ∈ ((M + K)...(N +
K))[(k
− K) / j]φ)) |
| 44 | 43 | 3ad2ant3 801 |
. . . 4
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ
⋀ K ∈ ℤ) →
(∀k ∈ ((M + K)...(N +
K))[(0 − (K − k)) /
j]φ
↔ ∀k ∈ ((M + K)...(N +
K))[(k
− K) / j]φ)) |
| 45 | 33, 44 | bitrd 527 |
. . 3
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ
⋀ K ∈ ℤ) →
(∀k ∈ ((K − (0 − M))...(K −
(0 − N)))[(0 − (K − k)) /
j]φ
↔ ∀k ∈ ((M + K)...(N +
K))[(k
− K) / j]φ)) |
| 46 | | oprex 3978 |
. . . . 5
⊢ (K
− k) ∈ V |
| 47 | | oprex 3978 |
. . . . . 6
⊢ (0 − x) ∈ V |
| 48 | 47 | ax-gen 962 |
. . . . 5
⊢ ∀x(0 − x)
∈ V |
| 49 | | opreq2 3964 |
. . . . . 6
⊢ (x =
(K − k) → (0 − x) = (0 − (K − k))) |
| 50 | 49 | sbcco3g 2038 |
. . . . 5
⊢ (((K
− k) ∈ V ⋀
∀x(0 − x) ∈ V) → ([(K − k) /
x][(0 − x) / j]φ ↔ [(0 − (K − k)) /
j]φ)) |
| 51 | 46, 48, 50 | mp2an 696 |
. . . 4
⊢ ([(K
− k) / x][(0 − x)
/ j]φ ↔ [(0 − (K − k)) /
j]φ) |
| 52 | 51 | ralbii 1665 |
. . 3
⊢ (∀k ∈ ((K
− (0 − M))...(K − (0 − N)))[(K −
k) / x][(0 − x)
/ j]φ ↔ ∀k ∈ ((K
− (0 − M))...(K − (0 − N)))[(0 − (K − k)) /
j]φ) |
| 53 | 45, 52 | syl5bb 531 |
. 2
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ
⋀ K ∈ ℤ) →
(∀k ∈ ((K − (0 − M))...(K −
(0 − N)))[(K − k) /
x][(0 − x) / j]φ ↔ ∀k ∈ ((M +
K)...(N
+ K))[(k − K) /
j]φ)) |
| 54 | 4, 12, 53 | 3bitrd 543 |
1
⊢ ((M
∈ ℤ ⋀ N ∈ ℤ
⋀ K ∈ ℤ) →
(∀j ∈ (M...N)φ ↔ ∀k ∈ ((M +
K)...(N
+ K))[(k − K) /
j]φ)) |