Theorem wl-sbcom2d 34791

Description: Version of sbcom2 2164 with a context, and distinct variable conditions replaced with distinctors. (Contributed by Wolf Lammen, 4-Aug-2019.)

Hypotheses

Ref	Expression
wl-sbcom2d.1	⊢ (𝜑 → ¬ ∀𝑥 𝑥 = 𝑤)
wl-sbcom2d.2	⊢ (𝜑 → ¬ ∀𝑥 𝑥 = 𝑧)
wl-sbcom2d.3	⊢ (𝜑 → ¬ ∀𝑧 𝑧 = 𝑦)

Assertion

Ref	Expression
wl-sbcom2d	⊢ (𝜑 → ([𝑤 / 𝑧][𝑦 / 𝑥]𝜓 ↔ [𝑦 / 𝑥][𝑤 / 𝑧]𝜓))

Proof of Theorem wl-sbcom2d

Dummy variables 𝑣 𝑢 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ax6ev 1968	. 2 ⊢ ∃𝑢 𝑢 = 𝑦
2		ax6ev 1968	. 2 ⊢ ∃𝑣 𝑣 = 𝑤
3		wl-sbcom2d.2	. . . . . . . 8 ⊢ (𝜑 → ¬ ∀𝑥 𝑥 = 𝑧)
4		wl-sbcom2d-lem2 34790	. . . . . . . . . . 11 ⊢ (¬ ∀𝑧 𝑧 = 𝑥 → ([𝑢 / 𝑥][𝑣 / 𝑧]𝜓 ↔ ∀𝑥∀𝑧((𝑥 = 𝑢 ∧ 𝑧 = 𝑣) → 𝜓)))
5		alcom 2159	. . . . . . . . . . . 12 ⊢ (∀𝑥∀𝑧((𝑥 = 𝑢 ∧ 𝑧 = 𝑣) → 𝜓) ↔ ∀𝑧∀𝑥((𝑥 = 𝑢 ∧ 𝑧 = 𝑣) → 𝜓))
6		ancomst 467	. . . . . . . . . . . . 13 ⊢ (((𝑥 = 𝑢 ∧ 𝑧 = 𝑣) → 𝜓) ↔ ((𝑧 = 𝑣 ∧ 𝑥 = 𝑢) → 𝜓))
7	6	2albii 1817	. . . . . . . . . . . 12 ⊢ (∀𝑧∀𝑥((𝑥 = 𝑢 ∧ 𝑧 = 𝑣) → 𝜓) ↔ ∀𝑧∀𝑥((𝑧 = 𝑣 ∧ 𝑥 = 𝑢) → 𝜓))
8	5, 7	bitri 277	. . . . . . . . . . 11 ⊢ (∀𝑥∀𝑧((𝑥 = 𝑢 ∧ 𝑧 = 𝑣) → 𝜓) ↔ ∀𝑧∀𝑥((𝑧 = 𝑣 ∧ 𝑥 = 𝑢) → 𝜓))
9	4, 8	syl6bb 289	. . . . . . . . . 10 ⊢ (¬ ∀𝑧 𝑧 = 𝑥 → ([𝑢 / 𝑥][𝑣 / 𝑧]𝜓 ↔ ∀𝑧∀𝑥((𝑧 = 𝑣 ∧ 𝑥 = 𝑢) → 𝜓)))
10	9	naecoms 2447	. . . . . . . . 9 ⊢ (¬ ∀𝑥 𝑥 = 𝑧 → ([𝑢 / 𝑥][𝑣 / 𝑧]𝜓 ↔ ∀𝑧∀𝑥((𝑧 = 𝑣 ∧ 𝑥 = 𝑢) → 𝜓)))
11		wl-sbcom2d-lem2 34790	. . . . . . . . 9 ⊢ (¬ ∀𝑥 𝑥 = 𝑧 → ([𝑣 / 𝑧][𝑢 / 𝑥]𝜓 ↔ ∀𝑧∀𝑥((𝑧 = 𝑣 ∧ 𝑥 = 𝑢) → 𝜓)))
12	10, 11	bitr4d 284	. . . . . . . 8 ⊢ (¬ ∀𝑥 𝑥 = 𝑧 → ([𝑢 / 𝑥][𝑣 / 𝑧]𝜓 ↔ [𝑣 / 𝑧][𝑢 / 𝑥]𝜓))
13	3, 12	syl 17	. . . . . . 7 ⊢ (𝜑 → ([𝑢 / 𝑥][𝑣 / 𝑧]𝜓 ↔ [𝑣 / 𝑧][𝑢 / 𝑥]𝜓))
14	13	adantl 484	. . . . . 6 ⊢ (((𝑢 = 𝑦 ∧ 𝑣 = 𝑤) ∧ 𝜑) → ([𝑢 / 𝑥][𝑣 / 𝑧]𝜓 ↔ [𝑣 / 𝑧][𝑢 / 𝑥]𝜓))
15		wl-sbcom2d.1	. . . . . . . 8 ⊢ (𝜑 → ¬ ∀𝑥 𝑥 = 𝑤)
16		wl-sbcom2d-lem1 34789	. . . . . . . 8 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑤) → (¬ ∀𝑥 𝑥 = 𝑤 → ([𝑢 / 𝑥][𝑣 / 𝑧]𝜓 ↔ [𝑦 / 𝑥][𝑤 / 𝑧]𝜓)))
17	15, 16	syl5 34	. . . . . . 7 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑤) → (𝜑 → ([𝑢 / 𝑥][𝑣 / 𝑧]𝜓 ↔ [𝑦 / 𝑥][𝑤 / 𝑧]𝜓)))
18	17	imp 409	. . . . . 6 ⊢ (((𝑢 = 𝑦 ∧ 𝑣 = 𝑤) ∧ 𝜑) → ([𝑢 / 𝑥][𝑣 / 𝑧]𝜓 ↔ [𝑦 / 𝑥][𝑤 / 𝑧]𝜓))
19		wl-sbcom2d.3	. . . . . . . . 9 ⊢ (𝜑 → ¬ ∀𝑧 𝑧 = 𝑦)
20		wl-sbcom2d-lem1 34789	. . . . . . . . 9 ⊢ ((𝑣 = 𝑤 ∧ 𝑢 = 𝑦) → (¬ ∀𝑧 𝑧 = 𝑦 → ([𝑣 / 𝑧][𝑢 / 𝑥]𝜓 ↔ [𝑤 / 𝑧][𝑦 / 𝑥]𝜓)))
21	19, 20	syl5 34	. . . . . . . 8 ⊢ ((𝑣 = 𝑤 ∧ 𝑢 = 𝑦) → (𝜑 → ([𝑣 / 𝑧][𝑢 / 𝑥]𝜓 ↔ [𝑤 / 𝑧][𝑦 / 𝑥]𝜓)))
22	21	ancoms 461	. . . . . . 7 ⊢ ((𝑢 = 𝑦 ∧ 𝑣 = 𝑤) → (𝜑 → ([𝑣 / 𝑧][𝑢 / 𝑥]𝜓 ↔ [𝑤 / 𝑧][𝑦 / 𝑥]𝜓)))
23	22	imp 409	. . . . . 6 ⊢ (((𝑢 = 𝑦 ∧ 𝑣 = 𝑤) ∧ 𝜑) → ([𝑣 / 𝑧][𝑢 / 𝑥]𝜓 ↔ [𝑤 / 𝑧][𝑦 / 𝑥]𝜓))
24	14, 18, 23	3bitr3rd 312	. . . . 5 ⊢ (((𝑢 = 𝑦 ∧ 𝑣 = 𝑤) ∧ 𝜑) → ([𝑤 / 𝑧][𝑦 / 𝑥]𝜓 ↔ [𝑦 / 𝑥][𝑤 / 𝑧]𝜓))
25	24	exp31 422	. . . 4 ⊢ (𝑢 = 𝑦 → (𝑣 = 𝑤 → (𝜑 → ([𝑤 / 𝑧][𝑦 / 𝑥]𝜓 ↔ [𝑦 / 𝑥][𝑤 / 𝑧]𝜓))))
26	25	exlimdv 1930	. . 3 ⊢ (𝑢 = 𝑦 → (∃𝑣 𝑣 = 𝑤 → (𝜑 → ([𝑤 / 𝑧][𝑦 / 𝑥]𝜓 ↔ [𝑦 / 𝑥][𝑤 / 𝑧]𝜓))))
27	26	exlimiv 1927	. 2 ⊢ (∃𝑢 𝑢 = 𝑦 → (∃𝑣 𝑣 = 𝑤 → (𝜑 → ([𝑤 / 𝑧][𝑦 / 𝑥]𝜓 ↔ [𝑦 / 𝑥][𝑤 / 𝑧]𝜓))))
28	1, 2, 27	mp2 9	1 ⊢ (𝜑 → ([𝑤 / 𝑧][𝑦 / 𝑥]𝜓 ↔ [𝑦 / 𝑥][𝑤 / 𝑧]𝜓))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 398  ∀wal 1531  ∃wex 1776  [wsb 2065

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-10 2141  ax-11 2157  ax-12 2173  ax-13 2386

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066

This theorem is referenced by: (None)