Theorem sbcoreleleqVD 41200

Description: Virtual deduction proof of sbcoreleleq 40876. The following user's proof is completed by invoking mmj2's unify command and using mmj2's StepSelector to pick all remaining steps of the Metamath proof.

1::	⊢ (   𝐴 ∈ 𝐵   ▶   𝐴 ∈ 𝐵   )
2:1,?: e1a 40968	⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ↔ 𝑥 ∈ 𝐴)   )
3:1,?: e1a 40968	⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑦]𝑦 ∈ 𝑥 ↔ 𝐴 ∈ 𝑥)   )
4:1,?: e1a 40968	⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑦]𝑥 = 𝑦 ↔ 𝑥 = 𝐴)   )
5:2,3,4,?: e111 41015	⊢ (   𝐴 ∈ 𝐵   ▶   ((𝑥 ∈ 𝐴 ∨ 𝐴 ∈ 𝑥 ∨ 𝑥 = 𝐴) ↔ ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥 ∨ [𝐴 / 𝑦]𝑥 = 𝑦))   )
6:1,?: e1a 40968	⊢ (   𝐴 ∈ 𝐵    ▶   ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥 ∨ [𝐴 / 𝑦]𝑥 = 𝑦))   )
7:5,6: e11 41029	⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ (𝑥 ∈ 𝐴 ∨ 𝐴 ∈ 𝑥 ∨ 𝑥 = 𝐴))   )
qed:7:	⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ (𝑥 ∈ 𝐴 ∨ 𝐴 ∈ 𝑥 ∨ 𝑥 = 𝐴)))

(Contributed by Alan Sare, 31-Dec-2011.) (Proof modification is discouraged.) (New usage is discouraged.)

Assertion

Ref	Expression
sbcoreleleqVD	⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ (𝑥 ∈ 𝐴 ∨ 𝐴 ∈ 𝑥 ∨ 𝑥 = 𝐴)))

Distinct variable group:   𝑥,𝑦

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

Proof of Theorem sbcoreleleqVD

