Theorem mor 2087

Description: Converse of mo23 2086 with an additional ∃𝑥𝜑 condition. (Contributed by Jim Kingdon, 25-Jun-2018.)

Hypothesis

Ref	Expression
mor.1	⊢ Ⅎ𝑦𝜑

Assertion

Ref	Expression
mor	⊢ (∃𝑥𝜑 → (∀𝑥∀𝑦((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) → ∃𝑦∀𝑥(𝜑 → 𝑥 = 𝑦)))

Distinct variable group:   𝑥,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑦)

Proof of Theorem mor

Step	Hyp	Ref	Expression
1		mor.1	. . 3 ⊢ Ⅎ𝑦𝜑
2	1	sb8e 1871	. 2 ⊢ (∃𝑥𝜑 ↔ ∃𝑦[𝑦 / 𝑥]𝜑)
3		impexp 263	. . . . 5 ⊢ (((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ (𝜑 → ([𝑦 / 𝑥]𝜑 → 𝑥 = 𝑦)))
4		bi2.04 248	. . . . 5 ⊢ ((𝜑 → ([𝑦 / 𝑥]𝜑 → 𝑥 = 𝑦)) ↔ ([𝑦 / 𝑥]𝜑 → (𝜑 → 𝑥 = 𝑦)))
5	3, 4	bitri 184	. . . 4 ⊢ (((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ([𝑦 / 𝑥]𝜑 → (𝜑 → 𝑥 = 𝑦)))
6	5	2albii 1485	. . 3 ⊢ (∀𝑥∀𝑦((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ∀𝑥∀𝑦([𝑦 / 𝑥]𝜑 → (𝜑 → 𝑥 = 𝑦)))
7		nfs1v 1958	. . . . . 6 ⊢ Ⅎ𝑥[𝑦 / 𝑥]𝜑
8	7	nfri 1533	. . . . 5 ⊢ ([𝑦 / 𝑥]𝜑 → ∀𝑥[𝑦 / 𝑥]𝜑)
9	8	eximi 1614	. . . 4 ⊢ (∃𝑦[𝑦 / 𝑥]𝜑 → ∃𝑦∀𝑥[𝑦 / 𝑥]𝜑)
10		alim 1471	. . . . . . 7 ⊢ (∀𝑥([𝑦 / 𝑥]𝜑 → (𝜑 → 𝑥 = 𝑦)) → (∀𝑥[𝑦 / 𝑥]𝜑 → ∀𝑥(𝜑 → 𝑥 = 𝑦)))
11	10	alimi 1469	. . . . . 6 ⊢ (∀𝑦∀𝑥([𝑦 / 𝑥]𝜑 → (𝜑 → 𝑥 = 𝑦)) → ∀𝑦(∀𝑥[𝑦 / 𝑥]𝜑 → ∀𝑥(𝜑 → 𝑥 = 𝑦)))
12	11	a7s 1468	. . . . 5 ⊢ (∀𝑥∀𝑦([𝑦 / 𝑥]𝜑 → (𝜑 → 𝑥 = 𝑦)) → ∀𝑦(∀𝑥[𝑦 / 𝑥]𝜑 → ∀𝑥(𝜑 → 𝑥 = 𝑦)))
13		exim 1613	. . . . 5 ⊢ (∀𝑦(∀𝑥[𝑦 / 𝑥]𝜑 → ∀𝑥(𝜑 → 𝑥 = 𝑦)) → (∃𝑦∀𝑥[𝑦 / 𝑥]𝜑 → ∃𝑦∀𝑥(𝜑 → 𝑥 = 𝑦)))
14	12, 13	syl 14	. . . 4 ⊢ (∀𝑥∀𝑦([𝑦 / 𝑥]𝜑 → (𝜑 → 𝑥 = 𝑦)) → (∃𝑦∀𝑥[𝑦 / 𝑥]𝜑 → ∃𝑦∀𝑥(𝜑 → 𝑥 = 𝑦)))
15	9, 14	syl5com 29	. . 3 ⊢ (∃𝑦[𝑦 / 𝑥]𝜑 → (∀𝑥∀𝑦([𝑦 / 𝑥]𝜑 → (𝜑 → 𝑥 = 𝑦)) → ∃𝑦∀𝑥(𝜑 → 𝑥 = 𝑦)))
16	6, 15	biimtrid 152	. 2 ⊢ (∃𝑦[𝑦 / 𝑥]𝜑 → (∀𝑥∀𝑦((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) → ∃𝑦∀𝑥(𝜑 → 𝑥 = 𝑦)))
17	2, 16	sylbi 121	1 ⊢ (∃𝑥𝜑 → (∀𝑥∀𝑦((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) → ∃𝑦∀𝑥(𝜑 → 𝑥 = 𝑦)))

Syntax hints:   → wi 4   ∧ wa 104  ∀wal 1362  Ⅎwnf 1474  ∃wex 1506  [wsb 1776

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-5 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-11 1520  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548

This theorem depends on definitions:  df-bi 117  df-nf 1475  df-sb 1777

This theorem is referenced by:  modc  2088