Step |
Hyp |
Ref |
Expression |
1 |
|
sategoelfvb.s |
|- E = ( M SatE ( A e.g B ) ) |
2 |
|
ex-sategoelel.s |
|- S = ( x e. _om |-> if ( x = A , Z , if ( x = B , ~P Z , (/) ) ) ) |
3 |
|
simpll |
|- ( ( ( M e. WUni /\ Z e. M ) /\ ( A e. _om /\ B e. _om /\ A =/= B ) ) -> M e. WUni ) |
4 |
|
3simpa |
|- ( ( A e. _om /\ B e. _om /\ A =/= B ) -> ( A e. _om /\ B e. _om ) ) |
5 |
4
|
adantl |
|- ( ( ( M e. WUni /\ Z e. M ) /\ ( A e. _om /\ B e. _om /\ A =/= B ) ) -> ( A e. _om /\ B e. _om ) ) |
6 |
1 2
|
ex-sategoelel |
|- ( ( ( M e. WUni /\ Z e. M ) /\ ( A e. _om /\ B e. _om /\ A =/= B ) ) -> S e. E ) |
7 |
1
|
sategoelfv |
|- ( ( M e. WUni /\ ( A e. _om /\ B e. _om ) /\ S e. E ) -> ( S ` A ) e. ( S ` B ) ) |
8 |
3 5 6 7
|
syl3anc |
|- ( ( ( M e. WUni /\ Z e. M ) /\ ( A e. _om /\ B e. _om /\ A =/= B ) ) -> ( S ` A ) e. ( S ` B ) ) |