Theorem eqrel 5209

Description: Extensionality principle for relations. Theorem 3.2(ii) of [Monk1] p. 33. (Contributed by NM, 2-Aug-1994.)

Assertion

Ref	Expression
eqrel	|- ( ( Rel A /\ Rel B ) -> ( A = B <-> A. x A. y ( <. x , y >. e. A <-> <. x , y >. e. B ) ) )

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

Proof of Theorem eqrel

Step	Hyp	Ref	Expression
1		ssrel 5207	. . 3 |- ( Rel A -> ( A C_ B <-> A. x A. y ( <. x , y >. e. A -> <. x , y >. e. B ) ) )
2		ssrel 5207	. . 3 |- ( Rel B -> ( B C_ A <-> A. x A. y ( <. x , y >. e. B -> <. x , y >. e. A ) ) )
3	1, 2	bi2anan9 917	. 2 |- ( ( Rel A /\ Rel B ) -> ( ( A C_ B /\ B C_ A ) <-> ( A. x A. y ( <. x , y >. e. A -> <. x , y >. e. B ) /\ A. x A. y ( <. x , y >. e. B -> <. x , y >. e. A ) ) ) )
4		eqss 3618	. 2 |- ( A = B <-> ( A C_ B /\ B C_ A ) )
5		2albiim 1817	. 2 |- ( A. x A. y ( <. x , y >. e. A <-> <. x , y >. e. B ) <-> ( A. x A. y ( <. x , y >. e. A -> <. x , y >. e. B ) /\ A. x A. y ( <. x , y >. e. B -> <. x , y >. e. A ) ) )
6	3, 4, 5	3bitr4g 303	1 |- ( ( Rel A /\ Rel B ) -> ( A = B <-> A. x A. y ( <. x , y >. e. A <-> <. x , y >. e. B ) ) )

Syntax hints:   -> wi 4   <-> wb 196   /\ wa 384   A.wal 1481   = wceq 1483   e. wcel 1990   C_ wss 3574   <.cop 4183   Rel wrel 5119

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-clab 2609  df-cleq 2615  df-clel 2618  df-in 3581  df-ss 3588  df-opab 4713  df-xp 5120  df-rel 5121

This theorem is referenced by:  eqrelriv  5213  eqrelrdv  5216  eqbrrdv  5217  eqrelrdv2  5219  opabid2  5251  reldm0  5343  iss  5447  asymref  5512  funssres  5930  fsn  6402  eqrelf  34020  iss2  34112