ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  opeq1 Unicode version

Theorem opeq1 3779
Description: Equality theorem for ordered pairs. (Contributed by NM, 25-Jun-1998.) (Revised by Mario Carneiro, 26-Apr-2015.)
Assertion
Ref Expression
opeq1  |-  ( A  =  B  ->  <. A ,  C >.  =  <. B ,  C >. )

Proof of Theorem opeq1
Dummy variable  x is distinct from all other variables.
StepHypRef Expression
1 eleq1 2240 . . . . . 6  |-  ( A  =  B  ->  ( A  e.  _V  <->  B  e.  _V ) )
21anbi1d 465 . . . . 5  |-  ( A  =  B  ->  (
( A  e.  _V  /\  C  e.  _V )  <->  ( B  e.  _V  /\  C  e.  _V )
) )
3 sneq 3604 . . . . . . 7  |-  ( A  =  B  ->  { A }  =  { B } )
4 preq1 3670 . . . . . . 7  |-  ( A  =  B  ->  { A ,  C }  =  { B ,  C }
)
53, 4preq12d 3678 . . . . . 6  |-  ( A  =  B  ->  { { A } ,  { A ,  C } }  =  { { B } ,  { B ,  C } } )
65eleq2d 2247 . . . . 5  |-  ( A  =  B  ->  (
x  e.  { { A } ,  { A ,  C } }  <->  x  e.  { { B } ,  { B ,  C } } ) )
72, 6anbi12d 473 . . . 4  |-  ( A  =  B  ->  (
( ( A  e. 
_V  /\  C  e.  _V )  /\  x  e.  { { A } ,  { A ,  C } } )  <->  ( ( B  e.  _V  /\  C  e.  _V )  /\  x  e.  { { B } ,  { B ,  C } } ) ) )
8 df-3an 980 . . . 4  |-  ( ( A  e.  _V  /\  C  e.  _V  /\  x  e.  { { A } ,  { A ,  C } } )  <->  ( ( A  e.  _V  /\  C  e.  _V )  /\  x  e.  { { A } ,  { A ,  C } } ) )
9 df-3an 980 . . . 4  |-  ( ( B  e.  _V  /\  C  e.  _V  /\  x  e.  { { B } ,  { B ,  C } } )  <->  ( ( B  e.  _V  /\  C  e.  _V )  /\  x  e.  { { B } ,  { B ,  C } } ) )
107, 8, 93bitr4g 223 . . 3  |-  ( A  =  B  ->  (
( A  e.  _V  /\  C  e.  _V  /\  x  e.  { { A } ,  { A ,  C } } )  <-> 
( B  e.  _V  /\  C  e.  _V  /\  x  e.  { { B } ,  { B ,  C } } ) ) )
1110abbidv 2295 . 2  |-  ( A  =  B  ->  { x  |  ( A  e. 
_V  /\  C  e.  _V  /\  x  e.  { { A } ,  { A ,  C } } ) }  =  { x  |  ( B  e.  _V  /\  C  e.  _V  /\  x  e. 
{ { B } ,  { B ,  C } } ) } )
12 df-op 3602 . 2  |-  <. A ,  C >.  =  { x  |  ( A  e. 
_V  /\  C  e.  _V  /\  x  e.  { { A } ,  { A ,  C } } ) }
13 df-op 3602 . 2  |-  <. B ,  C >.  =  { x  |  ( B  e. 
_V  /\  C  e.  _V  /\  x  e.  { { B } ,  { B ,  C } } ) }
1411, 12, 133eqtr4g 2235 1  |-  ( A  =  B  ->  <. A ,  C >.  =  <. B ,  C >. )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 104    /\ w3a 978    = wceq 1353    e. wcel 2148   {cab 2163   _Vcvv 2738   {csn 3593   {cpr 3594   <.cop 3596
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-ext 2159
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1461  df-sb 1763  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-v 2740  df-un 3134  df-sn 3599  df-pr 3600  df-op 3602
This theorem is referenced by:  opeq12  3781  opeq1i  3782  opeq1d  3785  oteq1  3788  breq1  4007  cbvopab1  4077  cbvopab1s  4079  opthg  4239  eqvinop  4244  opelopabsb  4261  opelxp  4657  elvvv  4690  opabid2  4759  opeliunxp2  4768  elsnres  4945  elimasng  4997  rnxpid  5064  dmsnopg  5101  cnvsng  5115  elxp4  5117  elxp5  5118  funopg  5251  f1osng  5503  dmfco  5585  fvelrn  5648  fsng  5690  fvsng  5713  funfvima3  5751  oveq1  5882  oprabid  5907  dfoprab2  5922  cbvoprab1  5947  opabex3d  6122  opabex3  6123  op1stg  6151  op2ndg  6152  oprssdmm  6172  dfoprab4f  6194  cnvoprab  6235  opeliunxp2f  6239  tfr1onlemaccex  6349  tfrcllemaccex  6362  elixpsn  6735  fundmen  6806  xpsnen  6821  xpassen  6830  xpf1o  6844  ltexnqq  7407  archnqq  7416  prarloclemarch2  7418  prarloclemlo  7493  prarloclem3  7496  prarloclem5  7499  caucvgprlemnkj  7665  caucvgprlemnbj  7666  caucvgprlemm  7667  caucvgprlemdisj  7673  caucvgprlemloc  7674  caucvgprlemcl  7675  caucvgprlemladdfu  7676  caucvgprlemladdrl  7677  caucvgprlem1  7678  caucvgprlem2  7679  caucvgpr  7681  caucvgprprlemell  7684  caucvgprprlemelu  7685  caucvgprprlemcbv  7686  caucvgprprlemval  7687  caucvgprprlemnkeqj  7689  caucvgprprlemmu  7694  caucvgprprlemopl  7696  caucvgprprlemlol  7697  caucvgprprlemopu  7698  caucvgprprlemloc  7702  caucvgprprlemclphr  7704  caucvgprprlemexbt  7705  caucvgprprlem1  7708  caucvgprprlem2  7709  caucvgsr  7801  suplocsrlemb  7805  suplocsrlempr  7806  suplocsrlem  7807  suplocsr  7808  elrealeu  7828  pitonn  7847  nntopi  7893  axcaucvglemval  7896  axcaucvg  7899  axpre-suploclemres  7900  fsum2dlemstep  11442  fprod2dlemstep  11630  imasaddfnlemg  12735  cnmpt21  13794
  Copyright terms: Public domain W3C validator