| Step |
Hyp |
Ref |
Expression |
| 1 |
|
elrel |
|- ( ( Rel R /\ A e. R ) -> E. x E. y A = <. x , y >. ) |
| 2 |
|
simpr |
|- ( ( Rel R /\ A e. R ) -> A e. R ) |
| 3 |
|
vex |
|- x e. _V |
| 4 |
|
vex |
|- y e. _V |
| 5 |
3 4
|
uniopel |
|- ( <. x , y >. e. R -> U. <. x , y >. e. U. R ) |
| 6 |
5
|
a1i |
|- ( A = <. x , y >. -> ( <. x , y >. e. R -> U. <. x , y >. e. U. R ) ) |
| 7 |
|
eleq1 |
|- ( A = <. x , y >. -> ( A e. R <-> <. x , y >. e. R ) ) |
| 8 |
|
unieq |
|- ( A = <. x , y >. -> U. A = U. <. x , y >. ) |
| 9 |
8
|
eleq1d |
|- ( A = <. x , y >. -> ( U. A e. U. R <-> U. <. x , y >. e. U. R ) ) |
| 10 |
6 7 9
|
3imtr4d |
|- ( A = <. x , y >. -> ( A e. R -> U. A e. U. R ) ) |
| 11 |
10
|
exlimivv |
|- ( E. x E. y A = <. x , y >. -> ( A e. R -> U. A e. U. R ) ) |
| 12 |
1 2 11
|
sylc |
|- ( ( Rel R /\ A e. R ) -> U. A e. U. R ) |