Theorem copsexg 4241

Description: Substitution of class A for ordered pair <. x , y >.. (Contributed by NM, 27-Dec-1996.) (Revised by Andrew Salmon, 11-Jul-2011.)

Assertion

Ref	Expression
copsexg	|- ( A = <. x , y >. -> ( ph <-> E. x E. y ( A = <. x , y >. /\ ph ) ) )

Distinct variable groups:   x, A   y, A

Allowed substitution hints:   ph( x, y)

Proof of Theorem copsexg

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

Step	Hyp	Ref	Expression
1		vex 2740	. . . 4 |- x e. _V
2		vex 2740	. . . 4 |- y e. _V
3	1, 2	eqvinop 4240	. . 3 |- ( A = <. x , y >. <-> E. z E. w ( A = <. z , w >. /\ <. z , w >. = <. x , y >. ) )
4		19.8a 1590	. . . . . . . . 9 |- ( E. y ( <. z , w >. = <. x , y >. /\ ph ) -> E. x E. y ( <. z , w >. = <. x , y >. /\ ph ) )
5	4	19.23bi 1592	. . . . . . . 8 |- ( ( <. z , w >. = <. x , y >. /\ ph ) -> E. x E. y ( <. z , w >. = <. x , y >. /\ ph ) )
6	5	ex 115	. . . . . . 7 |- ( <. z , w >. = <. x , y >. -> ( ph -> E. x E. y ( <. z , w >. = <. x , y >. /\ ph ) ) )
7		vex 2740	. . . . . . . . 9 |- z e. _V
8		vex 2740	. . . . . . . . 9 |- w e. _V
9	7, 8	opth 4234	. . . . . . . 8 |- ( <. z , w >. = <. x , y >. <-> ( z = x /\ w = y ) )
10	9	anbi1i 458	. . . . . . . . . 10 |- ( ( <. z , w >. = <. x , y >. /\ ph ) <-> ( ( z = x /\ w = y ) /\ ph ) )
11	10	2exbii 1606	. . . . . . . . 9 |- ( E. x E. y ( <. z , w >. = <. x , y >. /\ ph ) <-> E. x E. y ( ( z = x /\ w = y ) /\ ph ) )
12		nfe1 1496	. . . . . . . . . . 11 |- F/ x E. x ( z = x /\ E. y ( w = y /\ ph ) )
13		dveeq2or 1816	. . . . . . . . . . . 12 |- ( A. y y = x \/ F/ y z = x )
14		nfae 1719	. . . . . . . . . . . . . . 15 |- F/ y A. y y = x
15		anass 401	. . . . . . . . . . . . . . . 16 |- ( ( ( z = x /\ w = y ) /\ ph ) <-> ( z = x /\ ( w = y /\ ph ) ) )
16		19.8a 1590	. . . . . . . . . . . . . . . . . 18 |- ( ( w = y /\ ph ) -> E. y ( w = y /\ ph ) )
17	16	a1i 9	. . . . . . . . . . . . . . . . 17 |- ( A. y y = x -> ( ( w = y /\ ph ) -> E. y ( w = y /\ ph ) ) )
18	17	anim2d 337	. . . . . . . . . . . . . . . 16 |- ( A. y y = x -> ( ( z = x /\ ( w = y /\ ph ) ) -> ( z = x /\ E. y ( w = y /\ ph ) ) ) )
19	15, 18	biimtrid 152	. . . . . . . . . . . . . . 15 |- ( A. y y = x -> ( ( ( z = x /\ w = y ) /\ ph ) -> ( z = x /\ E. y ( w = y /\ ph ) ) ) )
20	14, 19	eximd 1612	. . . . . . . . . . . . . 14 |- ( A. y y = x -> ( E. y ( ( z = x /\ w = y ) /\ ph ) -> E. y ( z = x /\ E. y ( w = y /\ ph ) ) ) )
21		biidd 172	. . . . . . . . . . . . . . 15 |- ( A. y y = x -> ( ( z = x /\ E. y ( w = y /\ ph ) ) <-> ( z = x /\ E. y ( w = y /\ ph ) ) ) )
22	21	drex1 1798	. . . . . . . . . . . . . 14 |- ( A. y y = x -> ( E. y ( z = x /\ E. y ( w = y /\ ph ) ) <-> E. x ( z = x /\ E. y ( w = y /\ ph ) ) ) )
23	20, 22	sylibd 149	. . . . . . . . . . . . 13 |- ( A. y y = x -> ( E. y ( ( z = x /\ w = y ) /\ ph ) -> E. x ( z = x /\ E. y ( w = y /\ ph ) ) ) )
24	15	exbii 1605	. . . . . . . . . . . . . . 15 |- ( E. y ( ( z = x /\ w = y ) /\ ph ) <-> E. y ( z = x /\ ( w = y /\ ph ) ) )
25		19.40 1631	. . . . . . . . . . . . . . . 16 |- ( E. y ( z = x /\ ( w = y /\ ph ) ) -> ( E. y z = x /\ E. y ( w = y /\ ph ) ) )
26		19.9t 1642	. . . . . . . . . . . . . . . . . 18 |- ( F/ y z = x -> ( E. y z = x <-> z = x ) )
27	26	biimpd 144	. . . . . . . . . . . . . . . . 17 |- ( F/ y z = x -> ( E. y z = x -> z = x ) )
28	27	anim1d 336	. . . . . . . . . . . . . . . 16 |- ( F/ y z = x -> ( ( E. y z = x /\ E. y ( w = y /\ ph ) ) -> ( z = x /\ E. y ( w = y /\ ph ) ) ) )
29	25, 28	syl5 32	. . . . . . . . . . . . . . 15 |- ( F/ y z = x -> ( E. y ( z = x /\ ( w = y /\ ph ) ) -> ( z = x /\ E. y ( w = y /\ ph ) ) ) )
30	24, 29	biimtrid 152	. . . . . . . . . . . . . 14 |- ( F/ y z = x -> ( E. y ( ( z = x /\ w = y ) /\ ph ) -> ( z = x /\ E. y ( w = y /\ ph ) ) ) )
31		19.8a 1590	. . . . . . . . . . . . . 14 |- ( ( z = x /\ E. y ( w = y /\ ph ) ) -> E. x ( z = x /\ E. y ( w = y /\ ph ) ) )
32	30, 31	syl6 33	. . . . . . . . . . . . 13 |- ( F/ y z = x -> ( E. y ( ( z = x /\ w = y ) /\ ph ) -> E. x ( z = x /\ E. y ( w = y /\ ph ) ) ) )
33	23, 32	jaoi 716	. . . . . . . . . . . 12 |- ( ( A. y y = x \/ F/ y z = x ) -> ( E. y ( ( z = x /\ w = y ) /\ ph ) -> E. x ( z = x /\ E. y ( w = y /\ ph ) ) ) )
34	13, 33	ax-mp 5	. . . . . . . . . . 11 |- ( E. y ( ( z = x /\ w = y ) /\ ph ) -> E. x ( z = x /\ E. y ( w = y /\ ph ) ) )
35	12, 34	exlimi 1594	. . . . . . . . . 10 |- ( E. x E. y ( ( z = x /\ w = y ) /\ ph ) -> E. x ( z = x /\ E. y ( w = y /\ ph ) ) )
36		euequ1 2121	. . . . . . . . . . . . . 14 |- E! x x = z
37		equcom 1706	. . . . . . . . . . . . . . 15 |- ( x = z <-> z = x )
38	37	eubii 2035	. . . . . . . . . . . . . 14 |- ( E! x x = z <-> E! x z = x )
39	36, 38	mpbi 145	. . . . . . . . . . . . 13 |- E! x z = x
40		eupick 2105	. . . . . . . . . . . . 13 |- ( ( E! x z = x /\ E. x ( z = x /\ E. y ( w = y /\ ph ) ) ) -> ( z = x -> E. y ( w = y /\ ph ) ) )
41	39, 40	mpan 424	. . . . . . . . . . . 12 |- ( E. x ( z = x /\ E. y ( w = y /\ ph ) ) -> ( z = x -> E. y ( w = y /\ ph ) ) )
42	41	com12 30	. . . . . . . . . . 11 |- ( z = x -> ( E. x ( z = x /\ E. y ( w = y /\ ph ) ) -> E. y ( w = y /\ ph ) ) )
43		euequ1 2121	. . . . . . . . . . . . . 14 |- E! y y = w
44		equcom 1706	. . . . . . . . . . . . . . 15 |- ( y = w <-> w = y )
45	44	eubii 2035	. . . . . . . . . . . . . 14 |- ( E! y y = w <-> E! y w = y )
46	43, 45	mpbi 145	. . . . . . . . . . . . 13 |- E! y w = y
47		eupick 2105	. . . . . . . . . . . . 13 |- ( ( E! y w = y /\ E. y ( w = y /\ ph ) ) -> ( w = y -> ph ) )
48	46, 47	mpan 424	. . . . . . . . . . . 12 |- ( E. y ( w = y /\ ph ) -> ( w = y -> ph ) )
49	48	com12 30	. . . . . . . . . . 11 |- ( w = y -> ( E. y ( w = y /\ ph ) -> ph ) )
50	42, 49	sylan9 409	. . . . . . . . . 10 |- ( ( z = x /\ w = y ) -> ( E. x ( z = x /\ E. y ( w = y /\ ph ) ) -> ph ) )
51	35, 50	syl5 32	. . . . . . . . 9 |- ( ( z = x /\ w = y ) -> ( E. x E. y ( ( z = x /\ w = y ) /\ ph ) -> ph ) )
52	11, 51	biimtrid 152	. . . . . . . 8 |- ( ( z = x /\ w = y ) -> ( E. x E. y ( <. z , w >. = <. x , y >. /\ ph ) -> ph ) )
53	9, 52	sylbi 121	. . . . . . 7 |- ( <. z , w >. = <. x , y >. -> ( E. x E. y ( <. z , w >. = <. x , y >. /\ ph ) -> ph ) )
54	6, 53	impbid 129	. . . . . 6 |- ( <. z , w >. = <. x , y >. -> ( ph <-> E. x E. y ( <. z , w >. = <. x , y >. /\ ph ) ) )
55		eqeq1 2184	. . . . . . 7 |- ( A = <. z , w >. -> ( A = <. x , y >. <-> <. z , w >. = <. x , y >. ) )
56	55	anbi1d 465	. . . . . . . . 9 |- ( A = <. z , w >. -> ( ( A = <. x , y >. /\ ph ) <-> ( <. z , w >. = <. x , y >. /\ ph ) ) )
57	56	2exbidv 1868	. . . . . . . 8 |- ( A = <. z , w >. -> ( E. x E. y ( A = <. x , y >. /\ ph ) <-> E. x E. y ( <. z , w >. = <. x , y >. /\ ph ) ) )
58	57	bibi2d 232	. . . . . . 7 |- ( A = <. z , w >. -> ( ( ph <-> E. x E. y ( A = <. x , y >. /\ ph ) ) <-> ( ph <-> E. x E. y ( <. z , w >. = <. x , y >. /\ ph ) ) ) )
59	55, 58	imbi12d 234	. . . . . 6 |- ( A = <. z , w >. -> ( ( A = <. x , y >. -> ( ph <-> E. x E. y ( A = <. x , y >. /\ ph ) ) ) <-> ( <. z , w >. = <. x , y >. -> ( ph <-> E. x E. y ( <. z , w >. = <. x , y >. /\ ph ) ) ) ) )
60	54, 59	mpbiri 168	. . . . 5 |- ( A = <. z , w >. -> ( A = <. x , y >. -> ( ph <-> E. x E. y ( A = <. x , y >. /\ ph ) ) ) )
61	60	adantr 276	. . . 4 |- ( ( A = <. z , w >. /\ <. z , w >. = <. x , y >. ) -> ( A = <. x , y >. -> ( ph <-> E. x E. y ( A = <. x , y >. /\ ph ) ) ) )
62	61	exlimivv 1896	. . 3 |- ( E. z E. w ( A = <. z , w >. /\ <. z , w >. = <. x , y >. ) -> ( A = <. x , y >. -> ( ph <-> E. x E. y ( A = <. x , y >. /\ ph ) ) ) )
63	3, 62	sylbi 121	. 2 |- ( A = <. x , y >. -> ( A = <. x , y >. -> ( ph <-> E. x E. y ( A = <. x , y >. /\ ph ) ) ) )
64	63	pm2.43i 49	1 |- ( A = <. x , y >. -> ( ph <-> E. x E. y ( A = <. x , y >. /\ ph ) ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   \/ wo 708   A.wal 1351   = wceq 1353   F/wnf 1460   E.wex 1492   E!weu 2026   <.cop 3594

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-14 2151  ax-ext 2159  ax-sep 4118  ax-pow 4171  ax-pr 4206

This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-v 2739  df-un 3133  df-in 3135  df-ss 3142  df-pw 3576  df-sn 3597  df-pr 3598  df-op 3600

This theorem is referenced by:  copsex2t  4242  copsex2g  4243  opabid  4254  mosubopt  4688