Step	Hyp	Ref	Expression
1		sbcor 3824	. . . . . . 7 ⊢ ([𝐴 / 𝑦]((𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥) ∨ 𝑥 = 𝑦) ↔ ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥) ∨ [𝐴 / 𝑦]𝑥 = 𝑦))
2	1	a1i 11	. . . . . 6 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑦]((𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥) ∨ 𝑥 = 𝑦) ↔ ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥) ∨ [𝐴 / 𝑦]𝑥 = 𝑦)))
3		df-3or 1084	. . . . . . . . 9 ⊢ ((𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ ((𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥) ∨ 𝑥 = 𝑦))
4	3	bicomi 226	. . . . . . . 8 ⊢ (((𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥) ∨ 𝑥 = 𝑦) ↔ (𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦))
5	4	sbcbii 3831	. . . . . . 7 ⊢ ([𝐴 / 𝑦]((𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥) ∨ 𝑥 = 𝑦) ↔ [𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦))
6	5	a1i 11	. . . . . 6 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑦]((𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥) ∨ 𝑥 = 𝑦) ↔ [𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦)))
7		sbcor 3824	. . . . . . . 8 ⊢ ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥) ↔ ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥))
8	7	a1i 11	. . . . . . 7 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥) ↔ ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥)))
9	8	orbi1d 913	. . . . . 6 ⊢ (𝐴 ∈ 𝐵 → (([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥) ∨ [𝐴 / 𝑦]𝑥 = 𝑦) ↔ (([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥) ∨ [𝐴 / 𝑦]𝑥 = 𝑦)))
10	2, 6, 9	3bitr3d 311	. . . . 5 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ (([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥) ∨ [𝐴 / 𝑦]𝑥 = 𝑦)))
11		df-3or 1084	. . . . 5 ⊢ (([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥 ∨ [𝐴 / 𝑦]𝑥 = 𝑦) ↔ (([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥) ∨ [𝐴 / 𝑦]𝑥 = 𝑦))
12	10, 11	syl6bbr 291	. . . 4 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥 ∨ [𝐴 / 𝑦]𝑥 = 𝑦)))
13	12	dfvd1ir 40914	. . 3 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥 ∨ [𝐴 / 𝑦]𝑥 = 𝑦))   )
14		sbcel2gv 3843	. . . . 5 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ↔ 𝑥 ∈ 𝐴))
15	14	dfvd1ir 40914	. . . 4 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ↔ 𝑥 ∈ 𝐴)   )
16		sbcel1v 3841	. . . 4 ⊢ ([𝐴 / 𝑦]𝑦 ∈ 𝑥 ↔ 𝐴 ∈ 𝑥)
17		eqsbc3r 3839	. . . . 5 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑦]𝑥 = 𝑦 ↔ 𝑥 = 𝐴))
18	17	dfvd1ir 40914	. . . 4 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑦]𝑥 = 𝑦 ↔ 𝑥 = 𝐴)   )
19		3orbi123 40852	. . . . 5 ⊢ ((([𝐴 / 𝑦]𝑥 ∈ 𝑦 ↔ 𝑥 ∈ 𝐴) ∧ ([𝐴 / 𝑦]𝑦 ∈ 𝑥 ↔ 𝐴 ∈ 𝑥) ∧ ([𝐴 / 𝑦]𝑥 = 𝑦 ↔ 𝑥 = 𝐴)) → (([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥 ∨ [𝐴 / 𝑦]𝑥 = 𝑦) ↔ (𝑥 ∈ 𝐴 ∨ 𝐴 ∈ 𝑥 ∨ 𝑥 = 𝐴)))
20	19	3impexpbicomi 40821	. . . 4 ⊢ (([𝐴 / 𝑦]𝑥 ∈ 𝑦 ↔ 𝑥 ∈ 𝐴) → (([𝐴 / 𝑦]𝑦 ∈ 𝑥 ↔ 𝐴 ∈ 𝑥) → (([𝐴 / 𝑦]𝑥 = 𝑦 ↔ 𝑥 = 𝐴) → ((𝑥 ∈ 𝐴 ∨ 𝐴 ∈ 𝑥 ∨ 𝑥 = 𝐴) ↔ ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥 ∨ [𝐴 / 𝑦]𝑥 = 𝑦)))))
21	15, 16, 18, 20	e101 41019	. . 3 ⊢ (   𝐴 ∈ 𝐵   ▶   ((𝑥 ∈ 𝐴 ∨ 𝐴 ∈ 𝑥 ∨ 𝑥 = 𝐴) ↔ ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥 ∨ [𝐴 / 𝑦]𝑥 = 𝑦))   )
22		biantr 804	. . 3 ⊢ ((([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥 ∨ [𝐴 / 𝑦]𝑥 = 𝑦)) ∧ ((𝑥 ∈ 𝐴 ∨ 𝐴 ∈ 𝑥 ∨ 𝑥 = 𝐴) ↔ ([𝐴 / 𝑦]𝑥 ∈ 𝑦 ∨ [𝐴 / 𝑦]𝑦 ∈ 𝑥 ∨ [𝐴 / 𝑦]𝑥 = 𝑦))) → ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ (𝑥 ∈ 𝐴 ∨ 𝐴 ∈ 𝑥 ∨ 𝑥 = 𝐴)))
23	13, 21, 22	e11an 41030	. 2 ⊢ (   𝐴 ∈ 𝐵   ▶   ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ (𝑥 ∈ 𝐴 ∨ 𝐴 ∈ 𝑥 ∨ 𝑥 = 𝐴))   )
24	23	in1 40912	1 ⊢ (𝐴 ∈ 𝐵 → ([𝐴 / 𝑦](𝑥 ∈ 𝑦 ∨ 𝑦 ∈ 𝑥 ∨ 𝑥 = 𝑦) ↔ (𝑥 ∈ 𝐴 ∨ 𝐴 ∈ 𝑥 ∨ 𝑥 = 𝐴)))

Syntax hints:   → wi 4   ↔ wb 208   ∨ wo 843   ∨ w3o 1082   = wceq 1537   ∈ wcel 2114  [wsbc 3774

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-12 2177  ax-ext 2795

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-clab 2802  df-cleq 2816  df-clel 2895  df-v 3498  df-sbc 3775  df-vd1 40911

This theorem is referenced by: (None)