Theorem ichnfim 46122

Description: If in an interchangeability context 𝑥 is not free in 𝜑, the same holds for 𝑦. (Contributed by Wolf Lammen, 6-Aug-2023.) (Revised by AV, 23-Sep-2023.)

Assertion

Ref	Expression
ichnfim	⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → ∀𝑥Ⅎ𝑦𝜑)

Distinct variable group:   𝑥,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑦)

Proof of Theorem ichnfim

Dummy variables 𝑎 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		nfnf1 2151	. . . 4 ⊢ Ⅎ𝑥Ⅎ𝑥𝜑
2	1	nfal 2316	. . 3 ⊢ Ⅎ𝑥∀𝑦Ⅎ𝑥𝜑
3		nfich1 46105	. . 3 ⊢ Ⅎ𝑥[𝑥⇄𝑦]𝜑
4	2, 3	nfan 1902	. 2 ⊢ Ⅎ𝑥(∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑)
5		dfich2 46116	. . . . 5 ⊢ ([𝑥⇄𝑦]𝜑 ↔ ∀𝑎∀𝑏([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑))
6		ichnfimlem 46121	. . . . . . . 8 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
7		ichnfimlem 46121	. . . . . . . 8 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑏 / 𝑥][𝑎 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑))
8	6, 7	bibi12d 345	. . . . . . 7 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) ↔ ([𝑏 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑)))
9		bicom1 220	. . . . . . 7 ⊢ (([𝑏 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑) → ([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
10	8, 9	syl6bi 252	. . . . . 6 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) → ([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
11	10	2alimdv 1921	. . . . 5 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (∀𝑎∀𝑏([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
12	5, 11	biimtrid 241	. . . 4 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑥⇄𝑦]𝜑 → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
13	12	imp 407	. . 3 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
14		sbnf2 2354	. . 3 ⊢ (Ⅎ𝑦𝜑 ↔ ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
15	13, 14	sylibr 233	. 2 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → Ⅎ𝑦𝜑)
16	4, 15	alrimi 2206	1 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → ∀𝑥Ⅎ𝑦𝜑)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396  ∀wal 1539  Ⅎwnf 1785  [wsb 2067  [wich 46103

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-10 2137  ax-11 2154  ax-12 2171

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-tru 1544  df-ex 1782  df-nf 1786  df-sb 2068  df-ich 46104

This theorem is referenced by:  ichnfb  46123