Theorem eqsbc2VD 43903

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

Assertion

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

Distinct variable group:   𝑥,𝐶

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

Proof of Theorem eqsbc2VD

Step	Hyp	Ref	Expression
1		idn1 43637	. . . . . . 7 ⊢ (   𝐴 ∈ 𝐵   ▶   𝐴 ∈ 𝐵   )
2		eqsbc1 3825	. . . . . . 7 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑥]𝑥 = 𝐶 ↔ 𝐴 = 𝐶))
3	1, 2	e1a 43690	. . . . . 6 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑥]𝑥 = 𝐶 ↔ 𝐴 = 𝐶)   )
4		eqcom 2737	. . . . . . . . . 10 ⊢ (𝐶 = 𝑥 ↔ 𝑥 = 𝐶)
5	4	sbcbii 3836	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ [𝐴 / 𝑥]𝑥 = 𝐶)
6	5	a1i 11	. . . . . . . 8 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ [𝐴 / 𝑥]𝑥 = 𝐶))
7	1, 6	e1a 43690	. . . . . . 7 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ [𝐴 / 𝑥]𝑥 = 𝐶)   )
8		idn2 43676	. . . . . . 7 ⊢ (   𝐴 ∈ 𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   [𝐴 / 𝑥]𝐶 = 𝑥   )
9		biimp 214	. . . . . . 7 ⊢ (([𝐴 / 𝑥]𝐶 = 𝑥 ↔ [𝐴 / 𝑥]𝑥 = 𝐶) → ([𝐴 / 𝑥]𝐶 = 𝑥 → [𝐴 / 𝑥]𝑥 = 𝐶))
10	7, 8, 9	e12 43787	. . . . . 6 ⊢ (   𝐴 ∈ 𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   [𝐴 / 𝑥]𝑥 = 𝐶   )
11		biimp 214	. . . . . 6 ⊢ (([𝐴 / 𝑥]𝑥 = 𝐶 ↔ 𝐴 = 𝐶) → ([𝐴 / 𝑥]𝑥 = 𝐶 → 𝐴 = 𝐶))
12	3, 10, 11	e12 43787	. . . . 5 ⊢ (   𝐴 ∈ 𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   𝐴 = 𝐶   )
13		eqcom 2737	. . . . 5 ⊢ (𝐴 = 𝐶 ↔ 𝐶 = 𝐴)
14	12, 13	e2bi 43695	. . . 4 ⊢ (   𝐴 ∈ 𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   𝐶 = 𝐴   )
15	14	in2 43668	. . 3 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑥]𝐶 = 𝑥 → 𝐶 = 𝐴)   )
16		idn2 43676	. . . . . . 7 ⊢ (   𝐴 ∈ 𝐵   ,   𝐶 = 𝐴   ▶   𝐶 = 𝐴   )
17	16, 13	e2bir 43696	. . . . . 6 ⊢ (   𝐴 ∈ 𝐵   ,   𝐶 = 𝐴   ▶   𝐴 = 𝐶   )
18		biimpr 219	. . . . . 6 ⊢ (([𝐴 / 𝑥]𝑥 = 𝐶 ↔ 𝐴 = 𝐶) → (𝐴 = 𝐶 → [𝐴 / 𝑥]𝑥 = 𝐶))
19	3, 17, 18	e12 43787	. . . . 5 ⊢ (   𝐴 ∈ 𝐵   ,   𝐶 = 𝐴   ▶   [𝐴 / 𝑥]𝑥 = 𝐶   )
20		biimpr 219	. . . . 5 ⊢ (([𝐴 / 𝑥]𝐶 = 𝑥 ↔ [𝐴 / 𝑥]𝑥 = 𝐶) → ([𝐴 / 𝑥]𝑥 = 𝐶 → [𝐴 / 𝑥]𝐶 = 𝑥))
21	7, 19, 20	e12 43787	. . . 4 ⊢ (   𝐴 ∈ 𝐵   ,   𝐶 = 𝐴   ▶   [𝐴 / 𝑥]𝐶 = 𝑥   )
22	21	in2 43668	. . 3 ⊢ (   𝐴 ∈ 𝐵   ▶   (𝐶 = 𝐴 → [𝐴 / 𝑥]𝐶 = 𝑥)   )
23		impbi 207	. . 3 ⊢ (([𝐴 / 𝑥]𝐶 = 𝑥 → 𝐶 = 𝐴) → ((𝐶 = 𝐴 → [𝐴 / 𝑥]𝐶 = 𝑥) → ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ 𝐶 = 𝐴)))
24	15, 22, 23	e11 43751	. 2 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ 𝐶 = 𝐴)   )
25	24	in1 43634	1 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑥]𝐶 = 𝑥 ↔ 𝐶 = 𝐴))

Syntax hints:   → wi 4   ↔ wb 205   = wceq 1539   ∈ wcel 2104  [wsbc 3776

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-ext 2701

This theorem depends on definitions:  df-bi 206  df-an 395  df-tru 1542  df-ex 1780  df-sb 2066  df-clab 2708  df-cleq 2722  df-clel 2808  df-sbc 3777  df-vd1 43633  df-vd2 43641

This theorem is referenced by: (None)