Theorem opabex3d 6554

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 1928	. . . . . 6 |- ( E. y ( x e. A /\ ( z = <. x , y >. /\ ps ) ) <-> ( x e. A /\ E. y ( z = <. x , y >. /\ ps ) ) )
2		an12 790	. . . . . . 7 |- ( ( z = <. x , y >. /\ ( x e. A /\ ps ) ) <-> ( x e. A /\ ( z = <. x , y >. /\ ps ) ) )
3	2	exbii 1639	. . . . . 6 |- ( E. y ( z = <. x , y >. /\ ( x e. A /\ ps ) ) <-> E. y ( x e. A /\ ( z = <. x , y >. /\ ps ) ) )
4		elxp 4853	. . . . . . . 8 |- ( z e. ( { x } X. { y | ps } ) <-> E. v E. w ( z = <. v , w >. /\ ( v e. { x } /\ w e. { y | ps } ) ) )
5		excom 1792	. . . . . . . . 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 790	. . . . . . . . . . . . 13 |- ( ( z = <. v , w >. /\ ( v e. { x } /\ w e. { y | ps } ) ) <-> ( v e. { x } /\ ( z = <. v , w >. /\ w e. { y | ps } ) ) )
7		elsn 3888	. . . . . . . . . . . . . 14 |- ( v e. { x } <-> v = x )
8	7	anbi1i 690	. . . . . . . . . . . . 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 1639	. . . . . . . . . . 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 2973	. . . . . . . . . . . 12 |- x e. _V
12		opeq1 4056	. . . . . . . . . . . . . 14 |- ( v = x -> <. v , w >. = <. x , w >. )
13	12	eqeq2d 2452	. . . . . . . . . . . . 13 |- ( v = x -> ( z = <. v , w >. <-> z = <. x , w >. ) )
14	13	anbi1d 699	. . . . . . . . . . . 12 |- ( v = x -> ( ( z = <. v , w >. /\ w e. { y | ps } ) <-> ( z = <. x , w >. /\ w e. { y | ps } ) ) )
15	11, 14	ceqsexv 3006	. . . . . . . . . . 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 1639	. . . . . . . . 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 1678	. . . . . . . . . 10 |- F/ y z = <. x , w >.
20		nfsab1 2431	. . . . . . . . . 10 |- F/ y w e. { y | ps }
21	19, 20	nfan 1865	. . . . . . . . 9 |- F/ y ( z = <. x , w >. /\ w e. { y | ps } )
22		nfv 1678	. . . . . . . . 9 |- F/ w ( z = <. x , y >. /\ ps )
23		opeq2 4057	. . . . . . . . . . 11 |- ( w = y -> <. x , w >. = <. x , y >. )
24	23	eqeq2d 2452	. . . . . . . . . 10 |- ( w = y -> ( z = <. x , w >. <-> z = <. x , y >. ) )
25		sbequ12 1941	. . . . . . . . . . . 12 |- ( y = w -> ( ps <-> [ w / y ] ps ) )
26	25	equcoms 1738	. . . . . . . . . . 11 |- ( w = y -> ( ps <-> [ w / y ] ps ) )
27		df-clab 2428	. . . . . . . . . . 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 705	. . . . . . . . 9 |- ( w = y -> ( ( z = <. x , w >. /\ w e. { y | ps } ) <-> ( z = <. x , y >. /\ ps ) ) )
30	21, 22, 29	cbvex 1975	. . . . . . . 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 689	. . . . . 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 1639	. . . 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 4172	. . . . 5 |- ( z e. U_ x e. A ( { x } X. { y | ps } ) <-> E. x e. A z e. ( { x } X. { y | ps } ) )
36		df-rex 2719	. . . . 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 4594	. . . 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 2438	. 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 4530	. . . . 5 |- { x } e. _V
43		opabex3d.2	. . . . 5 |- ( ( ph /\ x e. A ) -> { y | ps } e. _V )
44		xpexg 6506	. . . . 5 |- ( ( { x } e. _V /\ { y | ps } e. _V ) -> ( { x } X. { y | ps } ) e. _V )
45	42, 43, 44	sylancr 658	. . . 4 |- ( ( ph /\ x e. A ) -> ( { x } X. { y | ps } ) e. _V )
46	45	ralrimiva 2797	. . 3 |- ( ph -> A. x e. A ( { x } X. { y | ps } ) e. _V )
47		iunexg 6552	. . 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 656	. 2 |- ( ph -> U_ x e. A ( { x } X. { y | ps } ) e. _V )
49	40, 48	syl5eqelr 2526	1 |- ( ph -> { <. x , y >. | ( x e. A /\ ps ) } e. _V )

Syntax hints:   -> wi 4   <-> wb 184   /\ wa 369   = wceq 1364   E.wex 1591   [wsb 1705   e. wcel 1761   {cab 2427   A.wral 2713   E.wrex 2714   _Vcvv 2970   {csn 3874   <.cop 3880   U_ciun 4168   {copab 4346   X. cxp 4834

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1596  ax-4 1607  ax-5 1675  ax-6 1713  ax-7 1733  ax-8 1763  ax-9 1765  ax-10 1780  ax-11 1785  ax-12 1797  ax-13 1948  ax-ext 2422  ax-rep 4400  ax-sep 4410  ax-nul 4418  ax-pow 4467  ax-pr 4528  ax-un 6371

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3an 962  df-tru 1367  df-ex 1592  df-nf 1595  df-sb 1706  df-eu 2261  df-mo 2262  df-clab 2428  df-cleq 2434  df-clel 2437  df-nfc 2566  df-ne 2606  df-ral 2718  df-rex 2719  df-reu 2720  df-rab 2722  df-v 2972  df-sbc 3184  df-csb 3286  df-dif 3328  df-un 3330  df-in 3332  df-ss 3339  df-nul 3635  df-if 3789  df-pw 3859  df-sn 3875  df-pr 3877  df-op 3881  df-uni 4089  df-iun 4170  df-br 4290  df-opab 4348  df-mpt 4349  df-id 4632  df-xp 4842  df-rel 4843  df-cnv 4844  df-co 4845  df-dm 4846  df-rn 4847  df-res 4848  df-ima 4849  df-iota 5378  df-fun 5417  df-fn 5418  df-f 5419  df-f1 5420  df-fo 5421  df-f1o 5422  df-fv 5423

This theorem is referenced by:  wlks  23360  wlkres  23363  trls  23370  crcts  23443  cycls  23444  fpwrelmap  25968