Theorem mo2icl 3526

Description: Theorem for inferring "at most one." (Contributed by NM, 17-Oct-1996.)

Assertion

Ref	Expression
mo2icl	⊢ (∀𝑥(𝜑 → 𝑥 = 𝐴) → ∃*𝑥𝜑)

Distinct variable group:   𝑥,𝐴

Allowed substitution hint:   𝜑(𝑥)

Proof of Theorem mo2icl

Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqeq2 2771	. . . . . 6 ⊢ (𝑦 = 𝐴 → (𝑥 = 𝑦 ↔ 𝑥 = 𝐴))
2	1	imbi2d 329	. . . . 5 ⊢ (𝑦 = 𝐴 → ((𝜑 → 𝑥 = 𝑦) ↔ (𝜑 → 𝑥 = 𝐴)))
3	2	albidv 1998	. . . 4 ⊢ (𝑦 = 𝐴 → (∀𝑥(𝜑 → 𝑥 = 𝑦) ↔ ∀𝑥(𝜑 → 𝑥 = 𝐴)))
4	3	imbi1d 330	. . 3 ⊢ (𝑦 = 𝐴 → ((∀𝑥(𝜑 → 𝑥 = 𝑦) → ∃*𝑥𝜑) ↔ (∀𝑥(𝜑 → 𝑥 = 𝐴) → ∃*𝑥𝜑)))
5		19.8a 2199	. . . 4 ⊢ (∀𝑥(𝜑 → 𝑥 = 𝑦) → ∃𝑦∀𝑥(𝜑 → 𝑥 = 𝑦))
6		mo2v 2614	. . . 4 ⊢ (∃*𝑥𝜑 ↔ ∃𝑦∀𝑥(𝜑 → 𝑥 = 𝑦))
7	5, 6	sylibr 224	. . 3 ⊢ (∀𝑥(𝜑 → 𝑥 = 𝑦) → ∃*𝑥𝜑)
8	4, 7	vtoclg 3406	. 2 ⊢ (𝐴 ∈ V → (∀𝑥(𝜑 → 𝑥 = 𝐴) → ∃*𝑥𝜑))
9		eqvisset 3351	. . . . . 6 ⊢ (𝑥 = 𝐴 → 𝐴 ∈ V)
10	9	imim2i 16	. . . . 5 ⊢ ((𝜑 → 𝑥 = 𝐴) → (𝜑 → 𝐴 ∈ V))
11	10	con3rr3 151	. . . 4 ⊢ (¬ 𝐴 ∈ V → ((𝜑 → 𝑥 = 𝐴) → ¬ 𝜑))
12	11	alimdv 1994	. . 3 ⊢ (¬ 𝐴 ∈ V → (∀𝑥(𝜑 → 𝑥 = 𝐴) → ∀𝑥 ¬ 𝜑))
13		alnex 1855	. . . 4 ⊢ (∀𝑥 ¬ 𝜑 ↔ ¬ ∃𝑥𝜑)
14		exmo 2632	. . . . 5 ⊢ (∃𝑥𝜑 ∨ ∃*𝑥𝜑)
15	14	ori 389	. . . 4 ⊢ (¬ ∃𝑥𝜑 → ∃*𝑥𝜑)
16	13, 15	sylbi 207	. . 3 ⊢ (∀𝑥 ¬ 𝜑 → ∃*𝑥𝜑)
17	12, 16	syl6 35	. 2 ⊢ (¬ 𝐴 ∈ V → (∀𝑥(𝜑 → 𝑥 = 𝐴) → ∃*𝑥𝜑))
18	8, 17	pm2.61i 176	1 ⊢ (∀𝑥(𝜑 → 𝑥 = 𝐴) → ∃*𝑥𝜑)

Syntax hints:  ¬ wn 3   → wi 4  ∀wal 1630   = wceq 1632  ∃wex 1853   ∈ wcel 2139  ∃*wmo 2608  Vcvv 3340

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-9 2148  ax-10 2168  ax-12 2196  ax-ext 2740

This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-tru 1635  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-v 3342

This theorem is referenced by:  invdisj  4790  reusv1  5015  reusv2lem1  5017  opabiotafun  6421  fseqenlem2  9038  dfac2b  9143  dfac2OLD  9145  imasaddfnlem  16390  imasvscafn  16399  bnj149  31252