Theorem eujustALT 2602

Description: Alternate proof of eujust 2601 illustrating the use of dvelim 2485. (Contributed by NM, 11-Mar-2010.) (Proof modification is discouraged.) (New usage is discouraged.)

Assertion

Ref	Expression
eujustALT	⊢ (∃𝑦∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ∃𝑧∀𝑥(𝜑 ↔ 𝑥 = 𝑧))

Distinct variable groups:   𝑥,𝑦   𝑥,𝑧   𝜑,𝑦   𝜑,𝑧

Allowed substitution hint:   𝜑(𝑥)

Proof of Theorem eujustALT

Dummy variable 𝑤 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		equequ2 2059	. . . . . 6 ⊢ (𝑦 = 𝑧 → (𝑥 = 𝑦 ↔ 𝑥 = 𝑧))
2	1	bibi2d 345	. . . . 5 ⊢ (𝑦 = 𝑧 → ((𝜑 ↔ 𝑥 = 𝑦) ↔ (𝜑 ↔ 𝑥 = 𝑧)))
3	2	albidv 1953	. . . 4 ⊢ (𝑦 = 𝑧 → (∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧)))
4	3	sps 2224	. . 3 ⊢ (∀𝑦 𝑦 = 𝑧 → (∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧)))
5	4	drex1 2475	. 2 ⊢ (∀𝑦 𝑦 = 𝑧 → (∃𝑦∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ∃𝑧∀𝑥(𝜑 ↔ 𝑥 = 𝑧)))
6		hbnae 2466	. . . . . 6 ⊢ (¬ ∀𝑦 𝑦 = 𝑧 → ∀𝑦 ¬ ∀𝑦 𝑦 = 𝑧)
7		hbnae 2466	. . . . . 6 ⊢ (¬ ∀𝑦 𝑦 = 𝑧 → ∀𝑧 ¬ ∀𝑦 𝑦 = 𝑧)
8	6, 7	alrimih 1857	. . . . 5 ⊢ (¬ ∀𝑦 𝑦 = 𝑧 → ∀𝑦∀𝑧 ¬ ∀𝑦 𝑦 = 𝑧)
9		ax-5 1943	. . . . . . . 8 ⊢ (¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑤) → ∀𝑧 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑤))
10		equequ2 2059	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑦 → (𝑥 = 𝑤 ↔ 𝑥 = 𝑦))
11	10	bibi2d 345	. . . . . . . . . 10 ⊢ (𝑤 = 𝑦 → ((𝜑 ↔ 𝑥 = 𝑤) ↔ (𝜑 ↔ 𝑥 = 𝑦)))
12	11	albidv 1953	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → (∀𝑥(𝜑 ↔ 𝑥 = 𝑤) ↔ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦)))
13	12	notbid 321	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → (¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑤) ↔ ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦)))
14	9, 13	dvelim 2485	. . . . . . 7 ⊢ (¬ ∀𝑧 𝑧 = 𝑦 → (¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦) → ∀𝑧 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦)))
15	14	naecoms 2463	. . . . . 6 ⊢ (¬ ∀𝑦 𝑦 = 𝑧 → (¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦) → ∀𝑧 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦)))
16		ax-5 1943	. . . . . . 7 ⊢ (¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑤) → ∀𝑦 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑤))
17		equequ2 2059	. . . . . . . . . 10 ⊢ (𝑤 = 𝑧 → (𝑥 = 𝑤 ↔ 𝑥 = 𝑧))
18	17	bibi2d 345	. . . . . . . . 9 ⊢ (𝑤 = 𝑧 → ((𝜑 ↔ 𝑥 = 𝑤) ↔ (𝜑 ↔ 𝑥 = 𝑧)))
19	18	albidv 1953	. . . . . . . 8 ⊢ (𝑤 = 𝑧 → (∀𝑥(𝜑 ↔ 𝑥 = 𝑤) ↔ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧)))
20	19	notbid 321	. . . . . . 7 ⊢ (𝑤 = 𝑧 → (¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑤) ↔ ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧)))
21	16, 20	dvelim 2485	. . . . . 6 ⊢ (¬ ∀𝑦 𝑦 = 𝑧 → (¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧) → ∀𝑦 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧)))
22	3	notbid 321	. . . . . . 7 ⊢ (𝑦 = 𝑧 → (¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧)))
23	22	a1i 11	. . . . . 6 ⊢ (¬ ∀𝑦 𝑦 = 𝑧 → (𝑦 = 𝑧 → (¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧))))
24	15, 21, 23	cbv2h 2440	. . . . 5 ⊢ (∀𝑦∀𝑧 ¬ ∀𝑦 𝑦 = 𝑧 → (∀𝑦 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ∀𝑧 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧)))
25	8, 24	syl 18	. . . 4 ⊢ (¬ ∀𝑦 𝑦 = 𝑧 → (∀𝑦 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ∀𝑧 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧)))
26	25	notbid 321	. . 3 ⊢ (¬ ∀𝑦 𝑦 = 𝑧 → (¬ ∀𝑦 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ¬ ∀𝑧 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧)))
27		df-ex 1813	. . 3 ⊢ (∃𝑦∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ¬ ∀𝑦 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑦))
28		df-ex 1813	. . 3 ⊢ (∃𝑧∀𝑥(𝜑 ↔ 𝑥 = 𝑧) ↔ ¬ ∀𝑧 ¬ ∀𝑥(𝜑 ↔ 𝑥 = 𝑧))
29	26, 27, 28	3bitr4g 317	. 2 ⊢ (¬ ∀𝑦 𝑦 = 𝑧 → (∃𝑦∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ∃𝑧∀𝑥(𝜑 ↔ 𝑥 = 𝑧)))
30	5, 29	pm2.61i 184	1 ⊢ (∃𝑦∀𝑥(𝜑 ↔ 𝑥 = 𝑦) ↔ ∃𝑧∀𝑥(𝜑 ↔ 𝑥 = 𝑧))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209  ∀wal 1568  ∃wex 1812

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-10 2179  ax-11 2195  ax-12 2216  ax-13 2406

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-tru 1573  df-ex 1813  df-nf 1817

This theorem is used by: (None)