Theorem ichnfim 44349

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 2155	. . . 4 ⊢ Ⅎ𝑥Ⅎ𝑥𝜑
2	1	nfal 2331	. . 3 ⊢ Ⅎ𝑥∀𝑦Ⅎ𝑥𝜑
3		nfich1 44332	. . 3 ⊢ Ⅎ𝑥[𝑥⇄𝑦]𝜑
4	2, 3	nfan 1900	. 2 ⊢ Ⅎ𝑥(∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑)
5		dfich2 44343	. . . . 5 ⊢ ([𝑥⇄𝑦]𝜑 ↔ ∀𝑎∀𝑏([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑))
6		ichnfimlem 44348	. . . . . . . 8 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
7		ichnfimlem 44348	. . . . . . . 8 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑏 / 𝑥][𝑎 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑))
8	6, 7	bibi12d 349	. . . . . . 7 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) ↔ ([𝑏 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑)))
9		bicom1 224	. . . . . . 7 ⊢ (([𝑏 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑) → ([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
10	8, 9	syl6bi 256	. . . . . 6 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) → ([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
11	10	2alimdv 1919	. . . . 5 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (∀𝑎∀𝑏([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
12	5, 11	syl5bi 245	. . . 4 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑥⇄𝑦]𝜑 → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
13	12	imp 410	. . 3 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
14		sbnf2 2366	. . 3 ⊢ (Ⅎ𝑦𝜑 ↔ ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
15	13, 14	sylibr 237	. 2 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → Ⅎ𝑦𝜑)
16	4, 15	alrimi 2211	1 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → ∀𝑥Ⅎ𝑦𝜑)

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399  ∀wal 1536  Ⅎwnf 1785  [wsb 2069  [wich 44330

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 1911  ax-6 1970  ax-7 2015  ax-10 2142  ax-11 2158  ax-12 2175

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-ich 44331

This theorem is referenced by:  ichnfb  44350