Proof of Theorem seqval
| Step | Hyp | Ref
| Expression |
| 1 | | seqval.1 |
. 2
⊢ S
∈ V |
| 2 | | seqval.2 |
. 2
⊢ F
∈ V |
| 3 | | nnex 4431 |
. . . 4
⊢ ℕ ∈ V |
| 4 | | moeq 1431 |
. . . . 5
⊢ ∃*y y =
(2nd ‘((rec(H, 〈1,
(F ‘1)〉) ∘ ◡G)
‘x)) |
| 5 | 4 | a1i 7 |
. . . 4
⊢ (x
∈ ℕ → ∃*y y = (2nd ‘((rec(H, 〈1, (F
‘1)〉) ∘ ◡G) ‘x))) |
| 6 | 3, 5 | funopabex 2742 |
. . 3
⊢ {〈x, y〉∣(x
∈ ℕ ∧ y = (2nd
‘((rec(H, 〈1, (F ‘1)〉) ∘ ◡G)
‘x)))} ∈ V |
| 7 | | opreq 3005 |
. . . . . . . . . . . . . 14
⊢ (f =
S → ((2nd ‘z)f(g ‘((1st ‘z) + 1))) = ((2nd ‘z)S(g ‘((1st ‘z) + 1)))) |
| 8 | | opeq2 1877 |
. . . . . . . . . . . . . 14
⊢ (((2nd ‘z)f(g ‘((1st ‘z) + 1))) = ((2nd ‘z)S(g ‘((1st ‘z) + 1))) → 〈((1st
‘z) + 1), ((2nd
‘z)f(g
‘((1st ‘z) +
1)))〉 = 〈((1st ‘z) + 1), ((2nd ‘z)S(g ‘((1st ‘z) + 1)))〉) |
| 9 | 7, 8 | syl 12 |
. . . . . . . . . . . . 13
⊢ (f =
S → 〈((1st
‘z) + 1), ((2nd
‘z)f(g
‘((1st ‘z) +
1)))〉 = 〈((1st ‘z) + 1), ((2nd ‘z)S(g ‘((1st ‘z) + 1)))〉) |
| 10 | 9 | cleq2d 1112 |
. . . . . . . . . . . 12
⊢ (f =
S → (w = 〈((1st ‘z) + 1), ((2nd ‘z)f(g ‘((1st ‘z) + 1)))〉 ↔ w = 〈((1st ‘z) + 1), ((2nd ‘z)S(g ‘((1st ‘z) + 1)))〉)) |
| 11 | 10 | biopabdv 2102 |
. . . . . . . . . . 11
⊢ (f =
S → {〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉} = {〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}) |
| 12 | | rdgeq1 2972 |
. . . . . . . . . . 11
⊢ ({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉} = {〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉} → rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉) =
rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g
‘1)〉)) |
| 13 | 11, 12 | syl 12 |
. . . . . . . . . 10
⊢ (f =
S → rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉) =
rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g
‘1)〉)) |
| 14 | 13 | coeq1d 2506 |
. . . . . . . . 9
⊢ (f =
S → (rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω)) =
(rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))) |
| 15 | | seqval.3 |
. . . . . . . . . . 11
⊢ G =
(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω) |
| 16 | | cnveq 2513 |
. . . . . . . . . . 11
⊢ (G =
(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω) →
◡G
= ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω)) |
| 17 | 15, 16 | ax-mp 6 |
. . . . . . . . . 10
⊢ ◡G =
◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω) |
| 18 | 17 | coeq2i 2505 |
. . . . . . . . 9
⊢ (rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) = (rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω)) |
| 19 | 14, 18 | syl6eqr 1142 |
. . . . . . . 8
⊢ (f =
S → (rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω)) =
(rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G)) |
| 20 | 19 | fveq1d 2834 |
. . . . . . 7
⊢ (f =
S → ((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))
‘x) = ((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) ‘x)) |
| 21 | 20 | fveq2d 2836 |
. . . . . 6
⊢ (f =
S → (2nd
‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))
‘x)) = (2nd
‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) ‘x))) |
| 22 | 21 | cleq2d 1112 |
. . . . 5
⊢ (f =
S → (y = (2nd ‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))
‘x)) ↔ y = (2nd ‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) ‘x)))) |
| 23 | 22 | anbi2d 468 |
. . . 4
⊢ (f =
S → ((x ∈ ℕ ∧ y = (2nd ‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))
‘x))) ↔ (x ∈ ℕ ∧ y = (2nd ‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) ‘x))))) |
| 24 | 23 | biopabdv 2102 |
. . 3
⊢ (f =
S → {〈x, y〉∣(x
∈ ℕ ∧ y = (2nd
‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))
‘x)))} = {〈x, y〉∣(x
∈ ℕ ∧ y = (2nd
‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) ‘x)))}) |
| 25 | | fveq1 2831 |
. . . . . . . . . . . . . . . 16
⊢ (g =
F → (g ‘((1st ‘z) + 1)) = (F
‘((1st ‘z) +
1))) |
| 26 | 25 | opreq2d 3013 |
. . . . . . . . . . . . . . 15
⊢ (g =
F → ((2nd ‘z)S(g ‘((1st ‘z) + 1))) = ((2nd ‘z)S(F ‘((1st ‘z) + 1)))) |
| 27 | | opeq2 1877 |
. . . . . . . . . . . . . . 15
⊢ (((2nd ‘z)S(g ‘((1st ‘z) + 1))) = ((2nd ‘z)S(F ‘((1st ‘z) + 1))) → 〈((1st
‘z) + 1), ((2nd
‘z)S(g
‘((1st ‘z) +
1)))〉 = 〈((1st ‘z) + 1), ((2nd ‘z)S(F ‘((1st ‘z) + 1)))〉) |
| 28 | 26, 27 | syl 12 |
. . . . . . . . . . . . . 14
⊢ (g =
F → 〈((1st
‘z) + 1), ((2nd
‘z)S(g
‘((1st ‘z) +
1)))〉 = 〈((1st ‘z) + 1), ((2nd ‘z)S(F ‘((1st ‘z) + 1)))〉) |
| 29 | 28 | cleq2d 1112 |
. . . . . . . . . . . . 13
⊢ (g =
F → (w = 〈((1st ‘z) + 1), ((2nd ‘z)S(g ‘((1st ‘z) + 1)))〉 ↔ w = 〈((1st ‘z) + 1), ((2nd ‘z)S(F ‘((1st ‘z) + 1)))〉)) |
| 30 | 29 | biopabdv 2102 |
. . . . . . . . . . . 12
⊢ (g =
F → {〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉} = {〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(F
‘((1st ‘z) +
1)))〉}) |
| 31 | | seqval.4 |
. . . . . . . . . . . 12
⊢ H =
{〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(F
‘((1st ‘z) +
1)))〉} |
| 32 | 30, 31 | syl6eqr 1142 |
. . . . . . . . . . 11
⊢ (g =
F → {〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉} = H) |
| 33 | | rdgeq1 2972 |
. . . . . . . . . . 11
⊢ ({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉} = H → rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉) =
rec(H, 〈1, (g ‘1)〉)) |
| 34 | 32, 33 | syl 12 |
. . . . . . . . . 10
⊢ (g =
F → rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉) =
rec(H, 〈1, (g ‘1)〉)) |
| 35 | | fveq1 2831 |
. . . . . . . . . . 11
⊢ (g =
F → (g ‘1) = (F
‘1)) |
| 36 | | opeq2 1877 |
. . . . . . . . . . 11
⊢ ((g
‘1) = (F ‘1) → 〈1,
(g ‘1)〉 = 〈1, (F ‘1)〉) |
| 37 | | rdgeq2 2973 |
. . . . . . . . . . 11
⊢ (〈1, (g ‘1)〉 = 〈1, (F ‘1)〉 → rec(H, 〈1, (g
‘1)〉) = rec(H, 〈1,
(F ‘1)〉)) |
| 38 | 35, 36, 37 | 3syl 21 |
. . . . . . . . . 10
⊢ (g =
F → rec(H, 〈1, (g
‘1)〉) = rec(H, 〈1,
(F ‘1)〉)) |
| 39 | 34, 38 | eqtrd 1128 |
. . . . . . . . 9
⊢ (g =
F → rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉) =
rec(H, 〈1, (F ‘1)〉)) |
| 40 | 39 | coeq1d 2506 |
. . . . . . . 8
⊢ (g =
F → (rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) = (rec(H,
〈1, (F ‘1)〉) ∘ ◡G)) |
| 41 | 40 | fveq1d 2834 |
. . . . . . 7
⊢ (g =
F → ((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) ‘x) =
((rec(H, 〈1, (F ‘1)〉) ∘ ◡G)
‘x)) |
| 42 | 41 | fveq2d 2836 |
. . . . . 6
⊢ (g =
F → (2nd
‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) ‘x)) =
(2nd ‘((rec(H, 〈1,
(F ‘1)〉) ∘ ◡G)
‘x))) |
| 43 | 42 | cleq2d 1112 |
. . . . 5
⊢ (g =
F → (y = (2nd ‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) ‘x))
↔ y = (2nd
‘((rec(H, 〈1, (F ‘1)〉) ∘ ◡G)
‘x)))) |
| 44 | 43 | anbi2d 468 |
. . . 4
⊢ (g =
F → ((x ∈ ℕ ∧ y = (2nd ‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) ‘x)))
↔ (x ∈ ℕ ∧ y = (2nd ‘((rec(H, 〈1, (F
‘1)〉) ∘ ◡G) ‘x))))) |
| 45 | 44 | biopabdv 2102 |
. . 3
⊢ (g =
F → {〈x, y〉∣(x
∈ ℕ ∧ y = (2nd
‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)S(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡G) ‘x)))}
= {〈x, y〉∣(x
∈ ℕ ∧ y = (2nd
‘((rec(H, 〈1, (F ‘1)〉) ∘ ◡G)
‘x)))}) |
| 46 | | df-seq 4661 |
. . . 4
⊢ seq = {〈〈f, g〉,
h〉∣h = {〈x,
y〉∣(x ∈ ℕ ∧ y = (2nd ‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))
‘x)))}} |
| 47 | | visset 1350 |
. . . . . . 7
⊢ f
∈ V |
| 48 | | visset 1350 |
. . . . . . 7
⊢ g
∈ V |
| 49 | 47, 48 | pm3.2i 234 |
. . . . . 6
⊢ (f
∈ V ∧ g ∈
V) |
| 50 | 49 | biantrur 544 |
. . . . 5
⊢ (h =
{〈x, y〉∣(x
∈ ℕ ∧ y = (2nd
‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))
‘x)))} ↔ ((f ∈ V ∧ g ∈ V) ∧ h = {〈x,
y〉∣(x ∈ ℕ ∧ y = (2nd ‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))
‘x)))})) |
| 51 | 50 | bioprabi 3027 |
. . . 4
⊢ {〈〈f, g〉,
h〉∣h = {〈x,
y〉∣(x ∈ ℕ ∧ y = (2nd ‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))
‘x)))}} = {〈〈f, g〉,
h〉∣((f ∈ V ∧ g ∈ V) ∧ h = {〈x,
y〉∣(x ∈ ℕ ∧ y = (2nd ‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))
‘x)))})} |
| 52 | 46, 51 | eqtr 1119 |
. . 3
⊢ seq = {〈〈f, g〉,
h〉∣((f ∈ V ∧ g ∈ V) ∧ h = {〈x,
y〉∣(x ∈ ℕ ∧ y = (2nd ‘((rec({〈z, w〉∣w
= 〈((1st ‘z) + 1),
((2nd ‘z)f(g
‘((1st ‘z) +
1)))〉}, 〈1, (g ‘1)〉)
∘ ◡(rec({〈z, w〉∣w
= (z + 1)}, 1) ↾ ω))
‘x)))})} |
| 53 | 6, 24, 45, 52 | oprabval2 3051 |
. 2
⊢ ((S
∈ V ∧ F ∈ V)
→ (SseqF) = {〈x,
y〉∣(x ∈ ℕ ∧ y = (2nd ‘((rec(H, 〈1, (F
‘1)〉) ∘ ◡G) ‘x)))}) |
| 54 | 1, 2, 53 | mp2an 520 |
1
⊢ (SseqF) =
{〈x, y〉∣(x
∈ ℕ ∧ y = (2nd
‘((rec(H, 〈1, (F ‘1)〉) ∘ ◡G)
‘x)))} |