Step |
Hyp |
Ref |
Expression |
1 |
|
df-prod |
โข โ ๐ โ ๐ด ๐ต = ( โฉ ๐ฅ ( โ ๐ โ โค ( ๐ด โ ( โคโฅ โ ๐ ) โง โ ๐ โ ( โคโฅ โ ๐ ) โ ๐ฆ ( ๐ฆ โ 0 โง seq ๐ ( ยท , ( ๐ โ โค โฆ if ( ๐ โ ๐ด , ๐ต , 1 ) ) ) โ ๐ฆ ) โง seq ๐ ( ยท , ( ๐ โ โค โฆ if ( ๐ โ ๐ด , ๐ต , 1 ) ) ) โ ๐ฅ ) โจ โ ๐ โ โ โ ๐ ( ๐ : ( 1 ... ๐ ) โ1-1-ontoโ ๐ด โง ๐ฅ = ( seq 1 ( ยท , ( ๐ โ โ โฆ โฆ ( ๐ โ ๐ ) / ๐ โฆ ๐ต ) ) โ ๐ ) ) ) ) |
2 |
|
iotaex |
โข ( โฉ ๐ฅ ( โ ๐ โ โค ( ๐ด โ ( โคโฅ โ ๐ ) โง โ ๐ โ ( โคโฅ โ ๐ ) โ ๐ฆ ( ๐ฆ โ 0 โง seq ๐ ( ยท , ( ๐ โ โค โฆ if ( ๐ โ ๐ด , ๐ต , 1 ) ) ) โ ๐ฆ ) โง seq ๐ ( ยท , ( ๐ โ โค โฆ if ( ๐ โ ๐ด , ๐ต , 1 ) ) ) โ ๐ฅ ) โจ โ ๐ โ โ โ ๐ ( ๐ : ( 1 ... ๐ ) โ1-1-ontoโ ๐ด โง ๐ฅ = ( seq 1 ( ยท , ( ๐ โ โ โฆ โฆ ( ๐ โ ๐ ) / ๐ โฆ ๐ต ) ) โ ๐ ) ) ) ) โ V |
3 |
1 2
|
eqeltri |
โข โ ๐ โ ๐ด ๐ต โ V |