Step | Hyp | Ref
| Expression |
1 | | vex 3479 |
. . . . 5
β’ π β V |
2 | | tpex 7731 |
. . . . 5
β’ {β¨1,
πβ©, β¨2, πβ©, β¨3, πβ©} β
V |
3 | 1, 2 | coex 7918 |
. . . 4
β’ (π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}) β
V |
4 | | 1ne2 12417 |
. . . . . . . . . 10
β’ 1 β
2 |
5 | | 1re 11211 |
. . . . . . . . . . 11
β’ 1 β
β |
6 | | 1lt3 12382 |
. . . . . . . . . . 11
β’ 1 <
3 |
7 | 5, 6 | ltneii 11324 |
. . . . . . . . . 10
β’ 1 β
3 |
8 | | 2re 12283 |
. . . . . . . . . . 11
β’ 2 β
β |
9 | | 2lt3 12381 |
. . . . . . . . . . 11
β’ 2 <
3 |
10 | 8, 9 | ltneii 11324 |
. . . . . . . . . 10
β’ 2 β
3 |
11 | | 1ex 11207 |
. . . . . . . . . . 11
β’ 1 β
V |
12 | | 2ex 12286 |
. . . . . . . . . . 11
β’ 2 β
V |
13 | | 3ex 12291 |
. . . . . . . . . . 11
β’ 3 β
V |
14 | | rabren3dioph.b |
. . . . . . . . . . . 12
β’ π β (1...π) |
15 | 14 | elexi 3494 |
. . . . . . . . . . 11
β’ π β V |
16 | | rabren3dioph.c |
. . . . . . . . . . . 12
β’ π β (1...π) |
17 | 16 | elexi 3494 |
. . . . . . . . . . 11
β’ π β V |
18 | | rabren3dioph.d |
. . . . . . . . . . . 12
β’ π β (1...π) |
19 | 18 | elexi 3494 |
. . . . . . . . . . 11
β’ π β V |
20 | 11, 12, 13, 15, 17, 19 | fntp 6607 |
. . . . . . . . . 10
β’ ((1 β
2 β§ 1 β 3 β§ 2 β 3) β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©} Fn {1, 2, 3}) |
21 | 4, 7, 10, 20 | mp3an 1462 |
. . . . . . . . 9
β’ {β¨1,
πβ©, β¨2, πβ©, β¨3, πβ©} Fn {1, 2,
3} |
22 | 11 | tpid1 4772 |
. . . . . . . . 9
β’ 1 β
{1, 2, 3} |
23 | | fvco2 6986 |
. . . . . . . . 9
β’
(({β¨1, πβ©,
β¨2, πβ©, β¨3,
πβ©} Fn {1, 2, 3} β§
1 β {1, 2, 3}) β ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β1) = (πβ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β1))) |
24 | 21, 22, 23 | mp2an 691 |
. . . . . . . 8
β’ ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β1) = (πβ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β1)) |
25 | 11, 15 | fvtp1 7193 |
. . . . . . . . . 10
β’ ((1 β
2 β§ 1 β 3) β ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β1) = π) |
26 | 4, 7, 25 | mp2an 691 |
. . . . . . . . 9
β’
({β¨1, πβ©,
β¨2, πβ©, β¨3,
πβ©}β1) = π |
27 | 26 | fveq2i 6892 |
. . . . . . . 8
β’ (πβ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β1)) = (πβπ) |
28 | 24, 27 | eqtri 2761 |
. . . . . . 7
β’ ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β1) = (πβπ) |
29 | 12 | tpid2 4774 |
. . . . . . . . 9
β’ 2 β
{1, 2, 3} |
30 | | fvco2 6986 |
. . . . . . . . 9
β’
(({β¨1, πβ©,
β¨2, πβ©, β¨3,
πβ©} Fn {1, 2, 3} β§
2 β {1, 2, 3}) β ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β2) = (πβ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β2))) |
31 | 21, 29, 30 | mp2an 691 |
. . . . . . . 8
β’ ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β2) = (πβ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β2)) |
32 | 12, 17 | fvtp2 7194 |
. . . . . . . . . 10
β’ ((1 β
2 β§ 2 β 3) β ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β2) = π) |
33 | 4, 10, 32 | mp2an 691 |
. . . . . . . . 9
β’
({β¨1, πβ©,
β¨2, πβ©, β¨3,
πβ©}β2) = π |
34 | 33 | fveq2i 6892 |
. . . . . . . 8
β’ (πβ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β2)) = (πβπ) |
35 | 31, 34 | eqtri 2761 |
. . . . . . 7
β’ ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β2) = (πβπ) |
36 | 13 | tpid3 4777 |
. . . . . . . . 9
β’ 3 β
{1, 2, 3} |
37 | | fvco2 6986 |
. . . . . . . . 9
β’
(({β¨1, πβ©,
β¨2, πβ©, β¨3,
πβ©} Fn {1, 2, 3} β§
3 β {1, 2, 3}) β ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β3) = (πβ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β3))) |
38 | 21, 36, 37 | mp2an 691 |
. . . . . . . 8
β’ ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β3) = (πβ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β3)) |
39 | 13, 19 | fvtp3 7195 |
. . . . . . . . . 10
β’ ((1 β
3 β§ 2 β 3) β ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β3) = π) |
40 | 7, 10, 39 | mp2an 691 |
. . . . . . . . 9
β’
({β¨1, πβ©,
β¨2, πβ©, β¨3,
πβ©}β3) = π |
41 | 40 | fveq2i 6892 |
. . . . . . . 8
β’ (πβ({β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}β3)) = (πβπ) |
42 | 38, 41 | eqtri 2761 |
. . . . . . 7
β’ ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β3) = (πβπ) |
43 | 28, 35, 42 | 3pm3.2i 1340 |
. . . . . 6
β’ (((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β1) = (πβπ) β§ ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β2) = (πβπ) β§ ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β3) = (πβπ)) |
44 | | fveq1 6888 |
. . . . . . . 8
β’ (π = (π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}) β (πβ1) = ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β1)) |
45 | 44 | eqeq1d 2735 |
. . . . . . 7
β’ (π = (π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}) β ((πβ1) = (πβπ) β ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β1) = (πβπ))) |
46 | | fveq1 6888 |
. . . . . . . 8
β’ (π = (π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}) β (πβ2) = ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β2)) |
47 | 46 | eqeq1d 2735 |
. . . . . . 7
β’ (π = (π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}) β ((πβ2) = (πβπ) β ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β2) = (πβπ))) |
48 | | fveq1 6888 |
. . . . . . . 8
β’ (π = (π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}) β (πβ3) = ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β3)) |
49 | 48 | eqeq1d 2735 |
. . . . . . 7
β’ (π = (π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}) β ((πβ3) = (πβπ) β ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β3) = (πβπ))) |
50 | 45, 47, 49 | 3anbi123d 1437 |
. . . . . 6
β’ (π = (π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}) β (((πβ1) = (πβπ) β§ (πβ2) = (πβπ) β§ (πβ3) = (πβπ)) β (((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β1) = (πβπ) β§ ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β2) = (πβπ) β§ ((π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©})β3) = (πβπ)))) |
51 | 43, 50 | mpbiri 258 |
. . . . 5
β’ (π = (π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}) β ((πβ1) = (πβπ) β§ (πβ2) = (πβπ) β§ (πβ3) = (πβπ))) |
52 | | rabren3dioph.a |
. . . . 5
β’ (((πβ1) = (πβπ) β§ (πβ2) = (πβπ) β§ (πβ3) = (πβπ)) β (π β π)) |
53 | 51, 52 | syl 17 |
. . . 4
β’ (π = (π β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}) β (π β π)) |
54 | 3, 53 | sbcie 3820 |
. . 3
β’
([(π β
{β¨1, πβ©, β¨2,
πβ©, β¨3, πβ©}) / π]π β π) |
55 | 54 | rabbii 3439 |
. 2
β’ {π β (β0
βm (1...π))
β£ [(π β
{β¨1, πβ©, β¨2,
πβ©, β¨3, πβ©}) / π]π} = {π β (β0
βm (1...π))
β£ π} |
56 | 11, 12, 13, 15, 17, 19, 4, 7, 10 | ftp 7152 |
. . . . 5
β’ {β¨1,
πβ©, β¨2, πβ©, β¨3, πβ©}:{1, 2, 3}βΆ{π, π, π} |
57 | | 1z 12589 |
. . . . . . . 8
β’ 1 β
β€ |
58 | | fztp 13554 |
. . . . . . . 8
β’ (1 β
β€ β (1...(1 + 2)) = {1, (1 + 1), (1 + 2)}) |
59 | 57, 58 | ax-mp 5 |
. . . . . . 7
β’ (1...(1 +
2)) = {1, (1 + 1), (1 + 2)} |
60 | | 1p2e3 12352 |
. . . . . . . 8
β’ (1 + 2) =
3 |
61 | 60 | oveq2i 7417 |
. . . . . . 7
β’ (1...(1 +
2)) = (1...3) |
62 | | eqidd 2734 |
. . . . . . . . 9
β’ (1 β
β€ β 1 = 1) |
63 | | 1p1e2 12334 |
. . . . . . . . . 10
β’ (1 + 1) =
2 |
64 | 63 | a1i 11 |
. . . . . . . . 9
β’ (1 β
β€ β (1 + 1) = 2) |
65 | 60 | a1i 11 |
. . . . . . . . 9
β’ (1 β
β€ β (1 + 2) = 3) |
66 | 62, 64, 65 | tpeq123d 4752 |
. . . . . . . 8
β’ (1 β
β€ β {1, (1 + 1), (1 + 2)} = {1, 2, 3}) |
67 | 57, 66 | ax-mp 5 |
. . . . . . 7
β’ {1, (1 +
1), (1 + 2)} = {1, 2, 3} |
68 | 59, 61, 67 | 3eqtr3i 2769 |
. . . . . 6
β’ (1...3) =
{1, 2, 3} |
69 | 68 | feq2i 6707 |
. . . . 5
β’
({β¨1, πβ©,
β¨2, πβ©, β¨3,
πβ©}:(1...3)βΆ{π, π, π} β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}:{1, 2, 3}βΆ{π, π, π}) |
70 | 56, 69 | mpbir 230 |
. . . 4
β’ {β¨1,
πβ©, β¨2, πβ©, β¨3, πβ©}:(1...3)βΆ{π, π, π} |
71 | 14, 16, 18 | 3pm3.2i 1340 |
. . . . 5
β’ (π β (1...π) β§ π β (1...π) β§ π β (1...π)) |
72 | 15, 17, 19 | tpss 4838 |
. . . . 5
β’ ((π β (1...π) β§ π β (1...π) β§ π β (1...π)) β {π, π, π} β (1...π)) |
73 | 71, 72 | mpbi 229 |
. . . 4
β’ {π, π, π} β (1...π) |
74 | | fss 6732 |
. . . 4
β’
(({β¨1, πβ©,
β¨2, πβ©, β¨3,
πβ©}:(1...3)βΆ{π, π, π} β§ {π, π, π} β (1...π)) β {β¨1, πβ©, β¨2, πβ©, β¨3, πβ©}:(1...3)βΆ(1...π)) |
75 | 70, 73, 74 | mp2an 691 |
. . 3
β’ {β¨1,
πβ©, β¨2, πβ©, β¨3, πβ©}:(1...3)βΆ(1...π) |
76 | | rabrenfdioph 41538 |
. . 3
β’ ((π β β0
β§ {β¨1, πβ©,
β¨2, πβ©, β¨3,
πβ©}:(1...3)βΆ(1...π) β§ {π β (β0
βm (1...3)) β£ π} β (Diophβ3)) β {π β (β0
βm (1...π))
β£ [(π β
{β¨1, πβ©, β¨2,
πβ©, β¨3, πβ©}) / π]π} β (Diophβπ)) |
77 | 75, 76 | mp3an2 1450 |
. 2
β’ ((π β β0
β§ {π β
(β0 βm (1...3)) β£ π} β (Diophβ3)) β {π β (β0
βm (1...π))
β£ [(π β
{β¨1, πβ©, β¨2,
πβ©, β¨3, πβ©}) / π]π} β (Diophβπ)) |
78 | 55, 77 | eqeltrrid 2839 |
1
β’ ((π β β0
β§ {π β
(β0 βm (1...3)) β£ π} β (Diophβ3)) β {π β (β0
βm (1...π))
β£ π} β
(Diophβπ)) |