Step | Hyp | Ref
| Expression |
1 | | precsexlem.2 |
. . 3
โข ๐ฟ = (1st โ ๐น) |
2 | 1 | fveq1i 6892 |
. 2
โข (๐ฟโsuc ๐ผ) = ((1st โ ๐น)โsuc ๐ผ) |
3 | | peano2 7885 |
. . . 4
โข (๐ผ โ ฯ โ suc ๐ผ โ
ฯ) |
4 | | nnon 7865 |
. . . 4
โข (suc
๐ผ โ ฯ โ suc
๐ผ โ
On) |
5 | | rdgfnon 8422 |
. . . . . 6
โข
rec((๐ โ V
โฆ โฆ(1st โ๐) / ๐โฆโฆ(2nd
โ๐) / ๐โฆโจ(๐ โช ({๐ โฃ โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐ฟ โ ๐ ๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ ๐ ๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)})),
(๐ โช ({๐ โฃ โ๐ฅ๐ฟ โ
{๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐ฟ โ ๐ ๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐ฟ)}
โช {๐ โฃ
โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐
โ ๐ ๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐
)}))โฉ), โจ{
0s }, โ
โฉ) Fn On |
6 | | precsexlem.1 |
. . . . . . 7
โข ๐น = rec((๐ โ V โฆ
โฆ(1st โ๐) / ๐โฆโฆ(2nd
โ๐) / ๐โฆโจ(๐ โช ({๐ โฃ โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐ฟ โ ๐ ๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ ๐ ๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)})),
(๐ โช ({๐ โฃ โ๐ฅ๐ฟ โ
{๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐ฟ โ ๐ ๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐ฟ)}
โช {๐ โฃ
โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐
โ ๐ ๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐
)}))โฉ), โจ{
0s }, โ
โฉ) |
7 | 6 | fneq1i 6646 |
. . . . . 6
โข (๐น Fn On โ rec((๐ โ V โฆ
โฆ(1st โ๐) / ๐โฆโฆ(2nd
โ๐) / ๐โฆโจ(๐ โช ({๐ โฃ โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐ฟ โ ๐ ๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ ๐ ๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)})),
(๐ โช ({๐ โฃ โ๐ฅ๐ฟ โ
{๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐ฟ โ ๐ ๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐ฟ)}
โช {๐ โฃ
โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐
โ ๐ ๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐
)}))โฉ), โจ{
0s }, โ
โฉ) Fn On) |
8 | 5, 7 | mpbir 230 |
. . . . 5
โข ๐น Fn On |
9 | | fvco2 6988 |
. . . . 5
โข ((๐น Fn On โง suc ๐ผ โ On) โ
((1st โ ๐น)โsuc ๐ผ) = (1st โ(๐นโsuc ๐ผ))) |
10 | 8, 9 | mpan 687 |
. . . 4
โข (suc
๐ผ โ On โ
((1st โ ๐น)โsuc ๐ผ) = (1st โ(๐นโsuc ๐ผ))) |
11 | 3, 4, 10 | 3syl 18 |
. . 3
โข (๐ผ โ ฯ โ
((1st โ ๐น)โsuc ๐ผ) = (1st โ(๐นโsuc ๐ผ))) |
12 | | precsexlem.3 |
. . . . . 6
โข ๐
= (2nd โ ๐น) |
13 | 6, 1, 12 | precsexlem3 27895 |
. . . . 5
โข (๐ผ โ ฯ โ (๐นโsuc ๐ผ) = โจ((๐ฟโ๐ผ) โช ({๐ โฃ โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)})),
((๐
โ๐ผ) โช ({๐ โฃ โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐ฟ)}
โช {๐ โฃ
โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐
)}))โฉ) |
14 | 13 | fveq2d 6895 |
. . . 4
โข (๐ผ โ ฯ โ
(1st โ(๐นโsuc ๐ผ)) = (1st โโจ((๐ฟโ๐ผ) โช ({๐ โฃ โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)})),
((๐
โ๐ผ) โช ({๐ โฃ โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐ฟ)}
โช {๐ โฃ
โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐
)}))โฉ)) |
15 | | fvex 6904 |
. . . . . 6
โข (๐ฟโ๐ผ) โ V |
16 | | fvex 6904 |
. . . . . . . 8
โข ( R
โ๐ด) โ
V |
17 | 16, 15 | ab2rexex 7970 |
. . . . . . 7
โข {๐ โฃ โ๐ฅ๐
โ ( R
โ๐ด)โ๐ฆ๐ฟ โ
(๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โ V |
18 | | fvex 6904 |
. . . . . . . . 9
โข ( L
โ๐ด) โ
V |
19 | 18 | rabex 5332 |
. . . . . . . 8
โข {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ} โ
V |
20 | | fvex 6904 |
. . . . . . . 8
โข (๐
โ๐ผ) โ V |
21 | 19, 20 | ab2rexex 7970 |
. . . . . . 7
โข {๐ โฃ โ๐ฅ๐ฟ โ
{๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)}
โ V |
22 | 17, 21 | unex 7737 |
. . . . . 6
โข ({๐ โฃ โ๐ฅ๐
โ ( R
โ๐ด)โ๐ฆ๐ฟ โ
(๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)})
โ V |
23 | 15, 22 | unex 7737 |
. . . . 5
โข ((๐ฟโ๐ผ) โช ({๐ โฃ โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)}))
โ V |
24 | 19, 15 | ab2rexex 7970 |
. . . . . . 7
โข {๐ โฃ โ๐ฅ๐ฟ โ
{๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐ฟ)}
โ V |
25 | 16, 20 | ab2rexex 7970 |
. . . . . . 7
โข {๐ โฃ โ๐ฅ๐
โ ( R
โ๐ด)โ๐ฆ๐
โ
(๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐
)}
โ V |
26 | 24, 25 | unex 7737 |
. . . . . 6
โข ({๐ โฃ โ๐ฅ๐ฟ โ
{๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐ฟ)}
โช {๐ โฃ
โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐
)})
โ V |
27 | 20, 26 | unex 7737 |
. . . . 5
โข ((๐
โ๐ผ) โช ({๐ โฃ โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐ฟ)}
โช {๐ โฃ
โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐
)}))
โ V |
28 | 23, 27 | op1st 7987 |
. . . 4
โข
(1st โโจ((๐ฟโ๐ผ) โช ({๐ โฃ โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)})),
((๐
โ๐ผ) โช ({๐ โฃ โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐ฟ)}
โช {๐ โฃ
โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐
)}))โฉ) = ((๐ฟโ๐ผ) โช ({๐ โฃ โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)})) |
29 | 14, 28 | eqtrdi 2787 |
. . 3
โข (๐ผ โ ฯ โ
(1st โ(๐นโsuc ๐ผ)) = ((๐ฟโ๐ผ) โช ({๐ โฃ โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)}))) |
30 | 11, 29 | eqtrd 2771 |
. 2
โข (๐ผ โ ฯ โ
((1st โ ๐น)โsuc ๐ผ) = ((๐ฟโ๐ผ) โช ({๐ โฃ โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)}))) |
31 | 2, 30 | eqtrid 2783 |
1
โข (๐ผ โ ฯ โ (๐ฟโsuc ๐ผ) = ((๐ฟโ๐ผ) โช ({๐ โฃ โ๐ฅ๐
โ ( R โ๐ด)โ๐ฆ๐ฟ โ (๐ฟโ๐ผ)๐ = (( 1s +s ((๐ฅ๐
-s ๐ด)
ยทs ๐ฆ๐ฟ)) /su
๐ฅ๐
)}
โช {๐ โฃ
โ๐ฅ๐ฟ โ {๐ฅ โ ( L โ๐ด) โฃ 0s <s
๐ฅ}โ๐ฆ๐
โ (๐
โ๐ผ)๐ = (( 1s +s ((๐ฅ๐ฟ
-s ๐ด)
ยทs ๐ฆ๐
)) /su
๐ฅ๐ฟ)}))) |