Metamath Proof Explorer


Theorem relopabiv

Description: Alternate proof of relopabi , which is shorter but requires an extra DV condition. (Contributed by BJ, 22-Jul-2023) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Hypothesis relopabiv.1
|- A = { <. x , y >. | ph }
Assertion relopabiv
|- Rel A

Proof

Step Hyp Ref Expression
1 relopabiv.1
 |-  A = { <. x , y >. | ph }
2 vex
 |-  x e. _V
3 vex
 |-  y e. _V
4 2 3 pm3.2i
 |-  ( x e. _V /\ y e. _V )
5 4 a1i
 |-  ( ph -> ( x e. _V /\ y e. _V ) )
6 5 ssopab2i
 |-  { <. x , y >. | ph } C_ { <. x , y >. | ( x e. _V /\ y e. _V ) }
7 df-xp
 |-  ( _V X. _V ) = { <. x , y >. | ( x e. _V /\ y e. _V ) }
8 6 1 7 3sstr4i
 |-  A C_ ( _V X. _V )
9 df-rel
 |-  ( Rel A <-> A C_ ( _V X. _V ) )
10 8 9 mpbir
 |-  Rel A