Theorem ichnfim 48071

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 2189	. . . 4 ⊢ Ⅎ𝑥Ⅎ𝑥𝜑
2	1	nfal 2356	. . 3 ⊢ Ⅎ𝑥∀𝑦Ⅎ𝑥𝜑
3		nfich1 48054	. . 3 ⊢ Ⅎ𝑥[𝑥⇄𝑦]𝜑
4	2, 3	nfan 1920	. 2 ⊢ Ⅎ𝑥(∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑)
5		dfich2 48065	. . . . 5 ⊢ ([𝑥⇄𝑦]𝜑 ↔ ∀𝑎∀𝑏([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑))
6		ichnfimlem 48070	. . . . . . . 8 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
7		ichnfimlem 48070	. . . . . . . 8 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑏 / 𝑥][𝑎 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑))
8	6, 7	bibi12d 347	. . . . . . 7 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) ↔ ([𝑏 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑)))
9		bicom1 223	. . . . . . 7 ⊢ (([𝑏 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑) → ([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
10	8, 9	biimtrdi 255	. . . . . 6 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) → ([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
11	10	2alimdv 1939	. . . . 5 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (∀𝑎∀𝑏([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
12	5, 11	biimtrid 244	. . . 4 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑥⇄𝑦]𝜑 → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
13	12	imp 410	. . 3 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
14		sbnf2 2390	. . 3 ⊢ (Ⅎ𝑦𝜑 ↔ ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
15	13, 14	sylibr 236	. 2 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → Ⅎ𝑦𝜑)
16	4, 15	alrimi 2249	1 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → ∀𝑥Ⅎ𝑦𝜑)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399  ∀wal 1559  Ⅎwnf 1804  [wsb 2091  [wich 48052

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1816  ax-4 1830  ax-5 1931  ax-6 1988  ax-7 2029  ax-10 2176  ax-11 2192  ax-12 2213

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-tru 1564  df-ex 1801  df-nf 1805  df-sb 2092  df-ich 48053

This theorem is referenced by:  ichnfb  48072