Step | Hyp | Ref
| Expression |
1 | | breprexp.s |
. 2
β’ (π β π β
β0) |
2 | | nn0ssre 12472 |
. . . . . 6
β’
β0 β β |
3 | 2 | a1i 11 |
. . . . 5
β’ (π β β0
β β) |
4 | 3 | sselda 3981 |
. . . 4
β’ ((π β§ π β β0) β π β
β) |
5 | | leid 11306 |
. . . 4
β’ (π β β β π β€ π) |
6 | 4, 5 | syl 17 |
. . 3
β’ ((π β§ π β β0) β π β€ π) |
7 | | breq1 5150 |
. . . . 5
β’ (π‘ = 0 β (π‘ β€ π β 0 β€ π)) |
8 | | oveq2 7412 |
. . . . . . 7
β’ (π‘ = 0 β (0..^π‘) = (0..^0)) |
9 | 8 | prodeq1d 15861 |
. . . . . 6
β’ (π‘ = 0 β βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = βπ β (0..^0)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ))) |
10 | | oveq1 7411 |
. . . . . . . 8
β’ (π‘ = 0 β (π‘ Β· π) = (0 Β· π)) |
11 | 10 | oveq2d 7420 |
. . . . . . 7
β’ (π‘ = 0 β (0...(π‘ Β· π)) = (0...(0 Β· π))) |
12 | | fveq2 6888 |
. . . . . . . . . 10
β’ (π‘ = 0 β (reprβπ‘) =
(reprβ0)) |
13 | 12 | oveqd 7421 |
. . . . . . . . 9
β’ (π‘ = 0 β ((1...π)(reprβπ‘)π) = ((1...π)(reprβ0)π)) |
14 | 8 | prodeq1d 15861 |
. . . . . . . . . . 11
β’ (π‘ = 0 β βπ β (0..^π‘)((πΏβπ)β(πβπ)) = βπ β (0..^0)((πΏβπ)β(πβπ))) |
15 | 14 | oveq1d 7419 |
. . . . . . . . . 10
β’ (π‘ = 0 β (βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ))) |
16 | 15 | adantr 482 |
. . . . . . . . 9
β’ ((π‘ = 0 β§ π β ((1...π)(reprβπ‘)π)) β (βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ))) |
17 | 13, 16 | sumeq12dv 15648 |
. . . . . . . 8
β’ (π‘ = 0 β Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ))) |
18 | 17 | adantr 482 |
. . . . . . 7
β’ ((π‘ = 0 β§ π β (0...(π‘ Β· π))) β Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ))) |
19 | 11, 18 | sumeq12dv 15648 |
. . . . . 6
β’ (π‘ = 0 β Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β (0...(0 Β· π))Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ))) |
20 | 9, 19 | eqeq12d 2749 |
. . . . 5
β’ (π‘ = 0 β (βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) β βπ β (0..^0)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(0 Β· π))Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ)))) |
21 | 7, 20 | imbi12d 345 |
. . . 4
β’ (π‘ = 0 β ((π‘ β€ π β βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ))) β (0 β€ π β βπ β (0..^0)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(0 Β· π))Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ))))) |
22 | | breq1 5150 |
. . . . 5
β’ (π‘ = π β (π‘ β€ π β π β€ π)) |
23 | | oveq2 7412 |
. . . . . . 7
β’ (π‘ = π β (0..^π‘) = (0..^π )) |
24 | 23 | prodeq1d 15861 |
. . . . . 6
β’ (π‘ = π β βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ))) |
25 | | oveq1 7411 |
. . . . . . . 8
β’ (π‘ = π β (π‘ Β· π) = (π Β· π)) |
26 | 25 | oveq2d 7420 |
. . . . . . 7
β’ (π‘ = π β (0...(π‘ Β· π)) = (0...(π Β· π))) |
27 | | fveq2 6888 |
. . . . . . . . . 10
β’ (π‘ = π β (reprβπ‘) = (reprβπ )) |
28 | 27 | oveqd 7421 |
. . . . . . . . 9
β’ (π‘ = π β ((1...π)(reprβπ‘)π) = ((1...π)(reprβπ )π)) |
29 | 23 | prodeq1d 15861 |
. . . . . . . . . . 11
β’ (π‘ = π β βπ β (0..^π‘)((πΏβπ)β(πβπ)) = βπ β (0..^π )((πΏβπ)β(πβπ))) |
30 | 29 | oveq1d 7419 |
. . . . . . . . . 10
β’ (π‘ = π β (βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
31 | 30 | adantr 482 |
. . . . . . . . 9
β’ ((π‘ = π β§ π β ((1...π)(reprβπ‘)π)) β (βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
32 | 28, 31 | sumeq12dv 15648 |
. . . . . . . 8
β’ (π‘ = π β Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
33 | 32 | adantr 482 |
. . . . . . 7
β’ ((π‘ = π β§ π β (0...(π‘ Β· π))) β Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
34 | 26, 33 | sumeq12dv 15648 |
. . . . . 6
β’ (π‘ = π β Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
35 | 24, 34 | eqeq12d 2749 |
. . . . 5
β’ (π‘ = π β (βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) |
36 | 22, 35 | imbi12d 345 |
. . . 4
β’ (π‘ = π β ((π‘ β€ π β βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ))) β (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))))) |
37 | | breq1 5150 |
. . . . 5
β’ (π‘ = (π + 1) β (π‘ β€ π β (π + 1) β€ π)) |
38 | | oveq2 7412 |
. . . . . . 7
β’ (π‘ = (π + 1) β (0..^π‘) = (0..^(π + 1))) |
39 | 38 | prodeq1d 15861 |
. . . . . 6
β’ (π‘ = (π + 1) β βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = βπ β (0..^(π + 1))Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ))) |
40 | | oveq1 7411 |
. . . . . . . 8
β’ (π‘ = (π + 1) β (π‘ Β· π) = ((π + 1) Β· π)) |
41 | 40 | oveq2d 7420 |
. . . . . . 7
β’ (π‘ = (π + 1) β (0...(π‘ Β· π)) = (0...((π + 1) Β· π))) |
42 | | fveq2 6888 |
. . . . . . . . . 10
β’ (π‘ = (π + 1) β (reprβπ‘) = (reprβ(π + 1))) |
43 | 42 | oveqd 7421 |
. . . . . . . . 9
β’ (π‘ = (π + 1) β ((1...π)(reprβπ‘)π) = ((1...π)(reprβ(π + 1))π)) |
44 | 38 | prodeq1d 15861 |
. . . . . . . . . . 11
β’ (π‘ = (π + 1) β βπ β (0..^π‘)((πΏβπ)β(πβπ)) = βπ β (0..^(π + 1))((πΏβπ)β(πβπ))) |
45 | 44 | oveq1d 7419 |
. . . . . . . . . 10
β’ (π‘ = (π + 1) β (βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))) |
46 | 45 | adantr 482 |
. . . . . . . . 9
β’ ((π‘ = (π + 1) β§ π β ((1...π)(reprβπ‘)π)) β (βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))) |
47 | 43, 46 | sumeq12dv 15648 |
. . . . . . . 8
β’ (π‘ = (π + 1) β Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))) |
48 | 47 | adantr 482 |
. . . . . . 7
β’ ((π‘ = (π + 1) β§ π β (0...(π‘ Β· π))) β Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))) |
49 | 41, 48 | sumeq12dv 15648 |
. . . . . 6
β’ (π‘ = (π + 1) β Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))) |
50 | 39, 49 | eqeq12d 2749 |
. . . . 5
β’ (π‘ = (π + 1) β (βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) β βπ β (0..^(π + 1))Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ)))) |
51 | 37, 50 | imbi12d 345 |
. . . 4
β’ (π‘ = (π + 1) β ((π‘ β€ π β βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ))) β ((π + 1) β€ π β βπ β (0..^(π + 1))Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))))) |
52 | | breq1 5150 |
. . . . 5
β’ (π‘ = π β (π‘ β€ π β π β€ π)) |
53 | | oveq2 7412 |
. . . . . . 7
β’ (π‘ = π β (0..^π‘) = (0..^π)) |
54 | 53 | prodeq1d 15861 |
. . . . . 6
β’ (π‘ = π β βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = βπ β (0..^π)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ))) |
55 | | oveq1 7411 |
. . . . . . . 8
β’ (π‘ = π β (π‘ Β· π) = (π Β· π)) |
56 | 55 | oveq2d 7420 |
. . . . . . 7
β’ (π‘ = π β (0...(π‘ Β· π)) = (0...(π Β· π))) |
57 | | fveq2 6888 |
. . . . . . . . . 10
β’ (π‘ = π β (reprβπ‘) = (reprβπ)) |
58 | 57 | oveqd 7421 |
. . . . . . . . 9
β’ (π‘ = π β ((1...π)(reprβπ‘)π) = ((1...π)(reprβπ)π)) |
59 | 53 | prodeq1d 15861 |
. . . . . . . . . . 11
β’ (π‘ = π β βπ β (0..^π‘)((πΏβπ)β(πβπ)) = βπ β (0..^π)((πΏβπ)β(πβπ))) |
60 | 59 | oveq1d 7419 |
. . . . . . . . . 10
β’ (π‘ = π β (βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ))) |
61 | 60 | adantr 482 |
. . . . . . . . 9
β’ ((π‘ = π β§ π β ((1...π)(reprβπ‘)π)) β (βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ))) |
62 | 58, 61 | sumeq12dv 15648 |
. . . . . . . 8
β’ (π‘ = π β Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ))) |
63 | 62 | adantr 482 |
. . . . . . 7
β’ ((π‘ = π β§ π β (0...(π‘ Β· π))) β Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ))) |
64 | 56, 63 | sumeq12dv 15648 |
. . . . . 6
β’ (π‘ = π β Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ))) |
65 | 54, 64 | eqeq12d 2749 |
. . . . 5
β’ (π‘ = π β (βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ)) β βπ β (0..^π)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)))) |
66 | 52, 65 | imbi12d 345 |
. . . 4
β’ (π‘ = π β ((π‘ β€ π β βπ β (0..^π‘)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π‘ Β· π))Ξ£π β ((1...π)(reprβπ‘)π)(βπ β (0..^π‘)((πΏβπ)β(πβπ)) Β· (πβπ))) β (π β€ π β βπ β (0..^π)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ))))) |
67 | | 0nn0 12483 |
. . . . . . . 8
β’ 0 β
β0 |
68 | | fz1ssnn 13528 |
. . . . . . . . . . . . 13
β’
(1...π) β
β |
69 | 68 | a1i 11 |
. . . . . . . . . . . 12
β’ (π β (1...π) β β) |
70 | | 0zd 12566 |
. . . . . . . . . . . 12
β’ (π β 0 β
β€) |
71 | | breprexp.n |
. . . . . . . . . . . 12
β’ (π β π β
β0) |
72 | 69, 70, 71 | repr0 33561 |
. . . . . . . . . . 11
β’ (π β ((1...π)(reprβ0)0) = if(0 = 0, {β
},
β
)) |
73 | | eqid 2733 |
. . . . . . . . . . . 12
β’ 0 =
0 |
74 | 73 | iftruei 4534 |
. . . . . . . . . . 11
β’ if(0 = 0,
{β
}, β
) = {β
} |
75 | 72, 74 | eqtrdi 2789 |
. . . . . . . . . 10
β’ (π β ((1...π)(reprβ0)0) =
{β
}) |
76 | | snfi 9040 |
. . . . . . . . . 10
β’ {β
}
β Fin |
77 | 75, 76 | eqeltrdi 2842 |
. . . . . . . . 9
β’ (π β ((1...π)(reprβ0)0) β
Fin) |
78 | | fzo0 13652 |
. . . . . . . . . . . . . . . 16
β’ (0..^0) =
β
|
79 | 78 | prodeq1i 15858 |
. . . . . . . . . . . . . . 15
β’
βπ β
(0..^0)((πΏβπ)β(πβπ)) = βπ β β
((πΏβπ)β(πβπ)) |
80 | | prod0 15883 |
. . . . . . . . . . . . . . 15
β’
βπ β
β
((πΏβπ)β(πβπ)) = 1 |
81 | 79, 80 | eqtri 2761 |
. . . . . . . . . . . . . 14
β’
βπ β
(0..^0)((πΏβπ)β(πβπ)) = 1 |
82 | 81 | a1i 11 |
. . . . . . . . . . . . 13
β’ (π β βπ β (0..^0)((πΏβπ)β(πβπ)) = 1) |
83 | | breprexp.z |
. . . . . . . . . . . . . 14
β’ (π β π β β) |
84 | | exp0 14027 |
. . . . . . . . . . . . . 14
β’ (π β β β (πβ0) = 1) |
85 | 83, 84 | syl 17 |
. . . . . . . . . . . . 13
β’ (π β (πβ0) = 1) |
86 | 82, 85 | oveq12d 7422 |
. . . . . . . . . . . 12
β’ (π β (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0)) = (1 Β· 1)) |
87 | | ax-1cn 11164 |
. . . . . . . . . . . . 13
β’ 1 β
β |
88 | 87 | mulridi 11214 |
. . . . . . . . . . . 12
β’ (1
Β· 1) = 1 |
89 | 86, 88 | eqtrdi 2789 |
. . . . . . . . . . 11
β’ (π β (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0)) = 1) |
90 | 89, 87 | eqeltrdi 2842 |
. . . . . . . . . 10
β’ (π β (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0)) β β) |
91 | 90 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ π β ((1...π)(reprβ0)0)) β (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0)) β β) |
92 | 77, 91 | fsumcl 15675 |
. . . . . . . 8
β’ (π β Ξ£π β ((1...π)(reprβ0)0)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0)) β β) |
93 | | oveq2 7412 |
. . . . . . . . . 10
β’ (π = 0 β ((1...π)(reprβ0)π) = ((1...π)(reprβ0)0)) |
94 | | simpl 484 |
. . . . . . . . . . . 12
β’ ((π = 0 β§ π β ((1...π)(reprβ0)π)) β π = 0) |
95 | 94 | oveq2d 7420 |
. . . . . . . . . . 11
β’ ((π = 0 β§ π β ((1...π)(reprβ0)π)) β (πβπ) = (πβ0)) |
96 | 95 | oveq2d 7420 |
. . . . . . . . . 10
β’ ((π = 0 β§ π β ((1...π)(reprβ0)π)) β (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0))) |
97 | 93, 96 | sumeq12dv 15648 |
. . . . . . . . 9
β’ (π = 0 β Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβ0)0)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0))) |
98 | 97 | sumsn 15688 |
. . . . . . . 8
β’ ((0
β β0 β§ Ξ£π β ((1...π)(reprβ0)0)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0)) β β) β
Ξ£π β
{0}Ξ£π β
((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβ0)0)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0))) |
99 | 67, 92, 98 | sylancr 588 |
. . . . . . 7
β’ (π β Ξ£π β {0}Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβ0)0)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0))) |
100 | 75 | sumeq1d 15643 |
. . . . . . 7
β’ (π β Ξ£π β ((1...π)(reprβ0)0)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0)) = Ξ£π β {β
} (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0))) |
101 | | 0ex 5306 |
. . . . . . . . 9
β’ β
β V |
102 | 78 | prodeq1i 15858 |
. . . . . . . . . . . . 13
β’
βπ β
(0..^0)((πΏβπ)β(β
βπ)) = βπ β β
((πΏβπ)β(β
βπ)) |
103 | | prod0 15883 |
. . . . . . . . . . . . 13
β’
βπ β
β
((πΏβπ)β(β
βπ)) = 1 |
104 | 102, 103 | eqtri 2761 |
. . . . . . . . . . . 12
β’
βπ β
(0..^0)((πΏβπ)β(β
βπ)) = 1 |
105 | 104 | a1i 11 |
. . . . . . . . . . 11
β’ (π β βπ β (0..^0)((πΏβπ)β(β
βπ)) = 1) |
106 | 105, 87 | eqeltrdi 2842 |
. . . . . . . . . 10
β’ (π β βπ β (0..^0)((πΏβπ)β(β
βπ)) β β) |
107 | 85, 87 | eqeltrdi 2842 |
. . . . . . . . . 10
β’ (π β (πβ0) β β) |
108 | 106, 107 | mulcld 11230 |
. . . . . . . . 9
β’ (π β (βπ β (0..^0)((πΏβπ)β(β
βπ)) Β· (πβ0)) β β) |
109 | | fveq1 6887 |
. . . . . . . . . . . . . 14
β’ (π = β
β (πβπ) = (β
βπ)) |
110 | 109 | fveq2d 6892 |
. . . . . . . . . . . . 13
β’ (π = β
β ((πΏβπ)β(πβπ)) = ((πΏβπ)β(β
βπ))) |
111 | 110 | ralrimivw 3151 |
. . . . . . . . . . . 12
β’ (π = β
β βπ β (0..^0)((πΏβπ)β(πβπ)) = ((πΏβπ)β(β
βπ))) |
112 | 111 | prodeq2d 15862 |
. . . . . . . . . . 11
β’ (π = β
β βπ β (0..^0)((πΏβπ)β(πβπ)) = βπ β (0..^0)((πΏβπ)β(β
βπ))) |
113 | 112 | oveq1d 7419 |
. . . . . . . . . 10
β’ (π = β
β (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0)) = (βπ β (0..^0)((πΏβπ)β(β
βπ)) Β· (πβ0))) |
114 | 113 | sumsn 15688 |
. . . . . . . . 9
β’ ((β
β V β§ (βπ
β (0..^0)((πΏβπ)β(β
βπ)) Β· (πβ0)) β β) β
Ξ£π β {β
}
(βπ β
(0..^0)((πΏβπ)β(πβπ)) Β· (πβ0)) = (βπ β (0..^0)((πΏβπ)β(β
βπ)) Β· (πβ0))) |
115 | 101, 108,
114 | sylancr 588 |
. . . . . . . 8
β’ (π β Ξ£π β {β
} (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0)) = (βπ β (0..^0)((πΏβπ)β(β
βπ)) Β· (πβ0))) |
116 | 105, 85 | oveq12d 7422 |
. . . . . . . . 9
β’ (π β (βπ β (0..^0)((πΏβπ)β(β
βπ)) Β· (πβ0)) = (1 Β· 1)) |
117 | 116, 86, 89 | 3eqtr2d 2779 |
. . . . . . . 8
β’ (π β (βπ β (0..^0)((πΏβπ)β(β
βπ)) Β· (πβ0)) = 1) |
118 | 115, 117 | eqtrd 2773 |
. . . . . . 7
β’ (π β Ξ£π β {β
} (βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβ0)) = 1) |
119 | 99, 100, 118 | 3eqtrd 2777 |
. . . . . 6
β’ (π β Ξ£π β {0}Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ)) = 1) |
120 | 71 | nn0cnd 12530 |
. . . . . . . . . 10
β’ (π β π β β) |
121 | 120 | mul02d 11408 |
. . . . . . . . 9
β’ (π β (0 Β· π) = 0) |
122 | 121 | oveq2d 7420 |
. . . . . . . 8
β’ (π β (0...(0 Β· π)) = (0...0)) |
123 | | fz0sn 13597 |
. . . . . . . 8
β’ (0...0) =
{0} |
124 | 122, 123 | eqtrdi 2789 |
. . . . . . 7
β’ (π β (0...(0 Β· π)) = {0}) |
125 | 124 | sumeq1d 15643 |
. . . . . 6
β’ (π β Ξ£π β (0...(0 Β· π))Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β {0}Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ))) |
126 | 78 | prodeq1i 15858 |
. . . . . . . 8
β’
βπ β
(0..^0)Ξ£π β
(1...π)(((πΏβπ)βπ) Β· (πβπ)) = βπ β β
Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) |
127 | | prod0 15883 |
. . . . . . . 8
β’
βπ β
β
Ξ£π β
(1...π)(((πΏβπ)βπ) Β· (πβπ)) = 1 |
128 | 126, 127 | eqtri 2761 |
. . . . . . 7
β’
βπ β
(0..^0)Ξ£π β
(1...π)(((πΏβπ)βπ) Β· (πβπ)) = 1 |
129 | 128 | a1i 11 |
. . . . . 6
β’ (π β βπ β (0..^0)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = 1) |
130 | 119, 125,
129 | 3eqtr4rd 2784 |
. . . . 5
β’ (π β βπ β (0..^0)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(0 Β· π))Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ))) |
131 | 130 | a1d 25 |
. . . 4
β’ (π β (0 β€ π β βπ β (0..^0)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(0 Β· π))Ξ£π β ((1...π)(reprβ0)π)(βπ β (0..^0)((πΏβπ)β(πβπ)) Β· (πβπ)))) |
132 | | simpll 766 |
. . . . . 6
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β (π β§ π β
β0)) |
133 | | simplr 768 |
. . . . . . 7
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) |
134 | | oveq2 7412 |
. . . . . . . . . . . 12
β’ (π = π β ((1...π)(reprβπ )π) = ((1...π)(reprβπ )π)) |
135 | | oveq2 7412 |
. . . . . . . . . . . . . 14
β’ (π = π β (πβπ) = (πβπ)) |
136 | 135 | oveq2d 7420 |
. . . . . . . . . . . . 13
β’ (π = π β (βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
137 | 136 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π = π β§ π β ((1...π)(reprβπ )π)) β (βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
138 | 134, 137 | sumeq12dv 15648 |
. . . . . . . . . . 11
β’ (π = π β Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
139 | 138 | cbvsumv 15638 |
. . . . . . . . . 10
β’
Ξ£π β
(0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) |
140 | 139 | eqeq2i 2746 |
. . . . . . . . 9
β’
(βπ β
(0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
141 | | simpl 484 |
. . . . . . . . . . . . . . . 16
β’ ((π = π β§ π β (1...π)) β π = π) |
142 | 141 | fveq2d 6892 |
. . . . . . . . . . . . . . 15
β’ ((π = π β§ π β (1...π)) β (πΏβπ) = (πΏβπ)) |
143 | 142 | fveq1d 6890 |
. . . . . . . . . . . . . 14
β’ ((π = π β§ π β (1...π)) β ((πΏβπ)βπ) = ((πΏβπ)βπ)) |
144 | 143 | oveq1d 7419 |
. . . . . . . . . . . . 13
β’ ((π = π β§ π β (1...π)) β (((πΏβπ)βπ) Β· (πβπ)) = (((πΏβπ)βπ) Β· (πβπ))) |
145 | 144 | sumeq2dv 15645 |
. . . . . . . . . . . 12
β’ (π = π β Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ))) |
146 | 145 | cbvprodv 15856 |
. . . . . . . . . . 11
β’
βπ β
(0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) |
147 | | fveq2 6888 |
. . . . . . . . . . . . . . 15
β’ (π = π β ((πΏβπ)βπ) = ((πΏβπ)βπ)) |
148 | | oveq2 7412 |
. . . . . . . . . . . . . . 15
β’ (π = π β (πβπ) = (πβπ)) |
149 | 147, 148 | oveq12d 7422 |
. . . . . . . . . . . . . 14
β’ (π = π β (((πΏβπ)βπ) Β· (πβπ)) = (((πΏβπ)βπ) Β· (πβπ))) |
150 | 149 | cbvsumv 15638 |
. . . . . . . . . . . . 13
β’
Ξ£π β
(1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) |
151 | 150 | a1i 11 |
. . . . . . . . . . . 12
β’ (π β (0..^π ) β Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ))) |
152 | 151 | prodeq2i 15859 |
. . . . . . . . . . 11
β’
βπ β
(0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) |
153 | 146, 152 | eqtri 2761 |
. . . . . . . . . 10
β’
βπ β
(0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) |
154 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π β (πΏβπ) = (πΏβπ)) |
155 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π β (πβπ) = (πβπ)) |
156 | 154, 155 | fveq12d 6895 |
. . . . . . . . . . . . . . . . 17
β’ (π = π β ((πΏβπ)β(πβπ)) = ((πΏβπ)β(πβπ))) |
157 | 156 | cbvprodv 15856 |
. . . . . . . . . . . . . . . 16
β’
βπ β
(0..^π )((πΏβπ)β(πβπ)) = βπ β (0..^π )((πΏβπ)β(πβπ)) |
158 | 157 | oveq1i 7414 |
. . . . . . . . . . . . . . 15
β’
(βπ β
(0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) |
159 | 158 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β ((1...π)(reprβπ )π) β (βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
160 | 159 | sumeq2i 15641 |
. . . . . . . . . . . . 13
β’
Ξ£π β
((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) |
161 | | simpl 484 |
. . . . . . . . . . . . . . . . . 18
β’ ((π = π β§ π β (0..^π )) β π = π) |
162 | 161 | fveq1d 6890 |
. . . . . . . . . . . . . . . . 17
β’ ((π = π β§ π β (0..^π )) β (πβπ) = (πβπ)) |
163 | 162 | fveq2d 6892 |
. . . . . . . . . . . . . . . 16
β’ ((π = π β§ π β (0..^π )) β ((πΏβπ)β(πβπ)) = ((πΏβπ)β(πβπ))) |
164 | 163 | prodeq2dv 15863 |
. . . . . . . . . . . . . . 15
β’ (π = π β βπ β (0..^π )((πΏβπ)β(πβπ)) = βπ β (0..^π )((πΏβπ)β(πβπ))) |
165 | 164 | oveq1d 7419 |
. . . . . . . . . . . . . 14
β’ (π = π β (βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = (βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
166 | 165 | cbvsumv 15638 |
. . . . . . . . . . . . 13
β’
Ξ£π β
((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) |
167 | 160, 166 | eqtri 2761 |
. . . . . . . . . . . 12
β’
Ξ£π β
((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) |
168 | 167 | a1i 11 |
. . . . . . . . . . 11
β’ (π β (0...(π Β· π)) β Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
169 | 168 | sumeq2i 15641 |
. . . . . . . . . 10
β’
Ξ£π β
(0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) |
170 | 153, 169 | eqeq12i 2751 |
. . . . . . . . 9
β’
(βπ β
(0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
171 | 140, 170 | bitri 275 |
. . . . . . . 8
β’
(βπ β
(0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)) β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
172 | 171 | imbi2i 336 |
. . . . . . 7
β’ ((π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) β (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) |
173 | 133, 172 | sylib 217 |
. . . . . 6
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) |
174 | | simpr 486 |
. . . . . 6
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β (π + 1) β€ π) |
175 | 71 | ad3antrrr 729 |
. . . . . . 7
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β π β
β0) |
176 | 1 | ad3antrrr 729 |
. . . . . . 7
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β π β
β0) |
177 | 83 | ad3antrrr 729 |
. . . . . . 7
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β π β β) |
178 | | breprexp.h |
. . . . . . . 8
β’ (π β πΏ:(0..^π)βΆ(β βm
β)) |
179 | 178 | ad3antrrr 729 |
. . . . . . 7
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β πΏ:(0..^π)βΆ(β βm
β)) |
180 | | simpllr 775 |
. . . . . . 7
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β π β β0) |
181 | | simpr 486 |
. . . . . . 7
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β (π + 1) β€ π) |
182 | 2, 180 | sselid 3979 |
. . . . . . . . 9
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β π β β) |
183 | | 1red 11211 |
. . . . . . . . . 10
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β 1 β β) |
184 | 182, 183 | readdcld 11239 |
. . . . . . . . 9
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β (π + 1) β β) |
185 | 2, 176 | sselid 3979 |
. . . . . . . . 9
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β π β β) |
186 | 182 | ltp1d 12140 |
. . . . . . . . . 10
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β π < (π + 1)) |
187 | 182, 184,
186 | ltled 11358 |
. . . . . . . . 9
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β π β€ (π + 1)) |
188 | 182, 184,
185, 187, 181 | letrd 11367 |
. . . . . . . 8
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β π β€ π) |
189 | | simplr 768 |
. . . . . . . . 9
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) |
190 | 189, 172 | sylibr 233 |
. . . . . . . 8
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) |
191 | 188, 190 | mpd 15 |
. . . . . . 7
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ))) |
192 | 175, 176,
177, 179, 180, 181, 191 | breprexplemc 33582 |
. . . . . 6
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β βπ β (0..^(π + 1))Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))) |
193 | 132, 173,
174, 192 | syl21anc 837 |
. . . . 5
β’ ((((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β§ (π + 1) β€ π) β βπ β (0..^(π + 1))Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))) |
194 | 193 | ex 414 |
. . . 4
β’ (((π β§ π β β0) β§ (π β€ π β βπ β (0..^π )Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ )π)(βπ β (0..^π )((πΏβπ)β(πβπ)) Β· (πβπ)))) β ((π + 1) β€ π β βπ β (0..^(π + 1))Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ)))) |
195 | 21, 36, 51, 66, 131, 194 | nn0indd 12655 |
. . 3
β’ ((π β§ π β β0) β (π β€ π β βπ β (0..^π)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)))) |
196 | 6, 195 | mpd 15 |
. 2
β’ ((π β§ π β β0) β
βπ β (0..^π)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ))) |
197 | 1, 196 | mpdan 686 |
1
β’ (π β βπ β (0..^π)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ))) |