| Step |
Hyp |
Ref |
Expression |
| 1 |
|
cardon |
|- ( card ` A ) e. On |
| 2 |
|
cardon |
|- ( card ` B ) e. On |
| 3 |
|
onadju |
|- ( ( ( card ` A ) e. On /\ ( card ` B ) e. On ) -> ( ( card ` A ) +o ( card ` B ) ) ~~ ( ( card ` A ) |_| ( card ` B ) ) ) |
| 4 |
1 2 3
|
mp2an |
|- ( ( card ` A ) +o ( card ` B ) ) ~~ ( ( card ` A ) |_| ( card ` B ) ) |
| 5 |
|
cardid2 |
|- ( A e. dom card -> ( card ` A ) ~~ A ) |
| 6 |
|
cardid2 |
|- ( B e. dom card -> ( card ` B ) ~~ B ) |
| 7 |
|
djuen |
|- ( ( ( card ` A ) ~~ A /\ ( card ` B ) ~~ B ) -> ( ( card ` A ) |_| ( card ` B ) ) ~~ ( A |_| B ) ) |
| 8 |
5 6 7
|
syl2an |
|- ( ( A e. dom card /\ B e. dom card ) -> ( ( card ` A ) |_| ( card ` B ) ) ~~ ( A |_| B ) ) |
| 9 |
|
entr |
|- ( ( ( ( card ` A ) +o ( card ` B ) ) ~~ ( ( card ` A ) |_| ( card ` B ) ) /\ ( ( card ` A ) |_| ( card ` B ) ) ~~ ( A |_| B ) ) -> ( ( card ` A ) +o ( card ` B ) ) ~~ ( A |_| B ) ) |
| 10 |
4 8 9
|
sylancr |
|- ( ( A e. dom card /\ B e. dom card ) -> ( ( card ` A ) +o ( card ` B ) ) ~~ ( A |_| B ) ) |
| 11 |
10
|
ensymd |
|- ( ( A e. dom card /\ B e. dom card ) -> ( A |_| B ) ~~ ( ( card ` A ) +o ( card ` B ) ) ) |