Theorem eupth2lem2 30507

Description: Lemma for eupth2 30527. (Contributed by Mario Carneiro, 8-Apr-2015.)

Hypothesis

Ref	Expression
eupth2lem2.1	⊢ 𝐵 ∈ V

Assertion

Ref	Expression
eupth2lem2	⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (¬ 𝑈 ∈ if(𝐴 = 𝐵, ∅, {𝐴, 𝐵}) ↔ 𝑈 ∈ if(𝐴 = 𝐶, ∅, {𝐴, 𝐶})))

Proof of Theorem eupth2lem2

Step	Hyp	Ref	Expression
1		eqidd 2770	. . . . . . 7 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → 𝐵 = 𝐵)
2	1	olcd 887	. . . . . 6 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐵 = 𝐴 ∨ 𝐵 = 𝐵))
3	2	biantrud 540	. . . . 5 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐴 ≠ 𝐵 ↔ (𝐴 ≠ 𝐵 ∧ (𝐵 = 𝐴 ∨ 𝐵 = 𝐵))))
4		eupth2lem2.1	. . . . . 6 ⊢ 𝐵 ∈ V
5		eupth2lem1 30506	. . . . . 6 ⊢ (𝐵 ∈ V → (𝐵 ∈ if(𝐴 = 𝐵, ∅, {𝐴, 𝐵}) ↔ (𝐴 ≠ 𝐵 ∧ (𝐵 = 𝐴 ∨ 𝐵 = 𝐵))))
6	4, 5	ax-mp 5	. . . . 5 ⊢ (𝐵 ∈ if(𝐴 = 𝐵, ∅, {𝐴, 𝐵}) ↔ (𝐴 ≠ 𝐵 ∧ (𝐵 = 𝐴 ∨ 𝐵 = 𝐵)))
7	3, 6	bitr4di 292	. . . 4 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐴 ≠ 𝐵 ↔ 𝐵 ∈ if(𝐴 = 𝐵, ∅, {𝐴, 𝐵})))
8		simpr 489	. . . . 5 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → 𝐵 = 𝑈)
9	8	eleq1d 2854	. . . 4 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐵 ∈ if(𝐴 = 𝐵, ∅, {𝐴, 𝐵}) ↔ 𝑈 ∈ if(𝐴 = 𝐵, ∅, {𝐴, 𝐵})))
10	7, 9	bitrd 282	. . 3 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐴 ≠ 𝐵 ↔ 𝑈 ∈ if(𝐴 = 𝐵, ∅, {𝐴, 𝐵})))
11	10	necon1bbid 3003	. 2 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (¬ 𝑈 ∈ if(𝐴 = 𝐵, ∅, {𝐴, 𝐵}) ↔ 𝐴 = 𝐵))
12		simpl 487	. . . . . . 7 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → 𝐵 ≠ 𝐶)
13		neeq1 3026	. . . . . . 7 ⊢ (𝐵 = 𝐴 → (𝐵 ≠ 𝐶 ↔ 𝐴 ≠ 𝐶))
14	12, 13	syl5ibcom 248	. . . . . 6 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐵 = 𝐴 → 𝐴 ≠ 𝐶))
15	14	pm4.71rd 571	. . . . 5 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐵 = 𝐴 ↔ (𝐴 ≠ 𝐶 ∧ 𝐵 = 𝐴)))
16		eqcom 2776	. . . . 5 ⊢ (𝐴 = 𝐵 ↔ 𝐵 = 𝐴)
17		ancom 465	. . . . 5 ⊢ ((𝐵 = 𝐴 ∧ 𝐴 ≠ 𝐶) ↔ (𝐴 ≠ 𝐶 ∧ 𝐵 = 𝐴))
18	15, 16, 17	3bitr4g 317	. . . 4 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐴 = 𝐵 ↔ (𝐵 = 𝐴 ∧ 𝐴 ≠ 𝐶)))
19	12	neneqd 2969	. . . . . . 7 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → ¬ 𝐵 = 𝐶)
20		biorf 949	. . . . . . 7 ⊢ (¬ 𝐵 = 𝐶 → (𝐵 = 𝐴 ↔ (𝐵 = 𝐶 ∨ 𝐵 = 𝐴)))
21	19, 20	syl 18	. . . . . 6 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐵 = 𝐴 ↔ (𝐵 = 𝐶 ∨ 𝐵 = 𝐴)))
22		orcom 883	. . . . . 6 ⊢ ((𝐵 = 𝐶 ∨ 𝐵 = 𝐴) ↔ (𝐵 = 𝐴 ∨ 𝐵 = 𝐶))
23	21, 22	bitrdi 290	. . . . 5 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐵 = 𝐴 ↔ (𝐵 = 𝐴 ∨ 𝐵 = 𝐶)))
24	23	anbi1d 642	. . . 4 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → ((𝐵 = 𝐴 ∧ 𝐴 ≠ 𝐶) ↔ ((𝐵 = 𝐴 ∨ 𝐵 = 𝐶) ∧ 𝐴 ≠ 𝐶)))
25	18, 24	bitrd 282	. . 3 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐴 = 𝐵 ↔ ((𝐵 = 𝐴 ∨ 𝐵 = 𝐶) ∧ 𝐴 ≠ 𝐶)))
26		ancom 465	. . 3 ⊢ ((𝐴 ≠ 𝐶 ∧ (𝐵 = 𝐴 ∨ 𝐵 = 𝐶)) ↔ ((𝐵 = 𝐴 ∨ 𝐵 = 𝐶) ∧ 𝐴 ≠ 𝐶))
27	25, 26	bitr4di 292	. 2 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐴 = 𝐵 ↔ (𝐴 ≠ 𝐶 ∧ (𝐵 = 𝐴 ∨ 𝐵 = 𝐶))))
28		eupth2lem1 30506	. . . 4 ⊢ (𝐵 ∈ V → (𝐵 ∈ if(𝐴 = 𝐶, ∅, {𝐴, 𝐶}) ↔ (𝐴 ≠ 𝐶 ∧ (𝐵 = 𝐴 ∨ 𝐵 = 𝐶))))
29	4, 28	ax-mp 5	. . 3 ⊢ (𝐵 ∈ if(𝐴 = 𝐶, ∅, {𝐴, 𝐶}) ↔ (𝐴 ≠ 𝐶 ∧ (𝐵 = 𝐴 ∨ 𝐵 = 𝐶)))
30	8	eleq1d 2854	. . 3 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (𝐵 ∈ if(𝐴 = 𝐶, ∅, {𝐴, 𝐶}) ↔ 𝑈 ∈ if(𝐴 = 𝐶, ∅, {𝐴, 𝐶})))
31	29, 30	bitr3id 288	. 2 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → ((𝐴 ≠ 𝐶 ∧ (𝐵 = 𝐴 ∨ 𝐵 = 𝐶)) ↔ 𝑈 ∈ if(𝐴 = 𝐶, ∅, {𝐴, 𝐶})))
32	11, 27, 31	3bitrd 308	1 ⊢ ((𝐵 ≠ 𝐶 ∧ 𝐵 = 𝑈) → (¬ 𝑈 ∈ if(𝐴 = 𝐵, ∅, {𝐴, 𝐵}) ↔ 𝑈 ∈ if(𝐴 = 𝐶, ∅, {𝐴, 𝐶})))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   ∨ wo 860   = wceq 1567   ∈ wcel 2149   ≠ wne 2964  Vcvv 3463  ∅c0 4294  ifcif 4489  {cpr 4593

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-ext 2741

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-tru 1570  df-fal 1580  df-ex 1807  df-sb 2098  df-clab 2748  df-cleq 2761  df-clel 2844  df-ne 2965  df-v 3465  df-dif 3916  df-un 3918  df-nul 4295  df-if 4490  df-sn 4592  df-pr 4594

This theorem is referenced by:  eupth2lem3lem4  30519