Metamath Proof Explorer


Theorem opabex3

Description: Existence of an ordered pair abstraction. (Contributed by Jeff Madsen, 2-Sep-2009)

Ref Expression
Hypotheses opabex3.1 AV
opabex3.2 xAy|φV
Assertion opabex3 xy|xAφV

Proof

Step Hyp Ref Expression
1 opabex3.1 AV
2 opabex3.2 xAy|φV
3 19.42v yxAz=xyφxAyz=xyφ
4 an12 z=xyxAφxAz=xyφ
5 4 exbii yz=xyxAφyxAz=xyφ
6 elxp zx×y|φvwz=vwvxwy|φ
7 excom vwz=vwvxwy|φwvz=vwvxwy|φ
8 an12 z=vwvxwy|φvxz=vwwy|φ
9 velsn vxv=x
10 9 anbi1i vxz=vwwy|φv=xz=vwwy|φ
11 8 10 bitri z=vwvxwy|φv=xz=vwwy|φ
12 11 exbii vz=vwvxwy|φvv=xz=vwwy|φ
13 opeq1 v=xvw=xw
14 13 eqeq2d v=xz=vwz=xw
15 14 anbi1d v=xz=vwwy|φz=xwwy|φ
16 15 equsexvw vv=xz=vwwy|φz=xwwy|φ
17 12 16 bitri vz=vwvxwy|φz=xwwy|φ
18 17 exbii wvz=vwvxwy|φwz=xwwy|φ
19 7 18 bitri vwz=vwvxwy|φwz=xwwy|φ
20 nfv yz=xw
21 nfsab1 ywy|φ
22 20 21 nfan yz=xwwy|φ
23 nfv wz=xyφ
24 opeq2 w=yxw=xy
25 24 eqeq2d w=yz=xwz=xy
26 df-clab wy|φwyφ
27 sbequ12 y=wφwyφ
28 27 equcoms w=yφwyφ
29 26 28 bitr4id w=ywy|φφ
30 25 29 anbi12d w=yz=xwwy|φz=xyφ
31 22 23 30 cbvexv1 wz=xwwy|φyz=xyφ
32 6 19 31 3bitri zx×y|φyz=xyφ
33 32 anbi2i xAzx×y|φxAyz=xyφ
34 3 5 33 3bitr4ri xAzx×y|φyz=xyxAφ
35 34 exbii xxAzx×y|φxyz=xyxAφ
36 eliun zxAx×y|φxAzx×y|φ
37 df-rex xAzx×y|φxxAzx×y|φ
38 36 37 bitri zxAx×y|φxxAzx×y|φ
39 elopab zxy|xAφxyz=xyxAφ
40 35 38 39 3bitr4i zxAx×y|φzxy|xAφ
41 40 eqriv xAx×y|φ=xy|xAφ
42 vsnex xV
43 xpexg xVy|φVx×y|φV
44 42 2 43 sylancr xAx×y|φV
45 44 rgen xAx×y|φV
46 iunexg AVxAx×y|φVxAx×y|φV
47 1 45 46 mp2an xAx×y|φV
48 41 47 eqeltrri xy|xAφV