Step | Hyp | Ref
| Expression |
1 | | efgval.w |
. . . . . 6
⊢ 𝑊 = ( I ‘Word (𝐼 ×
2𝑜)) |
2 | | efgval.r |
. . . . . 6
⊢ ∼ = (
~FG ‘𝐼) |
3 | | efgval2.m |
. . . . . 6
⊢ 𝑀 = (𝑦 ∈ 𝐼, 𝑧 ∈ 2𝑜 ↦
〈𝑦,
(1𝑜 ∖ 𝑧)〉) |
4 | | efgval2.t |
. . . . . 6
⊢ 𝑇 = (𝑣 ∈ 𝑊 ↦ (𝑛 ∈ (0...(#‘𝑣)), 𝑤 ∈ (𝐼 × 2𝑜) ↦
(𝑣 splice 〈𝑛, 𝑛, 〈“𝑤(𝑀‘𝑤)”〉〉))) |
5 | | efgred.d |
. . . . . 6
⊢ 𝐷 = (𝑊 ∖ ∪
𝑥 ∈ 𝑊 ran (𝑇‘𝑥)) |
6 | | efgred.s |
. . . . . 6
⊢ 𝑆 = (𝑚 ∈ {𝑡 ∈ (Word 𝑊 ∖ {∅}) ∣ ((𝑡‘0) ∈ 𝐷 ∧ ∀𝑘 ∈ (1..^(#‘𝑡))(𝑡‘𝑘) ∈ ran (𝑇‘(𝑡‘(𝑘 − 1))))} ↦ (𝑚‘((#‘𝑚) − 1))) |
7 | 1, 2, 3, 4, 5, 6 | efgsdm 18143 |
. . . . 5
⊢ (𝐹 ∈ dom 𝑆 ↔ (𝐹 ∈ (Word 𝑊 ∖ {∅}) ∧ (𝐹‘0) ∈ 𝐷 ∧ ∀𝑎 ∈ (1..^(#‘𝐹))(𝐹‘𝑎) ∈ ran (𝑇‘(𝐹‘(𝑎 − 1))))) |
8 | 7 | simp1bi 1076 |
. . . 4
⊢ (𝐹 ∈ dom 𝑆 → 𝐹 ∈ (Word 𝑊 ∖ {∅})) |
9 | | eldifsn 4317 |
. . . . 5
⊢ (𝐹 ∈ (Word 𝑊 ∖ {∅}) ↔ (𝐹 ∈ Word 𝑊 ∧ 𝐹 ≠ ∅)) |
10 | | lennncl 13325 |
. . . . 5
⊢ ((𝐹 ∈ Word 𝑊 ∧ 𝐹 ≠ ∅) → (#‘𝐹) ∈
ℕ) |
11 | 9, 10 | sylbi 207 |
. . . 4
⊢ (𝐹 ∈ (Word 𝑊 ∖ {∅}) → (#‘𝐹) ∈
ℕ) |
12 | | fzo0end 12560 |
. . . 4
⊢
((#‘𝐹) ∈
ℕ → ((#‘𝐹)
− 1) ∈ (0..^(#‘𝐹))) |
13 | 8, 11, 12 | 3syl 18 |
. . 3
⊢ (𝐹 ∈ dom 𝑆 → ((#‘𝐹) − 1) ∈ (0..^(#‘𝐹))) |
14 | | nnm1nn0 11334 |
. . . . 5
⊢
((#‘𝐹) ∈
ℕ → ((#‘𝐹)
− 1) ∈ ℕ0) |
15 | 8, 11, 14 | 3syl 18 |
. . . 4
⊢ (𝐹 ∈ dom 𝑆 → ((#‘𝐹) − 1) ∈
ℕ0) |
16 | | eleq1 2689 |
. . . . . . 7
⊢ (𝑎 = 0 → (𝑎 ∈ (0..^(#‘𝐹)) ↔ 0 ∈ (0..^(#‘𝐹)))) |
17 | | fveq2 6191 |
. . . . . . . 8
⊢ (𝑎 = 0 → (𝐹‘𝑎) = (𝐹‘0)) |
18 | 17 | breq2d 4665 |
. . . . . . 7
⊢ (𝑎 = 0 → ((𝐹‘0) ∼ (𝐹‘𝑎) ↔ (𝐹‘0) ∼ (𝐹‘0))) |
19 | 16, 18 | imbi12d 334 |
. . . . . 6
⊢ (𝑎 = 0 → ((𝑎 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑎)) ↔ (0 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘0)))) |
20 | 19 | imbi2d 330 |
. . . . 5
⊢ (𝑎 = 0 → ((𝐹 ∈ dom 𝑆 → (𝑎 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑎))) ↔ (𝐹 ∈ dom 𝑆 → (0 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘0))))) |
21 | | eleq1 2689 |
. . . . . . 7
⊢ (𝑎 = 𝑖 → (𝑎 ∈ (0..^(#‘𝐹)) ↔ 𝑖 ∈ (0..^(#‘𝐹)))) |
22 | | fveq2 6191 |
. . . . . . . 8
⊢ (𝑎 = 𝑖 → (𝐹‘𝑎) = (𝐹‘𝑖)) |
23 | 22 | breq2d 4665 |
. . . . . . 7
⊢ (𝑎 = 𝑖 → ((𝐹‘0) ∼ (𝐹‘𝑎) ↔ (𝐹‘0) ∼ (𝐹‘𝑖))) |
24 | 21, 23 | imbi12d 334 |
. . . . . 6
⊢ (𝑎 = 𝑖 → ((𝑎 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑎)) ↔ (𝑖 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑖)))) |
25 | 24 | imbi2d 330 |
. . . . 5
⊢ (𝑎 = 𝑖 → ((𝐹 ∈ dom 𝑆 → (𝑎 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑎))) ↔ (𝐹 ∈ dom 𝑆 → (𝑖 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑖))))) |
26 | | eleq1 2689 |
. . . . . . 7
⊢ (𝑎 = (𝑖 + 1) → (𝑎 ∈ (0..^(#‘𝐹)) ↔ (𝑖 + 1) ∈ (0..^(#‘𝐹)))) |
27 | | fveq2 6191 |
. . . . . . . 8
⊢ (𝑎 = (𝑖 + 1) → (𝐹‘𝑎) = (𝐹‘(𝑖 + 1))) |
28 | 27 | breq2d 4665 |
. . . . . . 7
⊢ (𝑎 = (𝑖 + 1) → ((𝐹‘0) ∼ (𝐹‘𝑎) ↔ (𝐹‘0) ∼ (𝐹‘(𝑖 + 1)))) |
29 | 26, 28 | imbi12d 334 |
. . . . . 6
⊢ (𝑎 = (𝑖 + 1) → ((𝑎 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑎)) ↔ ((𝑖 + 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘(𝑖 + 1))))) |
30 | 29 | imbi2d 330 |
. . . . 5
⊢ (𝑎 = (𝑖 + 1) → ((𝐹 ∈ dom 𝑆 → (𝑎 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑎))) ↔ (𝐹 ∈ dom 𝑆 → ((𝑖 + 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘(𝑖 + 1)))))) |
31 | | eleq1 2689 |
. . . . . . 7
⊢ (𝑎 = ((#‘𝐹) − 1) → (𝑎 ∈ (0..^(#‘𝐹)) ↔ ((#‘𝐹) − 1) ∈ (0..^(#‘𝐹)))) |
32 | | fveq2 6191 |
. . . . . . . 8
⊢ (𝑎 = ((#‘𝐹) − 1) → (𝐹‘𝑎) = (𝐹‘((#‘𝐹) − 1))) |
33 | 32 | breq2d 4665 |
. . . . . . 7
⊢ (𝑎 = ((#‘𝐹) − 1) → ((𝐹‘0) ∼ (𝐹‘𝑎) ↔ (𝐹‘0) ∼ (𝐹‘((#‘𝐹) − 1)))) |
34 | 31, 33 | imbi12d 334 |
. . . . . 6
⊢ (𝑎 = ((#‘𝐹) − 1) → ((𝑎 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑎)) ↔ (((#‘𝐹) − 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘((#‘𝐹) − 1))))) |
35 | 34 | imbi2d 330 |
. . . . 5
⊢ (𝑎 = ((#‘𝐹) − 1) → ((𝐹 ∈ dom 𝑆 → (𝑎 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑎))) ↔ (𝐹 ∈ dom 𝑆 → (((#‘𝐹) − 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘((#‘𝐹) − 1)))))) |
36 | 1, 2 | efger 18131 |
. . . . . . . 8
⊢ ∼ Er
𝑊 |
37 | 36 | a1i 11 |
. . . . . . 7
⊢ ((𝐹 ∈ dom 𝑆 ∧ 0 ∈ (0..^(#‘𝐹))) → ∼ Er 𝑊) |
38 | | eldifi 3732 |
. . . . . . . . 9
⊢ (𝐹 ∈ (Word 𝑊 ∖ {∅}) → 𝐹 ∈ Word 𝑊) |
39 | | wrdf 13310 |
. . . . . . . . 9
⊢ (𝐹 ∈ Word 𝑊 → 𝐹:(0..^(#‘𝐹))⟶𝑊) |
40 | 8, 38, 39 | 3syl 18 |
. . . . . . . 8
⊢ (𝐹 ∈ dom 𝑆 → 𝐹:(0..^(#‘𝐹))⟶𝑊) |
41 | 40 | ffvelrnda 6359 |
. . . . . . 7
⊢ ((𝐹 ∈ dom 𝑆 ∧ 0 ∈ (0..^(#‘𝐹))) → (𝐹‘0) ∈ 𝑊) |
42 | 37, 41 | erref 7762 |
. . . . . 6
⊢ ((𝐹 ∈ dom 𝑆 ∧ 0 ∈ (0..^(#‘𝐹))) → (𝐹‘0) ∼ (𝐹‘0)) |
43 | 42 | ex 450 |
. . . . 5
⊢ (𝐹 ∈ dom 𝑆 → (0 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘0))) |
44 | | elnn0uz 11725 |
. . . . . . . . . . . 12
⊢ (𝑖 ∈ ℕ0
↔ 𝑖 ∈
(ℤ≥‘0)) |
45 | | peano2fzor 12575 |
. . . . . . . . . . . 12
⊢ ((𝑖 ∈
(ℤ≥‘0) ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → 𝑖 ∈ (0..^(#‘𝐹))) |
46 | 44, 45 | sylanb 489 |
. . . . . . . . . . 11
⊢ ((𝑖 ∈ ℕ0
∧ (𝑖 + 1) ∈
(0..^(#‘𝐹))) →
𝑖 ∈
(0..^(#‘𝐹))) |
47 | 46 | 3adant1 1079 |
. . . . . . . . . 10
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → 𝑖 ∈ (0..^(#‘𝐹))) |
48 | 47 | 3expia 1267 |
. . . . . . . . 9
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0) → ((𝑖 + 1) ∈ (0..^(#‘𝐹)) → 𝑖 ∈ (0..^(#‘𝐹)))) |
49 | 48 | imim1d 82 |
. . . . . . . 8
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0) → ((𝑖 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑖)) → ((𝑖 + 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑖)))) |
50 | 40 | 3ad2ant1 1082 |
. . . . . . . . . . . . 13
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → 𝐹:(0..^(#‘𝐹))⟶𝑊) |
51 | 50, 47 | ffvelrnd 6360 |
. . . . . . . . . . . 12
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → (𝐹‘𝑖) ∈ 𝑊) |
52 | | nn0p1nn 11332 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑖 ∈ ℕ0
→ (𝑖 + 1) ∈
ℕ) |
53 | 52 | 3ad2ant2 1083 |
. . . . . . . . . . . . . . . 16
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → (𝑖 + 1) ∈ ℕ) |
54 | | nnuz 11723 |
. . . . . . . . . . . . . . . 16
⊢ ℕ =
(ℤ≥‘1) |
55 | 53, 54 | syl6eleq 2711 |
. . . . . . . . . . . . . . 15
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → (𝑖 + 1) ∈
(ℤ≥‘1)) |
56 | | elfzolt2b 12481 |
. . . . . . . . . . . . . . . 16
⊢ ((𝑖 + 1) ∈ (0..^(#‘𝐹)) → (𝑖 + 1) ∈ ((𝑖 + 1)..^(#‘𝐹))) |
57 | 56 | 3ad2ant3 1084 |
. . . . . . . . . . . . . . 15
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → (𝑖 + 1) ∈ ((𝑖 + 1)..^(#‘𝐹))) |
58 | | elfzo3 12486 |
. . . . . . . . . . . . . . 15
⊢ ((𝑖 + 1) ∈ (1..^(#‘𝐹)) ↔ ((𝑖 + 1) ∈ (ℤ≥‘1)
∧ (𝑖 + 1) ∈
((𝑖 + 1)..^(#‘𝐹)))) |
59 | 55, 57, 58 | sylanbrc 698 |
. . . . . . . . . . . . . 14
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → (𝑖 + 1) ∈ (1..^(#‘𝐹))) |
60 | 7 | simp3bi 1078 |
. . . . . . . . . . . . . . 15
⊢ (𝐹 ∈ dom 𝑆 → ∀𝑎 ∈ (1..^(#‘𝐹))(𝐹‘𝑎) ∈ ran (𝑇‘(𝐹‘(𝑎 − 1)))) |
61 | 60 | 3ad2ant1 1082 |
. . . . . . . . . . . . . 14
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → ∀𝑎 ∈ (1..^(#‘𝐹))(𝐹‘𝑎) ∈ ran (𝑇‘(𝐹‘(𝑎 − 1)))) |
62 | | oveq1 6657 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑎 = (𝑖 + 1) → (𝑎 − 1) = ((𝑖 + 1) − 1)) |
63 | 62 | fveq2d 6195 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑎 = (𝑖 + 1) → (𝐹‘(𝑎 − 1)) = (𝐹‘((𝑖 + 1) − 1))) |
64 | 63 | fveq2d 6195 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑎 = (𝑖 + 1) → (𝑇‘(𝐹‘(𝑎 − 1))) = (𝑇‘(𝐹‘((𝑖 + 1) − 1)))) |
65 | 64 | rneqd 5353 |
. . . . . . . . . . . . . . . 16
⊢ (𝑎 = (𝑖 + 1) → ran (𝑇‘(𝐹‘(𝑎 − 1))) = ran (𝑇‘(𝐹‘((𝑖 + 1) − 1)))) |
66 | 27, 65 | eleq12d 2695 |
. . . . . . . . . . . . . . 15
⊢ (𝑎 = (𝑖 + 1) → ((𝐹‘𝑎) ∈ ran (𝑇‘(𝐹‘(𝑎 − 1))) ↔ (𝐹‘(𝑖 + 1)) ∈ ran (𝑇‘(𝐹‘((𝑖 + 1) − 1))))) |
67 | 66 | rspcv 3305 |
. . . . . . . . . . . . . 14
⊢ ((𝑖 + 1) ∈ (1..^(#‘𝐹)) → (∀𝑎 ∈ (1..^(#‘𝐹))(𝐹‘𝑎) ∈ ran (𝑇‘(𝐹‘(𝑎 − 1))) → (𝐹‘(𝑖 + 1)) ∈ ran (𝑇‘(𝐹‘((𝑖 + 1) − 1))))) |
68 | 59, 61, 67 | sylc 65 |
. . . . . . . . . . . . 13
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → (𝐹‘(𝑖 + 1)) ∈ ran (𝑇‘(𝐹‘((𝑖 + 1) − 1)))) |
69 | | nn0cn 11302 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑖 ∈ ℕ0
→ 𝑖 ∈
ℂ) |
70 | 69 | 3ad2ant2 1083 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → 𝑖 ∈ ℂ) |
71 | | ax-1cn 9994 |
. . . . . . . . . . . . . . . . 17
⊢ 1 ∈
ℂ |
72 | | pncan 10287 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝑖 ∈ ℂ ∧ 1 ∈
ℂ) → ((𝑖 + 1)
− 1) = 𝑖) |
73 | 70, 71, 72 | sylancl 694 |
. . . . . . . . . . . . . . . 16
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → ((𝑖 + 1) − 1) = 𝑖) |
74 | 73 | fveq2d 6195 |
. . . . . . . . . . . . . . 15
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → (𝐹‘((𝑖 + 1) − 1)) = (𝐹‘𝑖)) |
75 | 74 | fveq2d 6195 |
. . . . . . . . . . . . . 14
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → (𝑇‘(𝐹‘((𝑖 + 1) − 1))) = (𝑇‘(𝐹‘𝑖))) |
76 | 75 | rneqd 5353 |
. . . . . . . . . . . . 13
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → ran (𝑇‘(𝐹‘((𝑖 + 1) − 1))) = ran (𝑇‘(𝐹‘𝑖))) |
77 | 68, 76 | eleqtrd 2703 |
. . . . . . . . . . . 12
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → (𝐹‘(𝑖 + 1)) ∈ ran (𝑇‘(𝐹‘𝑖))) |
78 | 1, 2, 3, 4 | efgi2 18138 |
. . . . . . . . . . . 12
⊢ (((𝐹‘𝑖) ∈ 𝑊 ∧ (𝐹‘(𝑖 + 1)) ∈ ran (𝑇‘(𝐹‘𝑖))) → (𝐹‘𝑖) ∼ (𝐹‘(𝑖 + 1))) |
79 | 51, 77, 78 | syl2anc 693 |
. . . . . . . . . . 11
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → (𝐹‘𝑖) ∼ (𝐹‘(𝑖 + 1))) |
80 | 36 | a1i 11 |
. . . . . . . . . . . 12
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → ∼ Er 𝑊) |
81 | 80 | ertr 7757 |
. . . . . . . . . . 11
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → (((𝐹‘0) ∼ (𝐹‘𝑖) ∧ (𝐹‘𝑖) ∼ (𝐹‘(𝑖 + 1))) → (𝐹‘0) ∼ (𝐹‘(𝑖 + 1)))) |
82 | 79, 81 | mpan2d 710 |
. . . . . . . . . 10
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0 ∧ (𝑖 + 1) ∈ (0..^(#‘𝐹))) → ((𝐹‘0) ∼ (𝐹‘𝑖) → (𝐹‘0) ∼ (𝐹‘(𝑖 + 1)))) |
83 | 82 | 3expia 1267 |
. . . . . . . . 9
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0) → ((𝑖 + 1) ∈ (0..^(#‘𝐹)) → ((𝐹‘0) ∼ (𝐹‘𝑖) → (𝐹‘0) ∼ (𝐹‘(𝑖 + 1))))) |
84 | 83 | a2d 29 |
. . . . . . . 8
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0) → (((𝑖 + 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑖)) → ((𝑖 + 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘(𝑖 + 1))))) |
85 | 49, 84 | syld 47 |
. . . . . . 7
⊢ ((𝐹 ∈ dom 𝑆 ∧ 𝑖 ∈ ℕ0) → ((𝑖 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑖)) → ((𝑖 + 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘(𝑖 + 1))))) |
86 | 85 | expcom 451 |
. . . . . 6
⊢ (𝑖 ∈ ℕ0
→ (𝐹 ∈ dom 𝑆 → ((𝑖 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑖)) → ((𝑖 + 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘(𝑖 + 1)))))) |
87 | 86 | a2d 29 |
. . . . 5
⊢ (𝑖 ∈ ℕ0
→ ((𝐹 ∈ dom 𝑆 → (𝑖 ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘𝑖))) → (𝐹 ∈ dom 𝑆 → ((𝑖 + 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘(𝑖 + 1)))))) |
88 | 20, 25, 30, 35, 43, 87 | nn0ind 11472 |
. . . 4
⊢
(((#‘𝐹)
− 1) ∈ ℕ0 → (𝐹 ∈ dom 𝑆 → (((#‘𝐹) − 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘((#‘𝐹) − 1))))) |
89 | 15, 88 | mpcom 38 |
. . 3
⊢ (𝐹 ∈ dom 𝑆 → (((#‘𝐹) − 1) ∈ (0..^(#‘𝐹)) → (𝐹‘0) ∼ (𝐹‘((#‘𝐹) − 1)))) |
90 | 13, 89 | mpd 15 |
. 2
⊢ (𝐹 ∈ dom 𝑆 → (𝐹‘0) ∼ (𝐹‘((#‘𝐹) − 1))) |
91 | 1, 2, 3, 4, 5, 6 | efgsval 18144 |
. 2
⊢ (𝐹 ∈ dom 𝑆 → (𝑆‘𝐹) = (𝐹‘((#‘𝐹) − 1))) |
92 | 90, 91 | breqtrrd 4681 |
1
⊢ (𝐹 ∈ dom 𝑆 → (𝐹‘0) ∼ (𝑆‘𝐹)) |