Step | Hyp | Ref
| Expression |
1 | | exp0 14036 |
. . . . 5
โข (๐ต โ โ โ (๐ตโ0) = 1) |
2 | 1 | eqcomd 2737 |
. . . 4
โข (๐ต โ โ โ 1 =
(๐ตโ0)) |
3 | | prodeq1 15858 |
. . . . . 6
โข (๐ด = โ
โ โ๐ โ ๐ด ๐ต = โ๐ โ โ
๐ต) |
4 | | prod0 15892 |
. . . . . 6
โข
โ๐ โ
โ
๐ต =
1 |
5 | 3, 4 | eqtrdi 2787 |
. . . . 5
โข (๐ด = โ
โ โ๐ โ ๐ด ๐ต = 1) |
6 | | fveq2 6891 |
. . . . . . 7
โข (๐ด = โ
โ
(โฏโ๐ด) =
(โฏโโ
)) |
7 | | hash0 14332 |
. . . . . . 7
โข
(โฏโโ
) = 0 |
8 | 6, 7 | eqtrdi 2787 |
. . . . . 6
โข (๐ด = โ
โ
(โฏโ๐ด) =
0) |
9 | 8 | oveq2d 7428 |
. . . . 5
โข (๐ด = โ
โ (๐ตโ(โฏโ๐ด)) = (๐ตโ0)) |
10 | 5, 9 | eqeq12d 2747 |
. . . 4
โข (๐ด = โ
โ (โ๐ โ ๐ด ๐ต = (๐ตโ(โฏโ๐ด)) โ 1 = (๐ตโ0))) |
11 | 2, 10 | syl5ibrcom 246 |
. . 3
โข (๐ต โ โ โ (๐ด = โ
โ โ๐ โ ๐ด ๐ต = (๐ตโ(โฏโ๐ด)))) |
12 | 11 | adantl 481 |
. 2
โข ((๐ด โ Fin โง ๐ต โ โ) โ (๐ด = โ
โ โ๐ โ ๐ด ๐ต = (๐ตโ(โฏโ๐ด)))) |
13 | | eqidd 2732 |
. . . . . . 7
โข (๐ = (๐โ๐) โ ๐ต = ๐ต) |
14 | | simprl 768 |
. . . . . . 7
โข (((๐ด โ Fin โง ๐ต โ โ) โง
((โฏโ๐ด) โ
โ โง ๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด)) โ (โฏโ๐ด) โ
โ) |
15 | | simprr 770 |
. . . . . . 7
โข (((๐ด โ Fin โง ๐ต โ โ) โง
((โฏโ๐ด) โ
โ โง ๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด)) โ ๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด) |
16 | | simpllr 773 |
. . . . . . 7
โข ((((๐ด โ Fin โง ๐ต โ โ) โง
((โฏโ๐ด) โ
โ โง ๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด)) โง ๐ โ ๐ด) โ ๐ต โ โ) |
17 | | simpllr 773 |
. . . . . . . 8
โข ((((๐ด โ Fin โง ๐ต โ โ) โง
((โฏโ๐ด) โ
โ โง ๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด)) โง ๐ โ (1...(โฏโ๐ด))) โ ๐ต โ โ) |
18 | | elfznn 13535 |
. . . . . . . . 9
โข (๐ โ
(1...(โฏโ๐ด))
โ ๐ โ
โ) |
19 | 18 | adantl 481 |
. . . . . . . 8
โข ((((๐ด โ Fin โง ๐ต โ โ) โง
((โฏโ๐ด) โ
โ โง ๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด)) โง ๐ โ (1...(โฏโ๐ด))) โ ๐ โ โ) |
20 | | fvconst2g 7205 |
. . . . . . . 8
โข ((๐ต โ โ โง ๐ โ โ) โ
((โ ร {๐ต})โ๐) = ๐ต) |
21 | 17, 19, 20 | syl2anc 583 |
. . . . . . 7
โข ((((๐ด โ Fin โง ๐ต โ โ) โง
((โฏโ๐ด) โ
โ โง ๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด)) โง ๐ โ (1...(โฏโ๐ด))) โ ((โ ร {๐ต})โ๐) = ๐ต) |
22 | 13, 14, 15, 16, 21 | fprod 15890 |
. . . . . 6
โข (((๐ด โ Fin โง ๐ต โ โ) โง
((โฏโ๐ด) โ
โ โง ๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด)) โ โ๐ โ ๐ด ๐ต = (seq1( ยท , (โ ร {๐ต}))โ(โฏโ๐ด))) |
23 | | expnnval 14035 |
. . . . . . 7
โข ((๐ต โ โ โง
(โฏโ๐ด) โ
โ) โ (๐ตโ(โฏโ๐ด)) = (seq1( ยท , (โ ร
{๐ต}))โ(โฏโ๐ด))) |
24 | 23 | ad2ant2lr 745 |
. . . . . 6
โข (((๐ด โ Fin โง ๐ต โ โ) โง
((โฏโ๐ด) โ
โ โง ๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด)) โ (๐ตโ(โฏโ๐ด)) = (seq1( ยท , (โ ร
{๐ต}))โ(โฏโ๐ด))) |
25 | 22, 24 | eqtr4d 2774 |
. . . . 5
โข (((๐ด โ Fin โง ๐ต โ โ) โง
((โฏโ๐ด) โ
โ โง ๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด)) โ โ๐ โ ๐ด ๐ต = (๐ตโ(โฏโ๐ด))) |
26 | 25 | expr 456 |
. . . 4
โข (((๐ด โ Fin โง ๐ต โ โ) โง
(โฏโ๐ด) โ
โ) โ (๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด โ โ๐ โ ๐ด ๐ต = (๐ตโ(โฏโ๐ด)))) |
27 | 26 | exlimdv 1935 |
. . 3
โข (((๐ด โ Fin โง ๐ต โ โ) โง
(โฏโ๐ด) โ
โ) โ (โ๐
๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด โ โ๐ โ ๐ด ๐ต = (๐ตโ(โฏโ๐ด)))) |
28 | 27 | expimpd 453 |
. 2
โข ((๐ด โ Fin โง ๐ต โ โ) โ
(((โฏโ๐ด) โ
โ โง โ๐
๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด) โ โ๐ โ ๐ด ๐ต = (๐ตโ(โฏโ๐ด)))) |
29 | | fz1f1o 15661 |
. . 3
โข (๐ด โ Fin โ (๐ด = โ
โจ
((โฏโ๐ด) โ
โ โง โ๐
๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด))) |
30 | 29 | adantr 480 |
. 2
โข ((๐ด โ Fin โง ๐ต โ โ) โ (๐ด = โ
โจ
((โฏโ๐ด) โ
โ โง โ๐
๐:(1...(โฏโ๐ด))โ1-1-ontoโ๐ด))) |
31 | 12, 28, 30 | mpjaod 857 |
1
โข ((๐ด โ Fin โง ๐ต โ โ) โ
โ๐ โ ๐ด ๐ต = (๐ตโ(โฏโ๐ด))) |