Step | Hyp | Ref
| Expression |
1 | | sticksstones10.2 |
. . . . . . . 8
β’ (π β πΎ β β) |
2 | 1 | nnne0d 12258 |
. . . . . . 7
β’ (π β πΎ β 0) |
3 | 2 | adantr 481 |
. . . . . 6
β’ ((π β§ π β π΅) β πΎ β 0) |
4 | 3 | neneqd 2945 |
. . . . 5
β’ ((π β§ π β π΅) β Β¬ πΎ = 0) |
5 | 4 | iffalsed 4538 |
. . . 4
β’ ((π β§ π β π΅) β if(πΎ = 0, {β¨1, πβ©}, (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))) = (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))) |
6 | 5 | eqcomd 2738 |
. . 3
β’ ((π β§ π β π΅) β (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) = if(πΎ = 0, {β¨1, πβ©}, (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β
1)))))) |
7 | | eleq1 2821 |
. . . . . . . . 9
β’ (((π + πΎ) β (πβπΎ)) = if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β (((π + πΎ) β (πβπΎ)) β β0 β
if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β
β0)) |
8 | | eleq1 2821 |
. . . . . . . . 9
β’ (if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) = if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β (if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β
β0 β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β
β0)) |
9 | | sticksstones10.1 |
. . . . . . . . . . . . . . . . . 18
β’ (π β π β
β0) |
10 | 9 | nn0zd 12580 |
. . . . . . . . . . . . . . . . 17
β’ (π β π β β€) |
11 | 10 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β π β β€) |
12 | 1 | nnzd 12581 |
. . . . . . . . . . . . . . . . 17
β’ (π β πΎ β β€) |
13 | 12 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β πΎ β β€) |
14 | 11, 13 | zaddcld 12666 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅) β (π + πΎ) β β€) |
15 | | sticksstones10.5 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ π΅ = {π β£ (π:(1...πΎ)βΆ(1...(π + πΎ)) β§ βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦)))} |
16 | 15 | eleq2i 2825 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β π΅ β π β {π β£ (π:(1...πΎ)βΆ(1...(π + πΎ)) β§ βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦)))}) |
17 | | vex 3478 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ π β V |
18 | | feq1 6695 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π = π β (π:(1...πΎ)βΆ(1...(π + πΎ)) β π:(1...πΎ)βΆ(1...(π + πΎ)))) |
19 | | fveq1 6887 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π = π β (πβπ₯) = (πβπ₯)) |
20 | | fveq1 6887 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π = π β (πβπ¦) = (πβπ¦)) |
21 | 19, 20 | breq12d 5160 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π = π β ((πβπ₯) < (πβπ¦) β (πβπ₯) < (πβπ¦))) |
22 | 21 | imbi2d 340 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π = π β ((π₯ < π¦ β (πβπ₯) < (πβπ¦)) β (π₯ < π¦ β (πβπ₯) < (πβπ¦)))) |
23 | 22 | 2ralbidv 3218 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π = π β (βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦)) β βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦)))) |
24 | 18, 23 | anbi12d 631 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π = π β ((π:(1...πΎ)βΆ(1...(π + πΎ)) β§ βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦))) β (π:(1...πΎ)βΆ(1...(π + πΎ)) β§ βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦))))) |
25 | 17, 24 | elab 3667 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β {π β£ (π:(1...πΎ)βΆ(1...(π + πΎ)) β§ βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦)))} β (π:(1...πΎ)βΆ(1...(π + πΎ)) β§ βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦)))) |
26 | 16, 25 | bitri 274 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β π΅ β (π:(1...πΎ)βΆ(1...(π + πΎ)) β§ βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦)))) |
27 | 26 | biimpi 215 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β π΅ β (π:(1...πΎ)βΆ(1...(π + πΎ)) β§ βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦)))) |
28 | 27 | adantl 482 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π΅) β (π:(1...πΎ)βΆ(1...(π + πΎ)) β§ βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦)))) |
29 | 28 | simpld 495 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β π:(1...πΎ)βΆ(1...(π + πΎ))) |
30 | | 1zzd 12589 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π΅) β 1 β β€) |
31 | 1 | nnge1d 12256 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β 1 β€ πΎ) |
32 | 31 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π΅) β 1 β€ πΎ) |
33 | 13 | zred 12662 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β π΅) β πΎ β β) |
34 | 33 | leidd 11776 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π΅) β πΎ β€ πΎ) |
35 | 30, 13, 13, 32, 34 | elfzd 13488 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β πΎ β (1...πΎ)) |
36 | 29, 35 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π΅) β (πβπΎ) β (1...(π + πΎ))) |
37 | | elfznn 13526 |
. . . . . . . . . . . . . . . . 17
β’ ((πβπΎ) β (1...(π + πΎ)) β (πβπΎ) β β) |
38 | 36, 37 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β (πβπΎ) β β) |
39 | 38 | nnzd 12581 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅) β (πβπΎ) β β€) |
40 | 14, 39 | zsubcld 12667 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΅) β ((π + πΎ) β (πβπΎ)) β β€) |
41 | 38 | nnred 12223 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β (πβπΎ) β β) |
42 | 41 | recnd 11238 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π΅) β (πβπΎ) β β) |
43 | 42 | addridd 11410 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β ((πβπΎ) + 0) = (πβπΎ)) |
44 | | elfzle2 13501 |
. . . . . . . . . . . . . . . . 17
β’ ((πβπΎ) β (1...(π + πΎ)) β (πβπΎ) β€ (π + πΎ)) |
45 | 36, 44 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β (πβπΎ) β€ (π + πΎ)) |
46 | 43, 45 | eqbrtrd 5169 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅) β ((πβπΎ) + 0) β€ (π + πΎ)) |
47 | | 0red 11213 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β 0 β β) |
48 | 14 | zred 12662 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β (π + πΎ) β β) |
49 | 41, 47, 48 | leaddsub2d 11812 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅) β (((πβπΎ) + 0) β€ (π + πΎ) β 0 β€ ((π + πΎ) β (πβπΎ)))) |
50 | 46, 49 | mpbid 231 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΅) β 0 β€ ((π + πΎ) β (πβπΎ))) |
51 | 40, 50 | jca 512 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΅) β (((π + πΎ) β (πβπΎ)) β β€ β§ 0 β€ ((π + πΎ) β (πβπΎ)))) |
52 | | elnn0z 12567 |
. . . . . . . . . . . . 13
β’ (((π + πΎ) β (πβπΎ)) β β0 β
(((π + πΎ) β (πβπΎ)) β β€ β§ 0 β€ ((π + πΎ) β (πβπΎ)))) |
53 | 51, 52 | sylibr 233 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΅) β ((π + πΎ) β (πβπΎ)) β
β0) |
54 | 53 | adantr 481 |
. . . . . . . . . . 11
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β ((π + πΎ) β (πβπΎ)) β
β0) |
55 | 54 | 3impa 1110 |
. . . . . . . . . 10
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β ((π + πΎ) β (πβπΎ)) β
β0) |
56 | 55 | adantr 481 |
. . . . . . . . 9
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ π = (πΎ + 1)) β ((π + πΎ) β (πβπΎ)) β
β0) |
57 | | eleq1 2821 |
. . . . . . . . . 10
β’ (((πβ1) β 1) = if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β (((πβ1) β 1) β
β0 β if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β
β0)) |
58 | | eleq1 2821 |
. . . . . . . . . 10
β’ ((((πβπ) β (πβ(π β 1))) β 1) = if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β ((((πβπ) β (πβ(π β 1))) β 1) β
β0 β if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β
β0)) |
59 | | 1red 11211 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β π΅) β 1 β β) |
60 | 59 | leidd 11776 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β π΅) β 1 β€ 1) |
61 | 30, 13, 30, 60, 32 | elfzd 13488 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π΅) β 1 β (1...πΎ)) |
62 | 29, 61 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β (πβ1) β (1...(π + πΎ))) |
63 | | elfznn 13526 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πβ1) β (1...(π + πΎ)) β (πβ1) β β) |
64 | 63 | nnzd 12581 |
. . . . . . . . . . . . . . . . . 18
β’ ((πβ1) β (1...(π + πΎ)) β (πβ1) β β€) |
65 | 62, 64 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π΅) β (πβ1) β β€) |
66 | 65, 30 | zsubcld 12667 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β ((πβ1) β 1) β
β€) |
67 | | 1cnd 11205 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π΅) β 1 β β) |
68 | 67 | addridd 11410 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β (1 + 0) = 1) |
69 | | elfzle1 13500 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πβ1) β (1...(π + πΎ)) β 1 β€ (πβ1)) |
70 | 62, 69 | syl 17 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β 1 β€ (πβ1)) |
71 | 68, 70 | eqbrtrd 5169 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π΅) β (1 + 0) β€ (πβ1)) |
72 | 65 | zred 12662 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β (πβ1) β β) |
73 | 59, 47, 72 | leaddsub2d 11812 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π΅) β ((1 + 0) β€ (πβ1) β 0 β€ ((πβ1) β 1))) |
74 | 71, 73 | mpbid 231 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β 0 β€ ((πβ1) β 1)) |
75 | 66, 74 | jca 512 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅) β (((πβ1) β 1) β β€ β§ 0
β€ ((πβ1) β
1))) |
76 | | elnn0z 12567 |
. . . . . . . . . . . . . . 15
β’ (((πβ1) β 1) β
β0 β (((πβ1) β 1) β β€ β§ 0
β€ ((πβ1) β
1))) |
77 | 75, 76 | sylibr 233 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΅) β ((πβ1) β 1) β
β0) |
78 | 77 | adantr 481 |
. . . . . . . . . . . . 13
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β ((πβ1) β 1) β
β0) |
79 | 78 | 3impa 1110 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β ((πβ1) β 1) β
β0) |
80 | 79 | adantr 481 |
. . . . . . . . . . 11
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β ((πβ1) β 1) β
β0) |
81 | 80 | adantr 481 |
. . . . . . . . . 10
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ π = 1) β ((πβ1) β 1) β
β0) |
82 | 29 | 3adant3 1132 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π:(1...πΎ)βΆ(1...(π + πΎ))) |
83 | 82 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π:(1...πΎ)βΆ(1...(π + πΎ))) |
84 | | 1zzd 12589 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β 1 β
β€) |
85 | 13 | 3adant3 1132 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β πΎ β β€) |
86 | 85 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β πΎ β β€) |
87 | | simp3 1138 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π β (1...(πΎ + 1))) |
88 | | elfznn 13526 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β (1...(πΎ + 1)) β π β β) |
89 | 87, 88 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π β β) |
90 | 89 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β β) |
91 | 90 | nnzd 12581 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β β€) |
92 | 90 | nnge1d 12256 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β 1 β€ π) |
93 | | elfzle2 13501 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β (1...(πΎ + 1)) β π β€ (πΎ + 1)) |
94 | 87, 93 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π β€ (πΎ + 1)) |
95 | 94 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β€ (πΎ + 1)) |
96 | | neqne 2948 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (Β¬
π = (πΎ + 1) β π β (πΎ + 1)) |
97 | 96 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β (πΎ + 1)) |
98 | 97 | necomd 2996 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (πΎ + 1) β π) |
99 | 95, 98 | jca 512 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (π β€ (πΎ + 1) β§ (πΎ + 1) β π)) |
100 | 90 | nnred 12223 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β β) |
101 | 86 | zred 12662 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β πΎ β β) |
102 | | 1red 11211 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β 1 β
β) |
103 | 101, 102 | readdcld 11239 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (πΎ + 1) β β) |
104 | 100, 103 | ltlend 11355 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (π < (πΎ + 1) β (π β€ (πΎ + 1) β§ (πΎ + 1) β π))) |
105 | 99, 104 | mpbird 256 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π < (πΎ + 1)) |
106 | 89 | nnzd 12581 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π β β€) |
107 | | zleltp1 12609 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β€ β§ πΎ β β€) β (π β€ πΎ β π < (πΎ + 1))) |
108 | 106, 85, 107 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β (π β€ πΎ β π < (πΎ + 1))) |
109 | 108 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (π β€ πΎ β π < (πΎ + 1))) |
110 | 105, 109 | mpbird 256 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β€ πΎ) |
111 | 84, 86, 91, 92, 110 | elfzd 13488 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β (1...πΎ)) |
112 | 83, 111 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (πβπ) β (1...(π + πΎ))) |
113 | | elfznn 13526 |
. . . . . . . . . . . . . . . . 17
β’ ((πβπ) β (1...(π + πΎ)) β (πβπ) β β) |
114 | 112, 113 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (πβπ) β β) |
115 | 114 | nnzd 12581 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (πβπ) β β€) |
116 | 115 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβπ) β β€) |
117 | 83 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β π:(1...πΎ)βΆ(1...(π + πΎ))) |
118 | | 1zzd 12589 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 β
β€) |
119 | 86 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β πΎ β β€) |
120 | 91 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β π β β€) |
121 | 120, 118 | zsubcld 12667 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (π β 1) β β€) |
122 | 92 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 β€ π) |
123 | | neqne 2948 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (Β¬
π = 1 β π β 1) |
124 | 123 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β π β 1) |
125 | 122, 124 | jca 512 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (1 β€ π β§ π β 1)) |
126 | 102 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 β
β) |
127 | 100 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β π β β) |
128 | 126, 127 | ltlend 11355 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (1 < π β (1 β€ π β§ π β 1))) |
129 | 125, 128 | mpbird 256 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 < π) |
130 | 118, 120 | zltlem1d 40832 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (1 < π β 1 β€ (π β 1))) |
131 | 129, 130 | mpbid 231 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 β€ (π β 1)) |
132 | 89 | nnred 12223 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π β β) |
133 | 59 | 3adant3 1132 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β 1 β
β) |
134 | 33 | 3adant3 1132 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β πΎ β β) |
135 | | lesubadd 11682 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β β§ 1 β
β β§ πΎ β
β) β ((π β
1) β€ πΎ β π β€ (πΎ + 1))) |
136 | 132, 133,
134, 135 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β ((π β 1) β€ πΎ β π β€ (πΎ + 1))) |
137 | 94, 136 | mpbird 256 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β (π β 1) β€ πΎ) |
138 | 137 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (π β 1) β€ πΎ) |
139 | 138 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (π β 1) β€ πΎ) |
140 | 118, 119,
121, 131, 139 | elfzd 13488 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (π β 1) β (1...πΎ)) |
141 | 117, 140 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβ(π β 1)) β (1...(π + πΎ))) |
142 | | elfznn 13526 |
. . . . . . . . . . . . . . . 16
β’ ((πβ(π β 1)) β (1...(π + πΎ)) β (πβ(π β 1)) β β) |
143 | 141, 142 | syl 17 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβ(π β 1)) β β) |
144 | 143 | nnzd 12581 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβ(π β 1)) β β€) |
145 | 116, 144 | zsubcld 12667 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β ((πβπ) β (πβ(π β 1))) β
β€) |
146 | 145, 118 | zsubcld 12667 |
. . . . . . . . . . . 12
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (((πβπ) β (πβ(π β 1))) β 1) β
β€) |
147 | | 0p1e1 12330 |
. . . . . . . . . . . . . . 15
β’ (0 + 1) =
1 |
148 | 147 | a1i 11 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (0 + 1) = 1) |
149 | | 1cnd 11205 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 β
β) |
150 | 149 | subidd 11555 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (1 β 1) =
0) |
151 | 144 | zred 12662 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβ(π β 1)) β β) |
152 | 151 | recnd 11238 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβ(π β 1)) β β) |
153 | 152 | addridd 11410 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β ((πβ(π β 1)) + 0) = (πβ(π β 1))) |
154 | 127 | ltm1d 12142 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (π β 1) < π) |
155 | 111 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β π β (1...πΎ)) |
156 | 140, 155 | jca 512 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β ((π β 1) β (1...πΎ) β§ π β (1...πΎ))) |
157 | 28 | simprd 496 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β π΅) β βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦))) |
158 | 157 | 3adant3 1132 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦))) |
159 | 158 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦))) |
160 | 159 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦))) |
161 | | breq1 5150 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π₯ = (π β 1) β (π₯ < π¦ β (π β 1) < π¦)) |
162 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π₯ = (π β 1) β (πβπ₯) = (πβ(π β 1))) |
163 | 162 | breq1d 5157 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π₯ = (π β 1) β ((πβπ₯) < (πβπ¦) β (πβ(π β 1)) < (πβπ¦))) |
164 | 161, 163 | imbi12d 344 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π₯ = (π β 1) β ((π₯ < π¦ β (πβπ₯) < (πβπ¦)) β ((π β 1) < π¦ β (πβ(π β 1)) < (πβπ¦)))) |
165 | | breq2 5151 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π¦ = π β ((π β 1) < π¦ β (π β 1) < π)) |
166 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π¦ = π β (πβπ¦) = (πβπ)) |
167 | 166 | breq2d 5159 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π¦ = π β ((πβ(π β 1)) < (πβπ¦) β (πβ(π β 1)) < (πβπ))) |
168 | 165, 167 | imbi12d 344 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π¦ = π β (((π β 1) < π¦ β (πβ(π β 1)) < (πβπ¦)) β ((π β 1) < π β (πβ(π β 1)) < (πβπ)))) |
169 | 164, 168 | rspc2va 3622 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β 1) β (1...πΎ) β§ π β (1...πΎ)) β§ βπ₯ β (1...πΎ)βπ¦ β (1...πΎ)(π₯ < π¦ β (πβπ₯) < (πβπ¦))) β ((π β 1) < π β (πβ(π β 1)) < (πβπ))) |
170 | 156, 160,
169 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β ((π β 1) < π β (πβ(π β 1)) < (πβπ))) |
171 | 154, 170 | mpd 15 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβ(π β 1)) < (πβπ)) |
172 | 153, 171 | eqbrtrd 5169 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β ((πβ(π β 1)) + 0) < (πβπ)) |
173 | | 0red 11213 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 0 β
β) |
174 | 116 | zred 12662 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβπ) β β) |
175 | 151, 173,
174 | ltaddsub2d 11811 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (((πβ(π β 1)) + 0) < (πβπ) β 0 < ((πβπ) β (πβ(π β 1))))) |
176 | 172, 175 | mpbid 231 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 0 < ((πβπ) β (πβ(π β 1)))) |
177 | 150, 176 | eqbrtrd 5169 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (1 β 1) < ((πβπ) β (πβ(π β 1)))) |
178 | | zlem1lt 12610 |
. . . . . . . . . . . . . . . 16
β’ ((1
β β€ β§ ((πβπ) β (πβ(π β 1))) β β€) β (1 β€
((πβπ) β (πβ(π β 1))) β (1 β 1) <
((πβπ) β (πβ(π β 1))))) |
179 | 118, 145,
178 | syl2anc 584 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (1 β€ ((πβπ) β (πβ(π β 1))) β (1 β 1) <
((πβπ) β (πβ(π β 1))))) |
180 | 177, 179 | mpbird 256 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 β€ ((πβπ) β (πβ(π β 1)))) |
181 | 148, 180 | eqbrtrd 5169 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (0 + 1) β€ ((πβπ) β (πβ(π β 1)))) |
182 | 145 | zred 12662 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β ((πβπ) β (πβ(π β 1))) β
β) |
183 | | leaddsub 11686 |
. . . . . . . . . . . . . 14
β’ ((0
β β β§ 1 β β β§ ((πβπ) β (πβ(π β 1))) β β) β ((0 + 1)
β€ ((πβπ) β (πβ(π β 1))) β 0 β€ (((πβπ) β (πβ(π β 1))) β 1))) |
184 | 173, 126,
182, 183 | syl3anc 1371 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β ((0 + 1) β€ ((πβπ) β (πβ(π β 1))) β 0 β€ (((πβπ) β (πβ(π β 1))) β 1))) |
185 | 181, 184 | mpbid 231 |
. . . . . . . . . . . 12
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 0 β€ (((πβπ) β (πβ(π β 1))) β 1)) |
186 | 146, 185 | jca 512 |
. . . . . . . . . . 11
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β ((((πβπ) β (πβ(π β 1))) β 1) β β€ β§
0 β€ (((πβπ) β (πβ(π β 1))) β 1))) |
187 | | elnn0z 12567 |
. . . . . . . . . . 11
β’ ((((πβπ) β (πβ(π β 1))) β 1) β
β0 β ((((πβπ) β (πβ(π β 1))) β 1) β β€ β§
0 β€ (((πβπ) β (πβ(π β 1))) β 1))) |
188 | 186, 187 | sylibr 233 |
. . . . . . . . . 10
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (((πβπ) β (πβ(π β 1))) β 1) β
β0) |
189 | 57, 58, 81, 188 | ifbothda 4565 |
. . . . . . . . 9
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β
β0) |
190 | 7, 8, 56, 189 | ifbothda 4565 |
. . . . . . . 8
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β
β0) |
191 | 190 | 3expa 1118 |
. . . . . . 7
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β
β0) |
192 | 191 | fmpttd 7111 |
. . . . . 6
β’ ((π β§ π β π΅) β (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))):(1...(πΎ +
1))βΆβ0) |
193 | | eqidd 2733 |
. . . . . . . . 9
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) = (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))) |
194 | | simpr 485 |
. . . . . . . . . . 11
β’ ((((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β§ π = π) β π = π) |
195 | 194 | eqeq1d 2734 |
. . . . . . . . . 10
β’ ((((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β§ π = π) β (π = (πΎ + 1) β π = (πΎ + 1))) |
196 | 194 | eqeq1d 2734 |
. . . . . . . . . . 11
β’ ((((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β§ π = π) β (π = 1 β π = 1)) |
197 | 194 | fveq2d 6892 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β§ π = π) β (πβπ) = (πβπ)) |
198 | 194 | fvoveq1d 7427 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β§ π = π) β (πβ(π β 1)) = (πβ(π β 1))) |
199 | 197, 198 | oveq12d 7423 |
. . . . . . . . . . . 12
β’ ((((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β§ π = π) β ((πβπ) β (πβ(π β 1))) = ((πβπ) β (πβ(π β 1)))) |
200 | 199 | oveq1d 7420 |
. . . . . . . . . . 11
β’ ((((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β§ π = π) β (((πβπ) β (πβ(π β 1))) β 1) = (((πβπ) β (πβ(π β 1))) β 1)) |
201 | 196, 200 | ifbieq2d 4553 |
. . . . . . . . . 10
β’ ((((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β§ π = π) β if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) = if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) |
202 | 195, 201 | ifbieq2d 4553 |
. . . . . . . . 9
β’ ((((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β§ π = π) β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) = if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) |
203 | | simpr 485 |
. . . . . . . . 9
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β π β (1...(πΎ + 1))) |
204 | | ovexd 7440 |
. . . . . . . . . 10
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β ((π + πΎ) β (πβπΎ)) β V) |
205 | | ovexd 7440 |
. . . . . . . . . . 11
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β ((πβ1) β 1) β
V) |
206 | | ovexd 7440 |
. . . . . . . . . . 11
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β (((πβπ) β (πβ(π β 1))) β 1) β
V) |
207 | 205, 206 | ifcld 4573 |
. . . . . . . . . 10
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β
V) |
208 | 204, 207 | ifcld 4573 |
. . . . . . . . 9
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β
V) |
209 | 193, 202,
203, 208 | fvmptd 7002 |
. . . . . . . 8
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β ((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))βπ) = if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) |
210 | 209 | sumeq2dv 15645 |
. . . . . . 7
β’ ((π β§ π β π΅) β Ξ£π β (1...(πΎ + 1))((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))βπ) = Ξ£π β (1...(πΎ + 1))if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) |
211 | 1 | adantr 481 |
. . . . . . . . . 10
β’ ((π β§ π β π΅) β πΎ β β) |
212 | | nnuz 12861 |
. . . . . . . . . 10
β’ β =
(β€β₯β1) |
213 | 211, 212 | eleqtrdi 2843 |
. . . . . . . . 9
β’ ((π β§ π β π΅) β πΎ β
(β€β₯β1)) |
214 | | eleq1 2821 |
. . . . . . . . . . . 12
β’ (((π + πΎ) β (πβπΎ)) = if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β (((π + πΎ) β (πβπΎ)) β β€ β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β
β€)) |
215 | | eleq1 2821 |
. . . . . . . . . . . 12
β’ (if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) = if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β (if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β β€
β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β
β€)) |
216 | 11 | 3adant3 1132 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π β β€) |
217 | 216 | adantr 481 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ π = (πΎ + 1)) β π β β€) |
218 | 13 | 3adant3 1132 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β πΎ β β€) |
219 | 218 | adantr 481 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ π = (πΎ + 1)) β πΎ β β€) |
220 | 217, 219 | zaddcld 12666 |
. . . . . . . . . . . . 13
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ π = (πΎ + 1)) β (π + πΎ) β β€) |
221 | 38 | 3adant3 1132 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β (πβπΎ) β β) |
222 | 221 | adantr 481 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ π = (πΎ + 1)) β (πβπΎ) β β) |
223 | 222 | nnzd 12581 |
. . . . . . . . . . . . 13
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ π = (πΎ + 1)) β (πβπΎ) β β€) |
224 | 220, 223 | zsubcld 12667 |
. . . . . . . . . . . 12
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ π = (πΎ + 1)) β ((π + πΎ) β (πβπΎ)) β β€) |
225 | | eleq1 2821 |
. . . . . . . . . . . . 13
β’ (((πβ1) β 1) = if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β (((πβ1) β 1) β
β€ β if(π = 1,
((πβ1) β 1),
(((πβπ) β (πβ(π β 1))) β 1)) β
β€)) |
226 | | eleq1 2821 |
. . . . . . . . . . . . 13
β’ ((((πβπ) β (πβ(π β 1))) β 1) = if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β ((((πβπ) β (πβ(π β 1))) β 1) β β€
β if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β
β€)) |
227 | 65 | 3adant3 1132 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β (πβ1) β β€) |
228 | 227 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (πβ1) β β€) |
229 | 228 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ π = 1) β (πβ1) β β€) |
230 | | 1zzd 12589 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ π = 1) β 1 β
β€) |
231 | 229, 230 | zsubcld 12667 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ π = 1) β ((πβ1) β 1) β
β€) |
232 | 29 | 3adant3 1132 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π:(1...πΎ)βΆ(1...(π + πΎ))) |
233 | 232 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π:(1...πΎ)βΆ(1...(π + πΎ))) |
234 | 233 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β π:(1...πΎ)βΆ(1...(π + πΎ))) |
235 | | 1zzd 12589 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β 1 β
β€) |
236 | 218 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β πΎ β β€) |
237 | | elfznn 13526 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β (1...(πΎ + 1)) β π β β) |
238 | 237 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β π β β) |
239 | 238 | 3impa 1110 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π β β) |
240 | 239 | nnzd 12581 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π β β€) |
241 | 240 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β β€) |
242 | 239 | nnge1d 12256 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β 1 β€ π) |
243 | 242 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β 1 β€ π) |
244 | | simp3 1138 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π β (1...(πΎ + 1))) |
245 | | elfzle2 13501 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β (1...(πΎ + 1)) β π β€ (πΎ + 1)) |
246 | 244, 245 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β π β€ (πΎ + 1)) |
247 | 246 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β€ (πΎ + 1)) |
248 | | neqne 2948 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (Β¬
π = (πΎ + 1) β π β (πΎ + 1)) |
249 | 248 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β (πΎ + 1)) |
250 | 249 | necomd 2996 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (πΎ + 1) β π) |
251 | 247, 250 | jca 512 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (π β€ (πΎ + 1) β§ (πΎ + 1) β π)) |
252 | 241 | zred 12662 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β β) |
253 | 236 | zred 12662 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β πΎ β β) |
254 | | 1red 11211 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β 1 β
β) |
255 | 253, 254 | readdcld 11239 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (πΎ + 1) β β) |
256 | 252, 255 | ltlend 11355 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (π < (πΎ + 1) β (π β€ (πΎ + 1) β§ (πΎ + 1) β π))) |
257 | 251, 256 | mpbird 256 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π < (πΎ + 1)) |
258 | | zleltp1 12609 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β€ β§ πΎ β β€) β (π β€ πΎ β π < (πΎ + 1))) |
259 | 241, 236,
258 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β (π β€ πΎ β π < (πΎ + 1))) |
260 | 257, 259 | mpbird 256 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β€ πΎ) |
261 | 235, 236,
241, 243, 260 | elfzd 13488 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β π β (1...πΎ)) |
262 | 261 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β π β (1...πΎ)) |
263 | 234, 262 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβπ) β (1...(π + πΎ))) |
264 | | elfznn 13526 |
. . . . . . . . . . . . . . . . 17
β’ ((πβπ) β (1...(π + πΎ)) β (πβπ) β β) |
265 | 263, 264 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβπ) β β) |
266 | 265 | nnzd 12581 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβπ) β β€) |
267 | | 1zzd 12589 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 β
β€) |
268 | 236 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β πΎ β β€) |
269 | 241 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β π β β€) |
270 | 269, 267 | zsubcld 12667 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (π β 1) β β€) |
271 | 243 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 β€ π) |
272 | | neqne 2948 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (Β¬
π = 1 β π β 1) |
273 | 272 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β π β 1) |
274 | 271, 273 | jca 512 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (1 β€ π β§ π β 1)) |
275 | | 1red 11211 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 β
β) |
276 | 269 | zred 12662 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β π β β) |
277 | 275, 276 | ltlend 11355 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (1 < π β (1 β€ π β§ π β 1))) |
278 | 274, 277 | mpbird 256 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 < π) |
279 | | zltp1le 12608 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((1
β β€ β§ π
β β€) β (1 < π β (1 + 1) β€ π)) |
280 | 267, 269,
279 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (1 < π β (1 + 1) β€ π)) |
281 | 278, 280 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (1 + 1) β€ π) |
282 | | leaddsub 11686 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((1
β β β§ 1 β β β§ π β β) β ((1 + 1) β€ π β 1 β€ (π β 1))) |
283 | 275, 275,
276, 282 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β ((1 + 1) β€ π β 1 β€ (π β 1))) |
284 | 281, 283 | mpbid 231 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β 1 β€ (π β 1)) |
285 | 247 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β π β€ (πΎ + 1)) |
286 | 253 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β πΎ β β) |
287 | | lesubadd 11682 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β β§ 1 β
β β§ πΎ β
β) β ((π β
1) β€ πΎ β π β€ (πΎ + 1))) |
288 | 276, 275,
286, 287 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β ((π β 1) β€ πΎ β π β€ (πΎ + 1))) |
289 | 285, 288 | mpbird 256 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (π β 1) β€ πΎ) |
290 | 267, 268,
270, 284, 289 | elfzd 13488 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (π β 1) β (1...πΎ)) |
291 | 234, 290 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβ(π β 1)) β (1...(π + πΎ))) |
292 | | elfznn 13526 |
. . . . . . . . . . . . . . . . 17
β’ ((πβ(π β 1)) β (1...(π + πΎ)) β (πβ(π β 1)) β β) |
293 | 291, 292 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβ(π β 1)) β β) |
294 | 293 | nnzd 12581 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (πβ(π β 1)) β β€) |
295 | 266, 294 | zsubcld 12667 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β ((πβπ) β (πβ(π β 1))) β
β€) |
296 | 295, 267 | zsubcld 12667 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β§ Β¬ π = 1) β (((πβπ) β (πβ(π β 1))) β 1) β
β€) |
297 | 225, 226,
231, 296 | ifbothda 4565 |
. . . . . . . . . . . 12
β’ (((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β§ Β¬ π = (πΎ + 1)) β if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β
β€) |
298 | 214, 215,
224, 297 | ifbothda 4565 |
. . . . . . . . . . 11
β’ ((π β§ π β π΅ β§ π β (1...(πΎ + 1))) β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β
β€) |
299 | 298 | 3expa 1118 |
. . . . . . . . . 10
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β
β€) |
300 | 299 | zcnd 12663 |
. . . . . . . . 9
β’ (((π β§ π β π΅) β§ π β (1...(πΎ + 1))) β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) β
β) |
301 | | eqeq1 2736 |
. . . . . . . . . 10
β’ (π = (πΎ + 1) β (π = (πΎ + 1) β (πΎ + 1) = (πΎ + 1))) |
302 | | eqeq1 2736 |
. . . . . . . . . . 11
β’ (π = (πΎ + 1) β (π = 1 β (πΎ + 1) = 1)) |
303 | | fveq2 6888 |
. . . . . . . . . . . . 13
β’ (π = (πΎ + 1) β (πβπ) = (πβ(πΎ + 1))) |
304 | | fvoveq1 7428 |
. . . . . . . . . . . . 13
β’ (π = (πΎ + 1) β (πβ(π β 1)) = (πβ((πΎ + 1) β 1))) |
305 | 303, 304 | oveq12d 7423 |
. . . . . . . . . . . 12
β’ (π = (πΎ + 1) β ((πβπ) β (πβ(π β 1))) = ((πβ(πΎ + 1)) β (πβ((πΎ + 1) β 1)))) |
306 | 305 | oveq1d 7420 |
. . . . . . . . . . 11
β’ (π = (πΎ + 1) β (((πβπ) β (πβ(π β 1))) β 1) = (((πβ(πΎ + 1)) β (πβ((πΎ + 1) β 1))) β
1)) |
307 | 302, 306 | ifbieq2d 4553 |
. . . . . . . . . 10
β’ (π = (πΎ + 1) β if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) = if((πΎ + 1) = 1, ((πβ1) β 1), (((πβ(πΎ + 1)) β (πβ((πΎ + 1) β 1))) β
1))) |
308 | 301, 307 | ifbieq2d 4553 |
. . . . . . . . 9
β’ (π = (πΎ + 1) β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) = if((πΎ + 1) = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if((πΎ + 1) = 1, ((πβ1) β 1), (((πβ(πΎ + 1)) β (πβ((πΎ + 1) β 1))) β
1)))) |
309 | 213, 300,
308 | fsump1 15698 |
. . . . . . . 8
β’ ((π β§ π β π΅) β Ξ£π β (1...(πΎ + 1))if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) = (Ξ£π β (1...πΎ)if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) + if((πΎ + 1) = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if((πΎ + 1) = 1, ((πβ1) β 1), (((πβ(πΎ + 1)) β (πβ((πΎ + 1) β 1))) β
1))))) |
310 | | eqidd 2733 |
. . . . . . . . . . 11
β’ ((π β§ π β π΅) β (πΎ + 1) = (πΎ + 1)) |
311 | 310 | iftrued 4535 |
. . . . . . . . . 10
β’ ((π β§ π β π΅) β if((πΎ + 1) = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if((πΎ + 1) = 1, ((πβ1) β 1), (((πβ(πΎ + 1)) β (πβ((πΎ + 1) β 1))) β 1))) = ((π + πΎ) β (πβπΎ))) |
312 | 311 | oveq2d 7421 |
. . . . . . . . 9
β’ ((π β§ π β π΅) β (Ξ£π β (1...πΎ)if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) + if((πΎ + 1) = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if((πΎ + 1) = 1, ((πβ1) β 1), (((πβ(πΎ + 1)) β (πβ((πΎ + 1) β 1))) β 1)))) =
(Ξ£π β (1...πΎ)if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) + ((π + πΎ) β (πβπΎ)))) |
313 | | elfznn 13526 |
. . . . . . . . . . . . . . . . 17
β’ (π β (1...πΎ) β π β β) |
314 | 313 | adantl 482 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β π β β) |
315 | 314 | nnred 12223 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β π β β) |
316 | 33 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β πΎ β β) |
317 | | 1red 11211 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β 1 β β) |
318 | 316, 317 | readdcld 11239 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β (πΎ + 1) β β) |
319 | | elfzle2 13501 |
. . . . . . . . . . . . . . . . 17
β’ (π β (1...πΎ) β π β€ πΎ) |
320 | 319 | adantl 482 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β π β€ πΎ) |
321 | 316 | ltp1d 12140 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β πΎ < (πΎ + 1)) |
322 | 315, 316,
318, 320, 321 | lelttrd 11368 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β π < (πΎ + 1)) |
323 | 315, 322 | ltned 11346 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β π β (πΎ + 1)) |
324 | 323 | neneqd 2945 |
. . . . . . . . . . . . 13
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β Β¬ π = (πΎ + 1)) |
325 | 324 | iffalsed 4538 |
. . . . . . . . . . . 12
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) = if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) |
326 | 325 | sumeq2dv 15645 |
. . . . . . . . . . 11
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) = Ξ£π β (1...πΎ)if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) |
327 | 326 | oveq1d 7420 |
. . . . . . . . . 10
β’ ((π β§ π β π΅) β (Ξ£π β (1...πΎ)if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) + ((π + πΎ) β (πβπΎ))) = (Ξ£π β (1...πΎ)if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) + ((π + πΎ) β (πβπΎ)))) |
328 | | eqeq1 2736 |
. . . . . . . . . . . . . 14
β’ (((πβ1) β 1) = if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β (((πβ1) β 1) = (if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) β if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) = (if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1))) |
329 | | eqeq1 2736 |
. . . . . . . . . . . . . 14
β’ ((((πβπ) β (πβ(π β 1))) β 1) = if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) β ((((πβπ) β (πβ(π β 1))) β 1) = (if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) β if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) = (if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1))) |
330 | | eqidd 2733 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ π = 1) β ((πβ1) β 1) = ((πβ1) β 1)) |
331 | | simpr 485 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ π = 1) β π = 1) |
332 | 331 | iftrued 4535 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ π = 1) β if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) = (πβ1)) |
333 | 332 | eqcomd 2738 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ π = 1) β (πβ1) = if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1))))) |
334 | 333 | oveq1d 7420 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ π = 1) β ((πβ1) β 1) = (if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1)) |
335 | 330, 334 | eqtrd 2772 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ π = 1) β ((πβ1) β 1) = (if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1)) |
336 | | eqidd 2733 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (((πβπ) β (πβ(π β 1))) β 1) = (((πβπ) β (πβ(π β 1))) β 1)) |
337 | | simpr 485 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β Β¬ π = 1) |
338 | 337 | iffalsed 4538 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) = ((πβπ) β (πβ(π β 1)))) |
339 | 338 | oveq1d 7420 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) = (((πβπ) β (πβ(π β 1))) β 1)) |
340 | 339 | eqcomd 2738 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (((πβπ) β (πβ(π β 1))) β 1) = (if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1)) |
341 | 336, 340 | eqtrd 2772 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (((πβπ) β (πβ(π β 1))) β 1) = (if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1)) |
342 | 328, 329,
335, 341 | ifbothda 4565 |
. . . . . . . . . . . . 13
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) = (if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1)) |
343 | 342 | sumeq2dv 15645 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) = Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1)) |
344 | 343 | oveq1d 7420 |
. . . . . . . . . . 11
β’ ((π β§ π β π΅) β (Ξ£π β (1...πΎ)if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) + ((π + πΎ) β (πβπΎ))) = (Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) + ((π + πΎ) β (πβπΎ)))) |
345 | | fzfid 13934 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π΅) β (1...πΎ) β Fin) |
346 | | eleq1 2821 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((πβ1) = if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β ((πβ1) β β€ β if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β
β€)) |
347 | | eleq1 2821 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((πβπ) β (πβ(π β 1))) = if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β (((πβπ) β (πβ(π β 1))) β β€ β if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β
β€)) |
348 | 65 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ π = 1) β (πβ1) β β€) |
349 | 29 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β π:(1...πΎ)βΆ(1...(π + πΎ))) |
350 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β π β (1...πΎ)) |
351 | 349, 350 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β (πβπ) β (1...(π + πΎ))) |
352 | 264 | nnzd 12581 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((πβπ) β (1...(π + πΎ)) β (πβπ) β β€) |
353 | 351, 352 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β (πβπ) β β€) |
354 | 353 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (πβπ) β β€) |
355 | 349 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β π:(1...πΎ)βΆ(1...(π + πΎ))) |
356 | | 1zzd 12589 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β 1 β
β€) |
357 | 13 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β πΎ β β€) |
358 | 314 | nnzd 12581 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β π β β€) |
359 | 358 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β π β β€) |
360 | 359, 356 | zsubcld 12667 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (π β 1) β β€) |
361 | 314 | nnge1d 12256 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β 1 β€ π) |
362 | 361 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β 1 β€ π) |
363 | 337, 272 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β π β 1) |
364 | 362, 363 | jca 512 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (1 β€ π β§ π β 1)) |
365 | 317 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β 1 β
β) |
366 | 315 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β π β β) |
367 | 365, 366 | ltlend 11355 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (1 < π β (1 β€ π β§ π β 1))) |
368 | 364, 367 | mpbird 256 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β 1 < π) |
369 | | zltlem1 12611 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((1
β β€ β§ π
β β€) β (1 < π β 1 β€ (π β 1))) |
370 | 356, 359,
369 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (1 < π β 1 β€ (π β 1))) |
371 | 368, 370 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β 1 β€ (π β 1)) |
372 | 315, 317 | resubcld 11638 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β (π β 1) β β) |
373 | 315 | lem1d 12143 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β (π β 1) β€ π) |
374 | 372, 315,
316, 373, 320 | letrd 11367 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β (π β 1) β€ πΎ) |
375 | 374 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (π β 1) β€ πΎ) |
376 | 356, 357,
360, 371, 375 | elfzd 13488 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (π β 1) β (1...πΎ)) |
377 | 355, 376 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (πβ(π β 1)) β (1...(π + πΎ))) |
378 | 377, 292 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (πβ(π β 1)) β β) |
379 | 378 | nnzd 12581 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β (πβ(π β 1)) β β€) |
380 | 354, 379 | zsubcld 12667 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ Β¬ π = 1) β ((πβπ) β (πβ(π β 1))) β
β€) |
381 | 346, 347,
348, 380 | ifbothda 4565 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β
β€) |
382 | 381 | zcnd 12663 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β
β) |
383 | 67 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β 1 β β) |
384 | 345, 382,
383 | fsumsub 15730 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) = (Ξ£π β (1...πΎ)if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β Ξ£π β (1...πΎ)1)) |
385 | | id 22 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = 1 β π = 1) |
386 | 385 | iftrued 4535 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = 1 β if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) = (πβ1)) |
387 | 213, 382,
386 | fsum1p 15695 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) = ((πβ1) + Ξ£π β ((1 + 1)...πΎ)if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))))) |
388 | 59 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...πΎ)) β 1 β β) |
389 | | elfzle1 13500 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π β ((1 + 1)...πΎ) β (1 + 1) β€ π) |
390 | 389 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...πΎ)) β (1 + 1) β€ π) |
391 | 30 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...πΎ)) β 1 β β€) |
392 | | elfzelz 13497 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (π β ((1 + 1)...πΎ) β π β β€) |
393 | 392 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...πΎ)) β π β β€) |
394 | 391, 393,
279 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...πΎ)) β (1 < π β (1 + 1) β€ π)) |
395 | 390, 394 | mpbird 256 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...πΎ)) β 1 < π) |
396 | 388, 395 | ltned 11346 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...πΎ)) β 1 β π) |
397 | 396 | necomd 2996 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...πΎ)) β π β 1) |
398 | 397 | neneqd 2945 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...πΎ)) β Β¬ π = 1) |
399 | 398 | iffalsed 4538 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...πΎ)) β if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) = ((πβπ) β (πβ(π β 1)))) |
400 | 399 | sumeq2dv 15645 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β π΅) β Ξ£π β ((1 + 1)...πΎ)if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) = Ξ£π β ((1 + 1)...πΎ)((πβπ) β (πβ(π β 1)))) |
401 | 400 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β ((1 + 1)...πΎ)if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1))))) = ((πβ1) + Ξ£π β ((1 + 1)...πΎ)((πβπ) β (πβ(π β 1))))) |
402 | 33 | recnd 11238 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((π β§ π β π΅) β πΎ β β) |
403 | 402, 67 | npcand 11571 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π β§ π β π΅) β ((πΎ β 1) + 1) = πΎ) |
404 | 403 | eqcomd 2738 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π β§ π β π΅) β πΎ = ((πΎ β 1) + 1)) |
405 | 404 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β π΅) β ((1 + 1)...πΎ) = ((1 + 1)...((πΎ β 1) + 1))) |
406 | 405 | sumeq1d 15643 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β π΅) β Ξ£π β ((1 + 1)...πΎ)((πβπ) β (πβ(π β 1))) = Ξ£π β ((1 + 1)...((πΎ β 1) + 1))((πβπ) β (πβ(π β 1)))) |
407 | 406 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β ((1 + 1)...πΎ)((πβπ) β (πβ(π β 1)))) = ((πβ1) + Ξ£π β ((1 + 1)...((πΎ β 1) + 1))((πβπ) β (πβ(π β 1))))) |
408 | | elfzelz 13497 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ (π β ((1 + 1)...((πΎ β 1) + 1)) β π β
β€) |
409 | 408 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...((πΎ β 1) + 1))) β π β β€) |
410 | 409 | zcnd 12663 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...((πΎ β 1) + 1))) β π β β) |
411 | | 1cnd 11205 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...((πΎ β 1) + 1))) β 1 β
β) |
412 | 410, 411 | npcand 11571 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...((πΎ β 1) + 1))) β ((π β 1) + 1) = π) |
413 | 412 | eqcomd 2738 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...((πΎ β 1) + 1))) β π = ((π β 1) + 1)) |
414 | 413 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...((πΎ β 1) + 1))) β (πβπ) = (πβ((π β 1) + 1))) |
415 | | eqidd 2733 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...((πΎ β 1) + 1))) β (πβ(π β 1)) = (πβ(π β 1))) |
416 | 414, 415 | oveq12d 7423 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π β π΅) β§ π β ((1 + 1)...((πΎ β 1) + 1))) β ((πβπ) β (πβ(π β 1))) = ((πβ((π β 1) + 1)) β (πβ(π β 1)))) |
417 | 416 | sumeq2dv 15645 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β π΅) β Ξ£π β ((1 + 1)...((πΎ β 1) + 1))((πβπ) β (πβ(π β 1))) = Ξ£π β ((1 + 1)...((πΎ β 1) + 1))((πβ((π β 1) + 1)) β (πβ(π β 1)))) |
418 | 417 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β ((1 + 1)...((πΎ β 1) + 1))((πβπ) β (πβ(π β 1)))) = ((πβ1) + Ξ£π β ((1 + 1)...((πΎ β 1) + 1))((πβ((π β 1) + 1)) β (πβ(π β 1))))) |
419 | 13, 30 | zsubcld 12667 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((π β§ π β π΅) β (πΎ β 1) β β€) |
420 | 29 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β π:(1...πΎ)βΆ(1...(π + πΎ))) |
421 | | 1zzd 12589 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β 1 β
β€) |
422 | 13 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β πΎ β β€) |
423 | | elfznn 13526 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . 36
β’ (π β (1...(πΎ β 1)) β π β β) |
424 | 423 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. 35
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β π β β) |
425 | 424 | nnzd 12581 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β π β β€) |
426 | 425 | peano2zd 12665 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β (π + 1) β β€) |
427 | | 1red 11211 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β 1 β
β) |
428 | 424 | nnred 12223 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β π β β) |
429 | 428, 427 | readdcld 11239 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β (π + 1) β β) |
430 | 424 | nnge1d 12256 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β 1 β€ π ) |
431 | 428 | lep1d 12141 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β π β€ (π + 1)) |
432 | 427, 428,
429, 430, 431 | letrd 11367 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β 1 β€ (π + 1)) |
433 | | elfzle2 13501 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. 35
β’ (π β (1...(πΎ β 1)) β π β€ (πΎ β 1)) |
434 | 433 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β π β€ (πΎ β 1)) |
435 | 33 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. 35
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β πΎ β β) |
436 | | leaddsub 11686 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. 35
β’ ((π β β β§ 1 β
β β§ πΎ β
β) β ((π + 1)
β€ πΎ β π β€ (πΎ β 1))) |
437 | 428, 427,
435, 436 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
34
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β ((π + 1) β€ πΎ β π β€ (πΎ β 1))) |
438 | 434, 437 | mpbird 256 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β (π + 1) β€ πΎ) |
439 | 421, 422,
426, 432, 438 | elfzd 13488 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β (π + 1) β (1...πΎ)) |
440 | 420, 439 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β (πβ(π + 1)) β (1...(π + πΎ))) |
441 | | elfznn 13526 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ ((πβ(π + 1)) β (1...(π + πΎ)) β (πβ(π + 1)) β β) |
442 | 440, 441 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β (πβ(π + 1)) β β) |
443 | 442 | nnzd 12581 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β (πβ(π + 1)) β β€) |
444 | 435, 427 | resubcld 11638 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β (πΎ β 1) β β) |
445 | 435 | lem1d 12143 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β (πΎ β 1) β€ πΎ) |
446 | 428, 444,
435, 434, 445 | letrd 11367 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β π β€ πΎ) |
447 | 421, 422,
425, 430, 446 | elfzd 13488 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β π β (1...πΎ)) |
448 | 420, 447 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β (πβπ ) β (1...(π + πΎ))) |
449 | | elfznn 13526 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ ((πβπ ) β (1...(π + πΎ)) β (πβπ ) β β) |
450 | 449 | nnzd 12581 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ ((πβπ ) β (1...(π + πΎ)) β (πβπ ) β β€) |
451 | 448, 450 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β (πβπ ) β β€) |
452 | 443, 451 | zsubcld 12667 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β ((πβ(π + 1)) β (πβπ )) β β€) |
453 | 452 | zcnd 12663 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β§ π β π΅) β§ π β (1...(πΎ β 1))) β ((πβ(π + 1)) β (πβπ )) β β) |
454 | | fvoveq1 7428 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π = (π β 1) β (πβ(π + 1)) = (πβ((π β 1) + 1))) |
455 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π = (π β 1) β (πβπ ) = (πβ(π β 1))) |
456 | 454, 455 | oveq12d 7423 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π = (π β 1) β ((πβ(π + 1)) β (πβπ )) = ((πβ((π β 1) + 1)) β (πβ(π β 1)))) |
457 | 30, 30, 419, 453, 456 | fsumshft 15722 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π β§ π β π΅) β Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ )) = Ξ£π β ((1 + 1)...((πΎ β 1) + 1))((πβ((π β 1) + 1)) β (πβ(π β 1)))) |
458 | 457 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ ))) = ((πβ1) + Ξ£π β ((1 + 1)...((πΎ β 1) + 1))((πβ((π β 1) + 1)) β (πβ(π β 1))))) |
459 | 458 | eqcomd 2738 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β ((1 + 1)...((πΎ β 1) + 1))((πβ((π β 1) + 1)) β (πβ(π β 1)))) = ((πβ1) + Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ )))) |
460 | | fvoveq1 7428 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π = π β (πβ(π + 1)) = (πβ(π + 1))) |
461 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (π = π β (πβπ ) = (πβπ)) |
462 | 460, 461 | oveq12d 7423 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π = π β ((πβ(π + 1)) β (πβπ )) = ((πβ(π + 1)) β (πβπ))) |
463 | | nfcv 2903 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’
β²π(1...(πΎ β 1)) |
464 | | nfcv 2903 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’
β²π (1...(πΎ β 1)) |
465 | | nfcv 2903 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’
β²π((πβ(π + 1)) β (πβπ )) |
466 | | nfcv 2903 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’
β²π ((πβ(π + 1)) β (πβπ)) |
467 | 462, 463,
464, 465, 466 | cbvsum 15637 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’
Ξ£π β
(1...(πΎ β 1))((πβ(π + 1)) β (πβπ )) = Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ)) |
468 | 467 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π β§ π β π΅) β Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ )) = Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ))) |
469 | 468 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ ))) = ((πβ1) + Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ)))) |
470 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π€ = π β (πβπ€) = (πβπ)) |
471 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π€ = (π + 1) β (πβπ€) = (πβ(π + 1))) |
472 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π€ = 1 β (πβπ€) = (πβ1)) |
473 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π€ = ((πΎ β 1) + 1) β (πβπ€) = (πβ((πΎ β 1) + 1))) |
474 | 403, 213 | eqeltrd 2833 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((π β§ π β π΅) β ((πΎ β 1) + 1) β
(β€β₯β1)) |
475 | 29 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (((π β§ π β π΅) β§ π€ β (1...((πΎ β 1) + 1))) β π:(1...πΎ)βΆ(1...(π + πΎ))) |
476 | | 1zzd 12589 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ (((π β§ π β π΅) β§ π€ β (1...((πΎ β 1) + 1))) β 1 β
β€) |
477 | 13 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ (((π β§ π β π΅) β§ π€ β (1...((πΎ β 1) + 1))) β πΎ β β€) |
478 | | elfzelz 13497 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ (π€ β (1...((πΎ β 1) + 1)) β π€ β β€) |
479 | 478 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ (((π β§ π β π΅) β§ π€ β (1...((πΎ β 1) + 1))) β π€ β β€) |
480 | | elfzle1 13500 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ (π€ β (1...((πΎ β 1) + 1)) β 1 β€ π€) |
481 | 480 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ (((π β§ π β π΅) β§ π€ β (1...((πΎ β 1) + 1))) β 1 β€ π€) |
482 | | elfzle2 13501 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
33
β’ (π€ β (1...((πΎ β 1) + 1)) β π€ β€ ((πΎ β 1) + 1)) |
483 | 482 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ (((π β§ π β π΅) β§ π€ β (1...((πΎ β 1) + 1))) β π€ β€ ((πΎ β 1) + 1)) |
484 | 403 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
32
β’ (((π β§ π β π΅) β§ π€ β (1...((πΎ β 1) + 1))) β ((πΎ β 1) + 1) = πΎ) |
485 | 483, 484 | breqtrd 5173 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’ (((π β§ π β π΅) β§ π€ β (1...((πΎ β 1) + 1))) β π€ β€ πΎ) |
486 | 476, 477,
479, 481, 485 | elfzd 13488 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (((π β§ π β π΅) β§ π€ β (1...((πΎ β 1) + 1))) β π€ β (1...πΎ)) |
487 | 475, 486 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (((π β§ π β π΅) β§ π€ β (1...((πΎ β 1) + 1))) β (πβπ€) β (1...(π + πΎ))) |
488 | | elfznn 13526 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ ((πβπ€) β (1...(π + πΎ)) β (πβπ€) β β) |
489 | 488 | nncnd 12224 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((πβπ€) β (1...(π + πΎ)) β (πβπ€) β β) |
490 | 487, 489 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((π β§ π β π΅) β§ π€ β (1...((πΎ β 1) + 1))) β (πβπ€) β β) |
491 | 470, 471,
472, 473, 419, 474, 490 | telfsum2 15747 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((π β§ π β π΅) β Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ)) = ((πβ((πΎ β 1) + 1)) β (πβ1))) |
492 | 491 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ))) = ((πβ1) + ((πβ((πΎ β 1) + 1)) β (πβ1)))) |
493 | 72 | recnd 11238 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((π β§ π β π΅) β (πβ1) β β) |
494 | 38 | nncnd 12224 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((π β§ π β π΅) β (πβπΎ) β β) |
495 | 403 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ ((π β§ π β π΅) β (πβ((πΎ β 1) + 1)) = (πβπΎ)) |
496 | 495 | eleq1d 2818 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((π β§ π β π΅) β ((πβ((πΎ β 1) + 1)) β β β
(πβπΎ) β β)) |
497 | 494, 496 | mpbird 256 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((π β§ π β π΅) β (πβ((πΎ β 1) + 1)) β
β) |
498 | 493, 497 | pncan3d 11570 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((π β§ π β π΅) β ((πβ1) + ((πβ((πΎ β 1) + 1)) β (πβ1))) = (πβ((πΎ β 1) + 1))) |
499 | 498, 495 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π β§ π β π΅) β ((πβ1) + ((πβ((πΎ β 1) + 1)) β (πβ1))) = (πβπΎ)) |
500 | 492, 499 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ))) = (πβπΎ)) |
501 | 469, 500 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β (1...(πΎ β 1))((πβ(π + 1)) β (πβπ ))) = (πβπΎ)) |
502 | 459, 501 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β ((1 + 1)...((πΎ β 1) + 1))((πβ((π β 1) + 1)) β (πβ(π β 1)))) = (πβπΎ)) |
503 | 418, 502 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β ((1 + 1)...((πΎ β 1) + 1))((πβπ) β (πβ(π β 1)))) = (πβπΎ)) |
504 | 407, 503 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β ((1 + 1)...πΎ)((πβπ) β (πβ(π β 1)))) = (πβπΎ)) |
505 | 401, 504 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β π΅) β ((πβ1) + Ξ£π β ((1 + 1)...πΎ)if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1))))) = (πβπΎ)) |
506 | 387, 505 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) = (πβπΎ)) |
507 | | fsumconst 15732 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((1...πΎ) β Fin
β§ 1 β β) β Ξ£π β (1...πΎ)1 = ((β―β(1...πΎ)) Β· 1)) |
508 | 345, 67, 507 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)1 = ((β―β(1...πΎ)) Β· 1)) |
509 | 211 | nnnn0d 12528 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π β π΅) β πΎ β
β0) |
510 | | hashfz1 14302 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (πΎ β β0
β (β―β(1...πΎ)) = πΎ) |
511 | 509, 510 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ π β π΅) β (β―β(1...πΎ)) = πΎ) |
512 | 511 | oveq1d 7420 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β π΅) β ((β―β(1...πΎ)) Β· 1) = (πΎ Β· 1)) |
513 | 402 | mulridd 11227 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π β π΅) β (πΎ Β· 1) = πΎ) |
514 | 512, 513 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π β π΅) β ((β―β(1...πΎ)) Β· 1) = πΎ) |
515 | 508, 514 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)1 = πΎ) |
516 | 506, 515 | oveq12d 7423 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β (Ξ£π β (1...πΎ)if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β Ξ£π β (1...πΎ)1) = ((πβπΎ) β πΎ)) |
517 | 384, 516 | eqtrd 2772 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) = ((πβπΎ) β πΎ)) |
518 | 42 | addlidd 11411 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β π΅) β (0 + (πβπΎ)) = (πβπΎ)) |
519 | 518 | eqcomd 2738 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β (πβπΎ) = (0 + (πβπΎ))) |
520 | 519 | oveq1d 7420 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π΅) β ((πβπΎ) β πΎ) = ((0 + (πβπΎ)) β πΎ)) |
521 | 517, 520 | eqtrd 2772 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) = ((0 + (πβπΎ)) β πΎ)) |
522 | | 0cnd 11203 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β 0 β β) |
523 | 522, 402,
42 | subsub3d 11597 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π΅) β (0 β (πΎ β (πβπΎ))) = ((0 + (πβπΎ)) β πΎ)) |
524 | 523 | eqcomd 2738 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β ((0 + (πβπΎ)) β πΎ) = (0 β (πΎ β (πβπΎ)))) |
525 | 521, 524 | eqtrd 2772 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) = (0 β (πΎ β (πβπΎ)))) |
526 | 11 | zcnd 12663 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β π΅) β π β β) |
527 | 526 | subidd 11555 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β π΅) β (π β π) = 0) |
528 | 527 | eqcomd 2738 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β π΅) β 0 = (π β π)) |
529 | 528 | oveq1d 7420 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅) β (0 β (πΎ β (πβπΎ))) = ((π β π) β (πΎ β (πβπΎ)))) |
530 | 525, 529 | eqtrd 2772 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) = ((π β π) β (πΎ β (πβπΎ)))) |
531 | 402, 42 | subcld 11567 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅) β (πΎ β (πβπΎ)) β β) |
532 | 526, 526,
531 | subsub4d 11598 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΅) β ((π β π) β (πΎ β (πβπΎ))) = (π β (π + (πΎ β (πβπΎ))))) |
533 | 530, 532 | eqtrd 2772 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) = (π β (π + (πΎ β (πβπΎ))))) |
534 | 526, 402,
42 | addsubassd 11587 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΅) β ((π + πΎ) β (πβπΎ)) = (π + (πΎ β (πβπΎ)))) |
535 | 534 | eqcomd 2738 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΅) β (π + (πΎ β (πβπΎ))) = ((π + πΎ) β (πβπΎ))) |
536 | 535 | oveq2d 7421 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΅) β (π β (π + (πΎ β (πβπΎ)))) = (π β ((π + πΎ) β (πβπΎ)))) |
537 | 533, 536 | eqtrd 2772 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) = (π β ((π + πΎ) β (πβπΎ)))) |
538 | | 1zzd 12589 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β 1 β β€) |
539 | 381, 538 | zsubcld 12667 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β (if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) β
β€) |
540 | 345, 539 | fsumzcl 15677 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) β
β€) |
541 | 540 | zcnd 12663 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) β
β) |
542 | 53 | nn0cnd 12530 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΅) β ((π + πΎ) β (πβπΎ)) β β) |
543 | 541, 542,
526 | addlsub 11626 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΅) β ((Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) + ((π + πΎ) β (πβπΎ))) = π β Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) = (π β ((π + πΎ) β (πβπΎ))))) |
544 | 537, 543 | mpbird 256 |
. . . . . . . . . . 11
β’ ((π β§ π β π΅) β (Ξ£π β (1...πΎ)(if(π = 1, (πβ1), ((πβπ) β (πβ(π β 1)))) β 1) + ((π + πΎ) β (πβπΎ))) = π) |
545 | 344, 544 | eqtrd 2772 |
. . . . . . . . . 10
β’ ((π β§ π β π΅) β (Ξ£π β (1...πΎ)if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)) + ((π + πΎ) β (πβπΎ))) = π) |
546 | 327, 545 | eqtrd 2772 |
. . . . . . . . 9
β’ ((π β§ π β π΅) β (Ξ£π β (1...πΎ)if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) + ((π + πΎ) β (πβπΎ))) = π) |
547 | 312, 546 | eqtrd 2772 |
. . . . . . . 8
β’ ((π β§ π β π΅) β (Ξ£π β (1...πΎ)if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) + if((πΎ + 1) = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if((πΎ + 1) = 1, ((πβ1) β 1), (((πβ(πΎ + 1)) β (πβ((πΎ + 1) β 1))) β 1)))) = π) |
548 | 309, 547 | eqtrd 2772 |
. . . . . . 7
β’ ((π β§ π β π΅) β Ξ£π β (1...(πΎ + 1))if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))) = π) |
549 | 210, 548 | eqtrd 2772 |
. . . . . 6
β’ ((π β§ π β π΅) β Ξ£π β (1...(πΎ + 1))((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))βπ) = π) |
550 | 192, 549 | jca 512 |
. . . . 5
β’ ((π β§ π β π΅) β ((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))):(1...(πΎ +
1))βΆβ0 β§ Ξ£π β (1...(πΎ + 1))((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))βπ) = π)) |
551 | | ovex 7438 |
. . . . . . 7
β’
(1...(πΎ + 1)) β
V |
552 | 551 | mptex 7221 |
. . . . . 6
β’ (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) β
V |
553 | | feq1 6695 |
. . . . . . 7
β’ (π = (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) β (π:(1...(πΎ + 1))βΆβ0 β
(π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))):(1...(πΎ +
1))βΆβ0)) |
554 | | simpl 483 |
. . . . . . . . . 10
β’ ((π = (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) β§ π β (1...(πΎ + 1))) β π = (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))) |
555 | 554 | fveq1d 6890 |
. . . . . . . . 9
β’ ((π = (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) β§ π β (1...(πΎ + 1))) β (πβπ) = ((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))βπ)) |
556 | 555 | sumeq2dv 15645 |
. . . . . . . 8
β’ (π = (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) β
Ξ£π β (1...(πΎ + 1))(πβπ) = Ξ£π β (1...(πΎ + 1))((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))βπ)) |
557 | 556 | eqeq1d 2734 |
. . . . . . 7
β’ (π = (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) β
(Ξ£π β
(1...(πΎ + 1))(πβπ) = π β Ξ£π β (1...(πΎ + 1))((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))βπ) = π)) |
558 | 553, 557 | anbi12d 631 |
. . . . . 6
β’ (π = (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) β ((π:(1...(πΎ + 1))βΆβ0 β§
Ξ£π β (1...(πΎ + 1))(πβπ) = π) β ((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))):(1...(πΎ +
1))βΆβ0 β§ Ξ£π β (1...(πΎ + 1))((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))βπ) = π))) |
559 | 552, 558 | elab 3667 |
. . . . 5
β’ ((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) β {π β£ (π:(1...(πΎ + 1))βΆβ0 β§
Ξ£π β (1...(πΎ + 1))(πβπ) = π)} β ((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))):(1...(πΎ +
1))βΆβ0 β§ Ξ£π β (1...(πΎ + 1))((π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))βπ) = π)) |
560 | 550, 559 | sylibr 233 |
. . . 4
β’ ((π β§ π β π΅) β (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) β {π β£ (π:(1...(πΎ + 1))βΆβ0 β§
Ξ£π β (1...(πΎ + 1))(πβπ) = π)}) |
561 | | sticksstones10.4 |
. . . . 5
β’ π΄ = {π β£ (π:(1...(πΎ + 1))βΆβ0 β§
Ξ£π β (1...(πΎ + 1))(πβπ) = π)} |
562 | 561 | a1i 11 |
. . . 4
β’ ((π β§ π β π΅) β π΄ = {π β£ (π:(1...(πΎ + 1))βΆβ0 β§
Ξ£π β (1...(πΎ + 1))(πβπ) = π)}) |
563 | 560, 562 | eleqtrrd 2836 |
. . 3
β’ ((π β§ π β π΅) β (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1)))) β π΄) |
564 | 6, 563 | eqeltrrd 2834 |
. 2
β’ ((π β§ π β π΅) β if(πΎ = 0, {β¨1, πβ©}, (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β 1))))) β π΄) |
565 | | sticksstones10.3 |
. 2
β’ πΊ = (π β π΅ β¦ if(πΎ = 0, {β¨1, πβ©}, (π β (1...(πΎ + 1)) β¦ if(π = (πΎ + 1), ((π + πΎ) β (πβπΎ)), if(π = 1, ((πβ1) β 1), (((πβπ) β (πβ(π β 1))) β
1)))))) |
566 | 564, 565 | fmptd 7110 |
1
β’ (π β πΊ:π΅βΆπ΄) |