Theorem eqsbc3rVD 42133

Description: Virtual deduction proof of eqsbc3r 3764. (Contributed by Alan Sare, 24-Oct-2011.) (Proof modification is discouraged.) (New usage is discouraged.)

Assertion

Ref	Expression
eqsbc3rVD	⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ 𝐶 = 𝐴))

Distinct variable group:   𝑥,𝐶

Allowed substitution hints:   𝐴(𝑥)   𝐵(𝑥)

Proof of Theorem eqsbc3rVD

Step	Hyp	Ref	Expression
1		idn1 41867	. . . . . . 7 ⊢ (   𝐴 ∈ 𝐵   ▶   𝐴 ∈ 𝐵   )
2		eqsbc3 3743	. . . . . . 7 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑥]𝑥 = 𝐶 ↔ 𝐴 = 𝐶))
3	1, 2	e1a 41920	. . . . . 6 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑥]𝑥 = 𝐶 ↔ 𝐴 = 𝐶)   )
4		eqcom 2744	. . . . . . . . . 10 ⊢ (𝐶 = 𝑥 ↔ 𝑥 = 𝐶)
5	4	sbcbii 3755	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ [𝐴 / 𝑥]𝑥 = 𝐶)
6	5	a1i 11	. . . . . . . 8 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ [𝐴 / 𝑥]𝑥 = 𝐶))
7	1, 6	e1a 41920	. . . . . . 7 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ [𝐴 / 𝑥]𝑥 = 𝐶)   )
8		idn2 41906	. . . . . . 7 ⊢ (   𝐴 ∈ 𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   [𝐴 / 𝑥]𝐶 = 𝑥   )
9		biimp 218	. . . . . . 7 ⊢ (([𝐴 / 𝑥]𝐶 = 𝑥 ↔ [𝐴 / 𝑥]𝑥 = 𝐶) → ([𝐴 / 𝑥]𝐶 = 𝑥 → [𝐴 / 𝑥]𝑥 = 𝐶))
10	7, 8, 9	e12 42017	. . . . . 6 ⊢ (   𝐴 ∈ 𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   [𝐴 / 𝑥]𝑥 = 𝐶   )
11		biimp 218	. . . . . 6 ⊢ (([𝐴 / 𝑥]𝑥 = 𝐶 ↔ 𝐴 = 𝐶) → ([𝐴 / 𝑥]𝑥 = 𝐶 → 𝐴 = 𝐶))
12	3, 10, 11	e12 42017	. . . . 5 ⊢ (   𝐴 ∈ 𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   𝐴 = 𝐶   )
13		eqcom 2744	. . . . 5 ⊢ (𝐴 = 𝐶 ↔ 𝐶 = 𝐴)
14	12, 13	e2bi 41925	. . . 4 ⊢ (   𝐴 ∈ 𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   𝐶 = 𝐴   )
15	14	in2 41898	. . 3 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑥]𝐶 = 𝑥 → 𝐶 = 𝐴)   )
16		idn2 41906	. . . . . . 7 ⊢ (   𝐴 ∈ 𝐵   ,   𝐶 = 𝐴   ▶   𝐶 = 𝐴   )
17	16, 13	e2bir 41926	. . . . . 6 ⊢ (   𝐴 ∈ 𝐵   ,   𝐶 = 𝐴   ▶   𝐴 = 𝐶   )
18		biimpr 223	. . . . . 6 ⊢ (([𝐴 / 𝑥]𝑥 = 𝐶 ↔ 𝐴 = 𝐶) → (𝐴 = 𝐶 → [𝐴 / 𝑥]𝑥 = 𝐶))
19	3, 17, 18	e12 42017	. . . . 5 ⊢ (   𝐴 ∈ 𝐵   ,   𝐶 = 𝐴   ▶   [𝐴 / 𝑥]𝑥 = 𝐶   )
20		biimpr 223	. . . . 5 ⊢ (([𝐴 / 𝑥]𝐶 = 𝑥 ↔ [𝐴 / 𝑥]𝑥 = 𝐶) → ([𝐴 / 𝑥]𝑥 = 𝐶 → [𝐴 / 𝑥]𝐶 = 𝑥))
21	7, 19, 20	e12 42017	. . . 4 ⊢ (   𝐴 ∈ 𝐵   ,   𝐶 = 𝐴   ▶   [𝐴 / 𝑥]𝐶 = 𝑥   )
22	21	in2 41898	. . 3 ⊢ (   𝐴 ∈ 𝐵   ▶   (𝐶 = 𝐴 → [𝐴 / 𝑥]𝐶 = 𝑥)   )
23		impbi 211	. . 3 ⊢ (([𝐴 / 𝑥]𝐶 = 𝑥 → 𝐶 = 𝐴) → ((𝐶 = 𝐴 → [𝐴 / 𝑥]𝐶 = 𝑥) → ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ 𝐶 = 𝐴)))
24	15, 22, 23	e11 41981	. 2 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ 𝐶 = 𝐴)   )
25	24	in1 41864	1 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ 𝐶 = 𝐴))

Syntax hints:   → wi 4   ↔ wb 209   = wceq 1543   ∈ wcel 2110  [wsbc 3694

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-ext 2708

This theorem depends on definitions:  df-bi 210  df-an 400  df-tru 1546  df-ex 1788  df-sb 2071  df-clab 2715  df-cleq 2729  df-clel 2816  df-sbc 3695  df-vd1 41863  df-vd2 41871

This theorem is referenced by: (None)