Step | Hyp | Ref
| Expression |
1 | | algcvga.5 |
. . . 4
β’ π = (πΆβπ΄) |
2 | | algcvga.3 |
. . . . 5
β’ πΆ:πβΆβ0 |
3 | 2 | ffvelcdmi 5651 |
. . . 4
β’ (π΄ β π β (πΆβπ΄) β
β0) |
4 | 1, 3 | eqeltrid 2264 |
. . 3
β’ (π΄ β π β π β
β0) |
5 | 4 | nn0zd 9373 |
. 2
β’ (π΄ β π β π β β€) |
6 | | uzval 9530 |
. . . . . . 7
β’ (π β β€ β
(β€β₯βπ) = {π§ β β€ β£ π β€ π§}) |
7 | 6 | eleq2d 2247 |
. . . . . 6
β’ (π β β€ β (πΎ β
(β€β₯βπ) β πΎ β {π§ β β€ β£ π β€ π§})) |
8 | 7 | pm5.32i 454 |
. . . . 5
β’ ((π β β€ β§ πΎ β
(β€β₯βπ)) β (π β β€ β§ πΎ β {π§ β β€ β£ π β€ π§})) |
9 | | fveqeq2 5525 |
. . . . . . 7
β’ (π = π β ((π
βπ) = (π
βπ) β (π
βπ) = (π
βπ))) |
10 | 9 | imbi2d 230 |
. . . . . 6
β’ (π = π β ((π΄ β π β (π
βπ) = (π
βπ)) β (π΄ β π β (π
βπ) = (π
βπ)))) |
11 | | fveqeq2 5525 |
. . . . . . 7
β’ (π = π β ((π
βπ) = (π
βπ) β (π
βπ) = (π
βπ))) |
12 | 11 | imbi2d 230 |
. . . . . 6
β’ (π = π β ((π΄ β π β (π
βπ) = (π
βπ)) β (π΄ β π β (π
βπ) = (π
βπ)))) |
13 | | fveqeq2 5525 |
. . . . . . 7
β’ (π = (π + 1) β ((π
βπ) = (π
βπ) β (π
β(π + 1)) = (π
βπ))) |
14 | 13 | imbi2d 230 |
. . . . . 6
β’ (π = (π + 1) β ((π΄ β π β (π
βπ) = (π
βπ)) β (π΄ β π β (π
β(π + 1)) = (π
βπ)))) |
15 | | fveqeq2 5525 |
. . . . . . 7
β’ (π = πΎ β ((π
βπ) = (π
βπ) β (π
βπΎ) = (π
βπ))) |
16 | 15 | imbi2d 230 |
. . . . . 6
β’ (π = πΎ β ((π΄ β π β (π
βπ) = (π
βπ)) β (π΄ β π β (π
βπΎ) = (π
βπ)))) |
17 | | eqidd 2178 |
. . . . . . 7
β’ (π΄ β π β (π
βπ) = (π
βπ)) |
18 | 17 | a1i 9 |
. . . . . 6
β’ (π β β€ β (π΄ β π β (π
βπ) = (π
βπ))) |
19 | 6 | eleq2d 2247 |
. . . . . . . . 9
β’ (π β β€ β (π β
(β€β₯βπ) β π β {π§ β β€ β£ π β€ π§})) |
20 | 19 | pm5.32i 454 |
. . . . . . . 8
β’ ((π β β€ β§ π β
(β€β₯βπ)) β (π β β€ β§ π β {π§ β β€ β£ π β€ π§})) |
21 | | eluznn0 9599 |
. . . . . . . . . . . . . . 15
β’ ((π β β0
β§ π β
(β€β₯βπ)) β π β β0) |
22 | 4, 21 | sylan 283 |
. . . . . . . . . . . . . 14
β’ ((π΄ β π β§ π β (β€β₯βπ)) β π β β0) |
23 | | nn0uz 9562 |
. . . . . . . . . . . . . . 15
β’
β0 = (β€β₯β0) |
24 | | algcvga.2 |
. . . . . . . . . . . . . . 15
β’ π
= seq0((πΉ β 1st ),
(β0 Γ {π΄})) |
25 | | 0zd 9265 |
. . . . . . . . . . . . . . 15
β’ (π΄ β π β 0 β β€) |
26 | | id 19 |
. . . . . . . . . . . . . . 15
β’ (π΄ β π β π΄ β π) |
27 | | algcvga.1 |
. . . . . . . . . . . . . . . 16
β’ πΉ:πβΆπ |
28 | 27 | a1i 9 |
. . . . . . . . . . . . . . 15
β’ (π΄ β π β πΉ:πβΆπ) |
29 | 23, 24, 25, 26, 28 | algrp1 12046 |
. . . . . . . . . . . . . 14
β’ ((π΄ β π β§ π β β0) β (π
β(π + 1)) = (πΉβ(π
βπ))) |
30 | 22, 29 | syldan 282 |
. . . . . . . . . . . . 13
β’ ((π΄ β π β§ π β (β€β₯βπ)) β (π
β(π + 1)) = (πΉβ(π
βπ))) |
31 | 23, 24, 25, 26, 28 | algrf 12045 |
. . . . . . . . . . . . . . . 16
β’ (π΄ β π β π
:β0βΆπ) |
32 | 31 | ffvelcdmda 5652 |
. . . . . . . . . . . . . . 15
β’ ((π΄ β π β§ π β β0) β (π
βπ) β π) |
33 | 22, 32 | syldan 282 |
. . . . . . . . . . . . . 14
β’ ((π΄ β π β§ π β (β€β₯βπ)) β (π
βπ) β π) |
34 | | algcvga.4 |
. . . . . . . . . . . . . . . 16
β’ (π§ β π β ((πΆβ(πΉβπ§)) β 0 β (πΆβ(πΉβπ§)) < (πΆβπ§))) |
35 | 27, 24, 2, 34, 1 | algcvga 12051 |
. . . . . . . . . . . . . . 15
β’ (π΄ β π β (π β (β€β₯βπ) β (πΆβ(π
βπ)) = 0)) |
36 | 35 | imp 124 |
. . . . . . . . . . . . . 14
β’ ((π΄ β π β§ π β (β€β₯βπ)) β (πΆβ(π
βπ)) = 0) |
37 | | fveqeq2 5525 |
. . . . . . . . . . . . . . . 16
β’ (π§ = (π
βπ) β ((πΆβπ§) = 0 β (πΆβ(π
βπ)) = 0)) |
38 | | fveq2 5516 |
. . . . . . . . . . . . . . . . 17
β’ (π§ = (π
βπ) β (πΉβπ§) = (πΉβ(π
βπ))) |
39 | | id 19 |
. . . . . . . . . . . . . . . . 17
β’ (π§ = (π
βπ) β π§ = (π
βπ)) |
40 | 38, 39 | eqeq12d 2192 |
. . . . . . . . . . . . . . . 16
β’ (π§ = (π
βπ) β ((πΉβπ§) = π§ β (πΉβ(π
βπ)) = (π
βπ))) |
41 | 37, 40 | imbi12d 234 |
. . . . . . . . . . . . . . 15
β’ (π§ = (π
βπ) β (((πΆβπ§) = 0 β (πΉβπ§) = π§) β ((πΆβ(π
βπ)) = 0 β (πΉβ(π
βπ)) = (π
βπ)))) |
42 | | algfx.6 |
. . . . . . . . . . . . . . 15
β’ (π§ β π β ((πΆβπ§) = 0 β (πΉβπ§) = π§)) |
43 | 41, 42 | vtoclga 2804 |
. . . . . . . . . . . . . 14
β’ ((π
βπ) β π β ((πΆβ(π
βπ)) = 0 β (πΉβ(π
βπ)) = (π
βπ))) |
44 | 33, 36, 43 | sylc 62 |
. . . . . . . . . . . . 13
β’ ((π΄ β π β§ π β (β€β₯βπ)) β (πΉβ(π
βπ)) = (π
βπ)) |
45 | 30, 44 | eqtrd 2210 |
. . . . . . . . . . . 12
β’ ((π΄ β π β§ π β (β€β₯βπ)) β (π
β(π + 1)) = (π
βπ)) |
46 | 45 | eqeq1d 2186 |
. . . . . . . . . . 11
β’ ((π΄ β π β§ π β (β€β₯βπ)) β ((π
β(π + 1)) = (π
βπ) β (π
βπ) = (π
βπ))) |
47 | 46 | biimprd 158 |
. . . . . . . . . 10
β’ ((π΄ β π β§ π β (β€β₯βπ)) β ((π
βπ) = (π
βπ) β (π
β(π + 1)) = (π
βπ))) |
48 | 47 | expcom 116 |
. . . . . . . . 9
β’ (π β
(β€β₯βπ) β (π΄ β π β ((π
βπ) = (π
βπ) β (π
β(π + 1)) = (π
βπ)))) |
49 | 48 | adantl 277 |
. . . . . . . 8
β’ ((π β β€ β§ π β
(β€β₯βπ)) β (π΄ β π β ((π
βπ) = (π
βπ) β (π
β(π + 1)) = (π
βπ)))) |
50 | 20, 49 | sylbir 135 |
. . . . . . 7
β’ ((π β β€ β§ π β {π§ β β€ β£ π β€ π§}) β (π΄ β π β ((π
βπ) = (π
βπ) β (π
β(π + 1)) = (π
βπ)))) |
51 | 50 | a2d 26 |
. . . . . 6
β’ ((π β β€ β§ π β {π§ β β€ β£ π β€ π§}) β ((π΄ β π β (π
βπ) = (π
βπ)) β (π΄ β π β (π
β(π + 1)) = (π
βπ)))) |
52 | 10, 12, 14, 16, 18, 51 | uzind3 9366 |
. . . . 5
β’ ((π β β€ β§ πΎ β {π§ β β€ β£ π β€ π§}) β (π΄ β π β (π
βπΎ) = (π
βπ))) |
53 | 8, 52 | sylbi 121 |
. . . 4
β’ ((π β β€ β§ πΎ β
(β€β₯βπ)) β (π΄ β π β (π
βπΎ) = (π
βπ))) |
54 | 53 | ex 115 |
. . 3
β’ (π β β€ β (πΎ β
(β€β₯βπ) β (π΄ β π β (π
βπΎ) = (π
βπ)))) |
55 | 54 | com3r 79 |
. 2
β’ (π΄ β π β (π β β€ β (πΎ β (β€β₯βπ) β (π
βπΎ) = (π
βπ)))) |
56 | 5, 55 | mpd 13 |
1
β’ (π΄ β π β (πΎ β (β€β₯βπ) β (π
βπΎ) = (π
βπ))) |