Theorem ichnfim 43673

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 2158	. . . 4 ⊢ Ⅎ𝑥Ⅎ𝑥𝜑
2	1	nfal 2342	. . 3 ⊢ Ⅎ𝑥∀𝑦Ⅎ𝑥𝜑
3		nfich1 43656	. . 3 ⊢ Ⅎ𝑥[𝑥⇄𝑦]𝜑
4	2, 3	nfan 1900	. 2 ⊢ Ⅎ𝑥(∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑)
5		dfich2 43662	. . . . 5 ⊢ ([𝑥⇄𝑦]𝜑 ↔ ∀𝑎∀𝑏([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑))
6		ichnfimlem3 43672	. . . . . . . 8 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
7		ichnfimlem3 43672	. . . . . . . 8 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑏 / 𝑥][𝑎 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑))
8	6, 7	bibi12d 348	. . . . . . 7 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) ↔ ([𝑏 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑)))
9		bicom1 223	. . . . . . 7 ⊢ (([𝑏 / 𝑦]𝜑 ↔ [𝑎 / 𝑦]𝜑) → ([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
10	8, 9	syl6bi 255	. . . . . 6 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) → ([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
11	10	2alimdv 1919	. . . . 5 ⊢ (∀𝑦Ⅎ𝑥𝜑 → (∀𝑎∀𝑏([𝑎 / 𝑥][𝑏 / 𝑦]𝜑 ↔ [𝑏 / 𝑥][𝑎 / 𝑦]𝜑) → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
12	5, 11	syl5bi 244	. . . 4 ⊢ (∀𝑦Ⅎ𝑥𝜑 → ([𝑥⇄𝑦]𝜑 → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑)))
13	12	imp 409	. . 3 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
14		sbnf2 2377	. . 3 ⊢ (Ⅎ𝑦𝜑 ↔ ∀𝑎∀𝑏([𝑎 / 𝑦]𝜑 ↔ [𝑏 / 𝑦]𝜑))
15	13, 14	sylibr 236	. 2 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → Ⅎ𝑦𝜑)
16	4, 15	alrimi 2213	1 ⊢ ((∀𝑦Ⅎ𝑥𝜑 ∧ [𝑥⇄𝑦]𝜑) → ∀𝑥Ⅎ𝑦𝜑)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398  ∀wal 1535  Ⅎwnf 1784  [wsb 2069  [wich 43654

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-10 2145  ax-11 2161  ax-12 2177  ax-13 2390

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-ich 43655

This theorem is referenced by:  ichnfb  43674