Proof of Theorem fargshiftfva
Step | Hyp | Ref
| Expression |
1 | | fargshiftlem 26162 |
. . . . . . 7
⊢ ((𝑁 ∈ ℕ0
∧ 𝑙 ∈ (0..^𝑁)) → (𝑙 + 1) ∈ (1...𝑁)) |
2 | | simpl 472 |
. . . . . . . . . . 11
⊢ (((𝑙 + 1) ∈ (1...𝑁) ∧ (𝑁 ∈ ℕ0 ∧ 𝑙 ∈ (0..^𝑁))) → (𝑙 + 1) ∈ (1...𝑁)) |
3 | 2 | adantr 480 |
. . . . . . . . . 10
⊢ ((((𝑙 + 1) ∈ (1...𝑁) ∧ (𝑁 ∈ ℕ0 ∧ 𝑙 ∈ (0..^𝑁))) ∧ 𝐹:(1...𝑁)⟶dom 𝐸) → (𝑙 + 1) ∈ (1...𝑁)) |
4 | | fveq2 6103 |
. . . . . . . . . . . . . 14
⊢ (𝑘 = (𝑙 + 1) → (𝐹‘𝑘) = (𝐹‘(𝑙 + 1))) |
5 | 4 | fveq2d 6107 |
. . . . . . . . . . . . 13
⊢ (𝑘 = (𝑙 + 1) → (𝐸‘(𝐹‘𝑘)) = (𝐸‘(𝐹‘(𝑙 + 1)))) |
6 | | csbeq1 3502 |
. . . . . . . . . . . . 13
⊢ (𝑘 = (𝑙 + 1) → ⦋𝑘 / 𝑥⦌𝑃 = ⦋(𝑙 + 1) / 𝑥⦌𝑃) |
7 | 5, 6 | eqeq12d 2625 |
. . . . . . . . . . . 12
⊢ (𝑘 = (𝑙 + 1) → ((𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃 ↔ (𝐸‘(𝐹‘(𝑙 + 1))) = ⦋(𝑙 + 1) / 𝑥⦌𝑃)) |
8 | 7 | adantl 481 |
. . . . . . . . . . 11
⊢
(((((𝑙 + 1) ∈
(1...𝑁) ∧ (𝑁 ∈ ℕ0
∧ 𝑙 ∈ (0..^𝑁))) ∧ 𝐹:(1...𝑁)⟶dom 𝐸) ∧ 𝑘 = (𝑙 + 1)) → ((𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃 ↔ (𝐸‘(𝐹‘(𝑙 + 1))) = ⦋(𝑙 + 1) / 𝑥⦌𝑃)) |
9 | | simpl 472 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝑁 ∈ ℕ0
∧ 𝑙 ∈ (0..^𝑁)) → 𝑁 ∈
ℕ0) |
10 | 9 | adantl 481 |
. . . . . . . . . . . . . . . 16
⊢ (((𝑙 + 1) ∈ (1...𝑁) ∧ (𝑁 ∈ ℕ0 ∧ 𝑙 ∈ (0..^𝑁))) → 𝑁 ∈
ℕ0) |
11 | 10 | anim1i 590 |
. . . . . . . . . . . . . . 15
⊢ ((((𝑙 + 1) ∈ (1...𝑁) ∧ (𝑁 ∈ ℕ0 ∧ 𝑙 ∈ (0..^𝑁))) ∧ 𝐹:(1...𝑁)⟶dom 𝐸) → (𝑁 ∈ ℕ0 ∧ 𝐹:(1...𝑁)⟶dom 𝐸)) |
12 | 11 | adantr 480 |
. . . . . . . . . . . . . 14
⊢
(((((𝑙 + 1) ∈
(1...𝑁) ∧ (𝑁 ∈ ℕ0
∧ 𝑙 ∈ (0..^𝑁))) ∧ 𝐹:(1...𝑁)⟶dom 𝐸) ∧ 𝑘 = (𝑙 + 1)) → (𝑁 ∈ ℕ0 ∧ 𝐹:(1...𝑁)⟶dom 𝐸)) |
13 | | simpr 476 |
. . . . . . . . . . . . . . 15
⊢ ((𝑁 ∈ ℕ0
∧ 𝑙 ∈ (0..^𝑁)) → 𝑙 ∈ (0..^𝑁)) |
14 | 13 | ad3antlr 763 |
. . . . . . . . . . . . . 14
⊢
(((((𝑙 + 1) ∈
(1...𝑁) ∧ (𝑁 ∈ ℕ0
∧ 𝑙 ∈ (0..^𝑁))) ∧ 𝐹:(1...𝑁)⟶dom 𝐸) ∧ 𝑘 = (𝑙 + 1)) → 𝑙 ∈ (0..^𝑁)) |
15 | | fargshift.g |
. . . . . . . . . . . . . . . . 17
⊢ 𝐺 = (𝑥 ∈ (0..^(#‘𝐹)) ↦ (𝐹‘(𝑥 + 1))) |
16 | 15 | fargshiftfv 26163 |
. . . . . . . . . . . . . . . 16
⊢ ((𝑁 ∈ ℕ0
∧ 𝐹:(1...𝑁)⟶dom 𝐸) → (𝑙 ∈ (0..^𝑁) → (𝐺‘𝑙) = (𝐹‘(𝑙 + 1)))) |
17 | 16 | imp 444 |
. . . . . . . . . . . . . . 15
⊢ (((𝑁 ∈ ℕ0
∧ 𝐹:(1...𝑁)⟶dom 𝐸) ∧ 𝑙 ∈ (0..^𝑁)) → (𝐺‘𝑙) = (𝐹‘(𝑙 + 1))) |
18 | 17 | eqcomd 2616 |
. . . . . . . . . . . . . 14
⊢ (((𝑁 ∈ ℕ0
∧ 𝐹:(1...𝑁)⟶dom 𝐸) ∧ 𝑙 ∈ (0..^𝑁)) → (𝐹‘(𝑙 + 1)) = (𝐺‘𝑙)) |
19 | 12, 14, 18 | syl2anc 691 |
. . . . . . . . . . . . 13
⊢
(((((𝑙 + 1) ∈
(1...𝑁) ∧ (𝑁 ∈ ℕ0
∧ 𝑙 ∈ (0..^𝑁))) ∧ 𝐹:(1...𝑁)⟶dom 𝐸) ∧ 𝑘 = (𝑙 + 1)) → (𝐹‘(𝑙 + 1)) = (𝐺‘𝑙)) |
20 | 19 | fveq2d 6107 |
. . . . . . . . . . . 12
⊢
(((((𝑙 + 1) ∈
(1...𝑁) ∧ (𝑁 ∈ ℕ0
∧ 𝑙 ∈ (0..^𝑁))) ∧ 𝐹:(1...𝑁)⟶dom 𝐸) ∧ 𝑘 = (𝑙 + 1)) → (𝐸‘(𝐹‘(𝑙 + 1))) = (𝐸‘(𝐺‘𝑙))) |
21 | 20 | eqeq1d 2612 |
. . . . . . . . . . 11
⊢
(((((𝑙 + 1) ∈
(1...𝑁) ∧ (𝑁 ∈ ℕ0
∧ 𝑙 ∈ (0..^𝑁))) ∧ 𝐹:(1...𝑁)⟶dom 𝐸) ∧ 𝑘 = (𝑙 + 1)) → ((𝐸‘(𝐹‘(𝑙 + 1))) = ⦋(𝑙 + 1) / 𝑥⦌𝑃 ↔ (𝐸‘(𝐺‘𝑙)) = ⦋(𝑙 + 1) / 𝑥⦌𝑃)) |
22 | 8, 21 | bitrd 267 |
. . . . . . . . . 10
⊢
(((((𝑙 + 1) ∈
(1...𝑁) ∧ (𝑁 ∈ ℕ0
∧ 𝑙 ∈ (0..^𝑁))) ∧ 𝐹:(1...𝑁)⟶dom 𝐸) ∧ 𝑘 = (𝑙 + 1)) → ((𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃 ↔ (𝐸‘(𝐺‘𝑙)) = ⦋(𝑙 + 1) / 𝑥⦌𝑃)) |
23 | 3, 22 | rspcdv 3285 |
. . . . . . . . 9
⊢ ((((𝑙 + 1) ∈ (1...𝑁) ∧ (𝑁 ∈ ℕ0 ∧ 𝑙 ∈ (0..^𝑁))) ∧ 𝐹:(1...𝑁)⟶dom 𝐸) → (∀𝑘 ∈ (1...𝑁)(𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃 → (𝐸‘(𝐺‘𝑙)) = ⦋(𝑙 + 1) / 𝑥⦌𝑃)) |
24 | 23 | ex 449 |
. . . . . . . 8
⊢ (((𝑙 + 1) ∈ (1...𝑁) ∧ (𝑁 ∈ ℕ0 ∧ 𝑙 ∈ (0..^𝑁))) → (𝐹:(1...𝑁)⟶dom 𝐸 → (∀𝑘 ∈ (1...𝑁)(𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃 → (𝐸‘(𝐺‘𝑙)) = ⦋(𝑙 + 1) / 𝑥⦌𝑃))) |
25 | 24 | com23 84 |
. . . . . . 7
⊢ (((𝑙 + 1) ∈ (1...𝑁) ∧ (𝑁 ∈ ℕ0 ∧ 𝑙 ∈ (0..^𝑁))) → (∀𝑘 ∈ (1...𝑁)(𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃 → (𝐹:(1...𝑁)⟶dom 𝐸 → (𝐸‘(𝐺‘𝑙)) = ⦋(𝑙 + 1) / 𝑥⦌𝑃))) |
26 | 1, 25 | mpancom 700 |
. . . . . 6
⊢ ((𝑁 ∈ ℕ0
∧ 𝑙 ∈ (0..^𝑁)) → (∀𝑘 ∈ (1...𝑁)(𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃 → (𝐹:(1...𝑁)⟶dom 𝐸 → (𝐸‘(𝐺‘𝑙)) = ⦋(𝑙 + 1) / 𝑥⦌𝑃))) |
27 | 26 | ex 449 |
. . . . 5
⊢ (𝑁 ∈ ℕ0
→ (𝑙 ∈ (0..^𝑁) → (∀𝑘 ∈ (1...𝑁)(𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃 → (𝐹:(1...𝑁)⟶dom 𝐸 → (𝐸‘(𝐺‘𝑙)) = ⦋(𝑙 + 1) / 𝑥⦌𝑃)))) |
28 | 27 | com24 93 |
. . . 4
⊢ (𝑁 ∈ ℕ0
→ (𝐹:(1...𝑁)⟶dom 𝐸 → (∀𝑘 ∈ (1...𝑁)(𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃 → (𝑙 ∈ (0..^𝑁) → (𝐸‘(𝐺‘𝑙)) = ⦋(𝑙 + 1) / 𝑥⦌𝑃)))) |
29 | 28 | imp31 447 |
. . 3
⊢ (((𝑁 ∈ ℕ0
∧ 𝐹:(1...𝑁)⟶dom 𝐸) ∧ ∀𝑘 ∈ (1...𝑁)(𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃) → (𝑙 ∈ (0..^𝑁) → (𝐸‘(𝐺‘𝑙)) = ⦋(𝑙 + 1) / 𝑥⦌𝑃)) |
30 | 29 | ralrimiv 2948 |
. 2
⊢ (((𝑁 ∈ ℕ0
∧ 𝐹:(1...𝑁)⟶dom 𝐸) ∧ ∀𝑘 ∈ (1...𝑁)(𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃) → ∀𝑙 ∈ (0..^𝑁)(𝐸‘(𝐺‘𝑙)) = ⦋(𝑙 + 1) / 𝑥⦌𝑃) |
31 | 30 | ex 449 |
1
⊢ ((𝑁 ∈ ℕ0
∧ 𝐹:(1...𝑁)⟶dom 𝐸) → (∀𝑘 ∈ (1...𝑁)(𝐸‘(𝐹‘𝑘)) = ⦋𝑘 / 𝑥⦌𝑃 → ∀𝑙 ∈ (0..^𝑁)(𝐸‘(𝐺‘𝑙)) = ⦋(𝑙 + 1) / 𝑥⦌𝑃)) |