Theorem opabex3d 6751

Description: Existence of an ordered pair abstraction, deduction version. (Contributed by Alexander van der Vekens, 19-Oct-2017.)

Hypotheses

Ref	Expression
opabex3d.1	|- ( ph -> A e. _V )
opabex3d.2	|- ( ( ph /\ x e. A ) -> { y | ps } e. _V )

Assertion

Ref	Expression
opabex3d	|- ( ph -> { <. x , y >. | ( x e. A /\ ps ) } e. _V )

Distinct variable groups:   x, A, y   ph, x

Allowed substitution hints:   ph( y)   ps( x, y)

Proof of Theorem opabex3d

Dummy variables v w z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		19.42v 1780	. . . . . 6 |- ( E. y ( x e. A /\ ( z = <. x , y >. /\ ps ) ) <-> ( x e. A /\ E. y ( z = <. x , y >. /\ ps ) ) )
2		an12 795	. . . . . . 7 |- ( ( z = <. x , y >. /\ ( x e. A /\ ps ) ) <-> ( x e. A /\ ( z = <. x , y >. /\ ps ) ) )
3	2	exbii 1672	. . . . . 6 |- ( E. y ( z = <. x , y >. /\ ( x e. A /\ ps ) ) <-> E. y ( x e. A /\ ( z = <. x , y >. /\ ps ) ) )
4		elxp 5005	. . . . . . . 8 |- ( z e. ( { x } X. { y | ps } ) <-> E. v E. w ( z = <. v , w >. /\ ( v e. { x } /\ w e. { y | ps } ) ) )
5		excom 1854	. . . . . . . . 9 |- ( E. v E. w ( z = <. v , w >. /\ ( v e. { x } /\ w e. { y | ps } ) ) <-> E. w E. v ( z = <. v , w >. /\ ( v e. { x } /\ w e. { y | ps } ) ) )
6		an12 795	. . . . . . . . . . . . 13 |- ( ( z = <. v , w >. /\ ( v e. { x } /\ w e. { y | ps } ) ) <-> ( v e. { x } /\ ( z = <. v , w >. /\ w e. { y | ps } ) ) )
7		elsn 4030	. . . . . . . . . . . . . 14 |- ( v e. { x } <-> v = x )
8	7	anbi1i 693	. . . . . . . . . . . . 13 |- ( ( v e. { x } /\ ( z = <. v , w >. /\ w e. { y | ps } ) ) <-> ( v = x /\ ( z = <. v , w >. /\ w e. { y | ps } ) ) )
9	6, 8	bitri 249	. . . . . . . . . . . 12 |- ( ( z = <. v , w >. /\ ( v e. { x } /\ w e. { y | ps } ) ) <-> ( v = x /\ ( z = <. v , w >. /\ w e. { y | ps } ) ) )
10	9	exbii 1672	. . . . . . . . . . 11 |- ( E. v ( z = <. v , w >. /\ ( v e. { x } /\ w e. { y | ps } ) ) <-> E. v ( v = x /\ ( z = <. v , w >. /\ w e. { y | ps } ) ) )
11		vex 3109	. . . . . . . . . . . 12 |- x e. _V
12		opeq1 4203	. . . . . . . . . . . . . 14 |- ( v = x -> <. v , w >. = <. x , w >. )
13	12	eqeq2d 2468	. . . . . . . . . . . . 13 |- ( v = x -> ( z = <. v , w >. <-> z = <. x , w >. ) )
14	13	anbi1d 702	. . . . . . . . . . . 12 |- ( v = x -> ( ( z = <. v , w >. /\ w e. { y | ps } ) <-> ( z = <. x , w >. /\ w e. { y | ps } ) ) )
15	11, 14	ceqsexv 3143	. . . . . . . . . . 11 |- ( E. v ( v = x /\ ( z = <. v , w >. /\ w e. { y | ps } ) ) <-> ( z = <. x , w >. /\ w e. { y | ps } ) )
16	10, 15	bitri 249	. . . . . . . . . 10 |- ( E. v ( z = <. v , w >. /\ ( v e. { x } /\ w e. { y | ps } ) ) <-> ( z = <. x , w >. /\ w e. { y | ps } ) )
17	16	exbii 1672	. . . . . . . . 9 |- ( E. w E. v ( z = <. v , w >. /\ ( v e. { x } /\ w e. { y | ps } ) ) <-> E. w ( z = <. x , w >. /\ w e. { y | ps } ) )
18	5, 17	bitri 249	. . . . . . . 8 |- ( E. v E. w ( z = <. v , w >. /\ ( v e. { x } /\ w e. { y | ps } ) ) <-> E. w ( z = <. x , w >. /\ w e. { y | ps } ) )
19		nfv 1712	. . . . . . . . . 10 |- F/ y z = <. x , w >.
20		nfsab1 2443	. . . . . . . . . 10 |- F/ y w e. { y | ps }
21	19, 20	nfan 1933	. . . . . . . . 9 |- F/ y ( z = <. x , w >. /\ w e. { y | ps } )
22		nfv 1712	. . . . . . . . 9 |- F/ w ( z = <. x , y >. /\ ps )
23		opeq2 4204	. . . . . . . . . . 11 |- ( w = y -> <. x , w >. = <. x , y >. )
24	23	eqeq2d 2468	. . . . . . . . . 10 |- ( w = y -> ( z = <. x , w >. <-> z = <. x , y >. ) )
25		sbequ12 1997	. . . . . . . . . . . 12 |- ( y = w -> ( ps <-> [ w / y ] ps ) )
26	25	equcoms 1800	. . . . . . . . . . 11 |- ( w = y -> ( ps <-> [ w / y ] ps ) )
27		df-clab 2440	. . . . . . . . . . 11 |- ( w e. { y | ps } <-> [ w / y ] ps )
28	26, 27	syl6rbbr 264	. . . . . . . . . 10 |- ( w = y -> ( w e. { y | ps } <-> ps ) )
29	24, 28	anbi12d 708	. . . . . . . . 9 |- ( w = y -> ( ( z = <. x , w >. /\ w e. { y | ps } ) <-> ( z = <. x , y >. /\ ps ) ) )
30	21, 22, 29	cbvex 2027	. . . . . . . 8 |- ( E. w ( z = <. x , w >. /\ w e. { y | ps } ) <-> E. y ( z = <. x , y >. /\ ps ) )
31	4, 18, 30	3bitri 271	. . . . . . 7 |- ( z e. ( { x } X. { y | ps } ) <-> E. y ( z = <. x , y >. /\ ps ) )
32	31	anbi2i 692	. . . . . 6 |- ( ( x e. A /\ z e. ( { x } X. { y | ps } ) ) <-> ( x e. A /\ E. y ( z = <. x , y >. /\ ps ) ) )
33	1, 3, 32	3bitr4ri 278	. . . . 5 |- ( ( x e. A /\ z e. ( { x } X. { y | ps } ) ) <-> E. y ( z = <. x , y >. /\ ( x e. A /\ ps ) ) )
34	33	exbii 1672	. . . 4 |- ( E. x ( x e. A /\ z e. ( { x } X. { y | ps } ) ) <-> E. x E. y ( z = <. x , y >. /\ ( x e. A /\ ps ) ) )
35		eliun 4320	. . . . 5 |- ( z e. U_ x e. A ( { x } X. { y | ps } ) <-> E. x e. A z e. ( { x } X. { y | ps } ) )
36		df-rex 2810	. . . . 5 |- ( E. x e. A z e. ( { x } X. { y | ps } ) <-> E. x ( x e. A /\ z e. ( { x } X. { y | ps } ) ) )
37	35, 36	bitri 249	. . . 4 |- ( z e. U_ x e. A ( { x } X. { y | ps } ) <-> E. x ( x e. A /\ z e. ( { x } X. { y | ps } ) ) )
38		elopab 4744	. . . 4 |- ( z e. { <. x , y >. | ( x e. A /\ ps ) } <-> E. x E. y ( z = <. x , y >. /\ ( x e. A /\ ps ) ) )
39	34, 37, 38	3bitr4i 277	. . 3 |- ( z e. U_ x e. A ( { x } X. { y | ps } ) <-> z e. { <. x , y >. | ( x e. A /\ ps ) } )
40	39	eqriv 2450	. 2 |- U_ x e. A ( { x } X. { y | ps } ) = { <. x , y >. | ( x e. A /\ ps ) }
41		opabex3d.1	. . 3 |- ( ph -> A e. _V )
42		snex 4678	. . . . 5 |- { x } e. _V
43		opabex3d.2	. . . . 5 |- ( ( ph /\ x e. A ) -> { y | ps } e. _V )
44		xpexg 6575	. . . . 5 |- ( ( { x } e. _V /\ { y | ps } e. _V ) -> ( { x } X. { y | ps } ) e. _V )
45	42, 43, 44	sylancr 661	. . . 4 |- ( ( ph /\ x e. A ) -> ( { x } X. { y | ps } ) e. _V )
46	45	ralrimiva 2868	. . 3 |- ( ph -> A. x e. A ( { x } X. { y | ps } ) e. _V )
47		iunexg 6749	. . 3 |- ( ( A e. _V /\ A. x e. A ( { x } X. { y | ps } ) e. _V ) -> U_ x e. A ( { x } X. { y | ps } ) e. _V )
48	41, 46, 47	syl2anc 659	. 2 |- ( ph -> U_ x e. A ( { x } X. { y | ps } ) e. _V )
49	40, 48	syl5eqelr 2547	1 |- ( ph -> { <. x , y >. | ( x e. A /\ ps ) } e. _V )

