Theorem opth1 4280

Description: Equality of the first members of equal ordered pairs. (Contributed by NM, 28-May-2008.) (Revised by Mario Carneiro, 26-Apr-2015.)

Hypotheses

Ref	Expression
opth1.1	|- A e. _V
opth1.2	|- B e. _V

Assertion

Ref	Expression
opth1	|- ( <. A , B >. = <. C , D >. -> A = C )

Proof of Theorem opth1

Step	Hyp	Ref	Expression
1		opth1.1	. . . 4 |- A e. _V
2	1	sneqr 3801	. . 3 |- ( { A } = { C } -> A = C )
3	2	a1i 9	. 2 |- ( <. A , B >. = <. C , D >. -> ( { A } = { C } -> A = C ) )
4		opth1.2	. . . . . . . . 9 |- B e. _V
5	1, 4	opi1 4276	. . . . . . . 8 |- { A } e. <. A , B >.
6		id 19	. . . . . . . 8 |- ( <. A , B >. = <. C , D >. -> <. A , B >. = <. C , D >. )
7	5, 6	eleqtrid 2294	. . . . . . 7 |- ( <. A , B >. = <. C , D >. -> { A } e. <. C , D >. )
8		oprcl 3843	. . . . . . 7 |- ( { A } e. <. C , D >. -> ( C e. _V /\ D e. _V ) )
9	7, 8	syl 14	. . . . . 6 |- ( <. A , B >. = <. C , D >. -> ( C e. _V /\ D e. _V ) )
10	9	simpld 112	. . . . 5 |- ( <. A , B >. = <. C , D >. -> C e. _V )
11		prid1g 3737	. . . . 5 |- ( C e. _V -> C e. { C , D } )
12	10, 11	syl 14	. . . 4 |- ( <. A , B >. = <. C , D >. -> C e. { C , D } )
13		eleq2 2269	. . . 4 |- ( { A } = { C , D } -> ( C e. { A } <-> C e. { C , D } ) )
14	12, 13	syl5ibrcom 157	. . 3 |- ( <. A , B >. = <. C , D >. -> ( { A } = { C , D } -> C e. { A } ) )
15		elsni 3651	. . . 4 |- ( C e. { A } -> C = A )
16	15	eqcomd 2211	. . 3 |- ( C e. { A } -> A = C )
17	14, 16	syl6 33	. 2 |- ( <. A , B >. = <. C , D >. -> ( { A } = { C , D } -> A = C ) )
18		dfopg 3817	. . . . 5 |- ( ( C e. _V /\ D e. _V ) -> <. C , D >. = { { C } , { C , D } } )
19	7, 8, 18	3syl 17	. . . 4 |- ( <. A , B >. = <. C , D >. -> <. C , D >. = { { C } , { C , D } } )
20	7, 19	eleqtrd 2284	. . 3 |- ( <. A , B >. = <. C , D >. -> { A } e. { { C } , { C , D } } )
21		elpri 3656	. . 3 |- ( { A } e. { { C } , { C , D } } -> ( { A } = { C } \/ { A } = { C , D } ) )
22	20, 21	syl 14	. 2 |- ( <. A , B >. = <. C , D >. -> ( { A } = { C } \/ { A } = { C , D } ) )
23	3, 17, 22	mpjaod 720	1 |- ( <. A , B >. = <. C , D >. -> A = C )

Syntax hints:   -> wi 4   /\ wa 104   \/ wo 710   = wceq 1373   e. wcel 2176   _Vcvv 2772   {csn 3633   {cpr 3634   <.cop 3636

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 711  ax-5 1470  ax-7 1471  ax-gen 1472  ax-ie1 1516  ax-ie2 1517  ax-8 1527  ax-10 1528  ax-11 1529  ax-i12 1530  ax-bndl 1532  ax-4 1533  ax-17 1549  ax-i9 1553  ax-ial 1557  ax-i5r 1558  ax-14 2179  ax-ext 2187  ax-sep 4162  ax-pow 4218

This theorem depends on definitions:  df-bi 117  df-3an 983  df-tru 1376  df-nf 1484  df-sb 1786  df-clab 2192  df-cleq 2198  df-clel 2201  df-nfc 2337  df-v 2774  df-un 3170  df-in 3172  df-ss 3179  df-pw 3618  df-sn 3639  df-pr 3640  df-op 3642

This theorem is referenced by:  opth  4281  dmsnopg  5154  funcnvsn  5319  oprabid  5976  fnpr2ob  13172  pwle2  15939