Theorem sbcimdv 3814

Description: Substitution analogue of Theorem 19.20 of [Margaris] p. 90 (alim 1843). (Contributed by NM, 11-Nov-2005.) (Revised by NM, 17-Aug-2018.) (Proof shortened by JJ, 7-Jul-2021.) Reduce axiom usage. (Revised by GG, 12-Oct-2024.)

Hypothesis

Ref	Expression
sbcimdv.1	⊢ (𝜑 → (𝜓 → 𝜒))

Assertion

Ref	Expression
sbcimdv	⊢ (𝜑 → ([𝐴 / 𝑥]𝜓 → [𝐴 / 𝑥]𝜒))

Distinct variable group:   𝜑,𝑥

Allowed substitution hints:   𝜓(𝑥)   𝜒(𝑥)   𝐴(𝑥)

Proof of Theorem sbcimdv

Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-sbc 3747	. . . 4 ⊢ ([𝐴 / 𝑥]𝜓 ↔ 𝐴 ∈ {𝑥 ∣ 𝜓})
2		dfclel 2841	. . . 4 ⊢ (𝐴 ∈ {𝑥 ∣ 𝜓} ↔ ∃𝑦(𝑦 = 𝐴 ∧ 𝑦 ∈ {𝑥 ∣ 𝜓}))
3		df-clab 2744	. . . . . 6 ⊢ (𝑦 ∈ {𝑥 ∣ 𝜓} ↔ [𝑦 / 𝑥]𝜓)
4	3	anbi2i 635	. . . . 5 ⊢ ((𝑦 = 𝐴 ∧ 𝑦 ∈ {𝑥 ∣ 𝜓}) ↔ (𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜓))
5	4	exbii 1881	. . . 4 ⊢ (∃𝑦(𝑦 = 𝐴 ∧ 𝑦 ∈ {𝑥 ∣ 𝜓}) ↔ ∃𝑦(𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜓))
6	1, 2, 5	3bitri 300	. . 3 ⊢ ([𝐴 / 𝑥]𝜓 ↔ ∃𝑦(𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜓))
7	6	biimpi 219	. 2 ⊢ ([𝐴 / 𝑥]𝜓 → ∃𝑦(𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜓))
8		sbcimdv.1	. . . . 5 ⊢ (𝜑 → (𝜓 → 𝜒))
9	8	sbimdv 2115	. . . 4 ⊢ (𝜑 → ([𝑦 / 𝑥]𝜓 → [𝑦 / 𝑥]𝜒))
10	9	anim2d 624	. . 3 ⊢ (𝜑 → ((𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜓) → (𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜒)))
11	10	eximdv 1950	. 2 ⊢ (𝜑 → (∃𝑦(𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜓) → ∃𝑦(𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜒)))
12		df-sbc 3747	. . . 4 ⊢ ([𝐴 / 𝑥]𝜒 ↔ 𝐴 ∈ {𝑥 ∣ 𝜒})
13		dfclel 2841	. . . 4 ⊢ (𝐴 ∈ {𝑥 ∣ 𝜒} ↔ ∃𝑦(𝑦 = 𝐴 ∧ 𝑦 ∈ {𝑥 ∣ 𝜒}))
14		df-clab 2744	. . . . . 6 ⊢ (𝑦 ∈ {𝑥 ∣ 𝜒} ↔ [𝑦 / 𝑥]𝜒)
15	14	anbi2i 635	. . . . 5 ⊢ ((𝑦 = 𝐴 ∧ 𝑦 ∈ {𝑥 ∣ 𝜒}) ↔ (𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜒))
16	15	exbii 1881	. . . 4 ⊢ (∃𝑦(𝑦 = 𝐴 ∧ 𝑦 ∈ {𝑥 ∣ 𝜒}) ↔ ∃𝑦(𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜒))
17	12, 13, 16	3bitrri 301	. . 3 ⊢ (∃𝑦(𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜒) ↔ [𝐴 / 𝑥]𝜒)
18	17	biimpi 219	. 2 ⊢ (∃𝑦(𝑦 = 𝐴 ∧ [𝑦 / 𝑥]𝜒) → [𝐴 / 𝑥]𝜒)
19	7, 11, 18	syl56 37	1 ⊢ (𝜑 → ([𝐴 / 𝑥]𝜓 → [𝐴 / 𝑥]𝜒))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570  ∃wex 1812  [wsb 2099   ∈ wcel 2146  {cab 2743  [wsbc 3746

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148

This proof depends on definitions:  df-bi 210  df-an 402  df-ex 1813  df-sb 2100  df-clab 2744  df-clel 2840  df-sbc 3747

This theorem is used by:  esum2dlem  34505