Syntax hints:   -> wi 4   <-> wb 184   /\ wa 367   = wceq 1398   E.wex 1617   [wsb 1744   e. wcel 1823   {cab 2439   A.wral 2804   E.wrex 2805   _Vcvv 3106   {csn 4016   <.cop 4022   U_ciun 4315   {copab 4496   X. cxp 4986

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1623  ax-4 1636  ax-5 1709  ax-6 1752  ax-7 1795  ax-8 1825  ax-9 1827  ax-10 1842  ax-11 1847  ax-12 1859  ax-13 2004  ax-ext 2432  ax-rep 4550  ax-sep 4560  ax-nul 4568  ax-pow 4615  ax-pr 4676  ax-un 6565

This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3an 973  df-tru 1401  df-ex 1618  df-nf 1622  df-sb 1745  df-eu 2288  df-mo 2289  df-clab 2440  df-cleq 2446  df-clel 2449  df-nfc 2604  df-ne 2651  df-ral 2809  df-rex 2810  df-reu 2811  df-rab 2813  df-v 3108  df-sbc 3325  df-csb 3421  df-dif 3464  df-un 3466  df-in 3468  df-ss 3475  df-nul 3784  df-if 3930  df-pw 4001  df-sn 4017  df-pr 4019  df-op 4023  df-uni 4236  df-iun 4317  df-br 4440  df-opab 4498  df-mpt 4499  df-id 4784  df-xp 4994  df-rel 4995  df-cnv 4996  df-co 4997  df-dm 4998  df-rn 4999  df-res 5000  df-ima 5001  df-iota 5534  df-fun 5572  df-fn 5573  df-f 5574  df-f1 5575  df-fo 5576  df-f1o 5577  df-fv 5578

This theorem is referenced by:  wlks  24721  wlkres  24724  trls  24740  crcts  24824  cycls  24825  fpwrelmap  27787