Theorem eqbrrdv 5801

Description: Deduction from extensionality principle for relations. (Contributed by Mario Carneiro, 3-Jan-2017.)

Hypotheses

Ref	Expression
eqbrrdv.1	⊢ (𝜑 → Rel 𝐴)
eqbrrdv.2	⊢ (𝜑 → Rel 𝐵)
eqbrrdv.3	⊢ (𝜑 → (𝑥𝐴𝑦 ↔ 𝑥𝐵𝑦))

Assertion

Ref	Expression
eqbrrdv	⊢ (𝜑 → 𝐴 = 𝐵)

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐵,𝑦   𝜑,𝑥,𝑦

Proof of Theorem eqbrrdv

Step	Hyp	Ref	Expression
1		eqbrrdv.3	. . . 4 ⊢ (𝜑 → (𝑥𝐴𝑦 ↔ 𝑥𝐵𝑦))
2		df-br 5155	. . . 4 ⊢ (𝑥𝐴𝑦 ↔ ⟨𝑥, 𝑦⟩ ∈ 𝐴)
3		df-br 5155	. . . 4 ⊢ (𝑥𝐵𝑦 ↔ ⟨𝑥, 𝑦⟩ ∈ 𝐵)
4	1, 2, 3	3bitr3g 312	. . 3 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ ∈ 𝐴 ↔ ⟨𝑥, 𝑦⟩ ∈ 𝐵))
5	4	alrimivv 1924	. 2 ⊢ (𝜑 → ∀𝑥∀𝑦(⟨𝑥, 𝑦⟩ ∈ 𝐴 ↔ ⟨𝑥, 𝑦⟩ ∈ 𝐵))
6		eqbrrdv.1	. . 3 ⊢ (𝜑 → Rel 𝐴)
7		eqbrrdv.2	. . 3 ⊢ (𝜑 → Rel 𝐵)
8		eqrel 5792	. . 3 ⊢ ((Rel 𝐴 ∧ Rel 𝐵) → (𝐴 = 𝐵 ↔ ∀𝑥∀𝑦(⟨𝑥, 𝑦⟩ ∈ 𝐴 ↔ ⟨𝑥, 𝑦⟩ ∈ 𝐵)))
9	6, 7, 8	syl2anc 582	. 2 ⊢ (𝜑 → (𝐴 = 𝐵 ↔ ∀𝑥∀𝑦(⟨𝑥, 𝑦⟩ ∈ 𝐴 ↔ ⟨𝑥, 𝑦⟩ ∈ 𝐵)))
10	5, 9	mpbird 256	1 ⊢ (𝜑 → 𝐴 = 𝐵)

Syntax hints:   → wi 4   ↔ wb 205  ∀wal 1532   = wceq 1534   ∈ wcel 2100  ⟨cop 4640   class class class wbr 5154  Rel wrel 5689

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2102  ax-9 2110  ax-ext 2700

This theorem depends on definitions:  df-bi 206  df-an 395  df-tru 1537  df-ex 1775  df-sb 2062  df-clab 2707  df-cleq 2721  df-clel 2806  df-v 3474  df-ss 3975  df-br 5155  df-opab 5217  df-xp 5690  df-rel 5691

This theorem is referenced by:  eqbrrdva  5878  oppcsect2  17809  qusxpid  33302  erimeq2  38462