Mathbox for Alan Sare < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  csbsngVD Structured version   Visualization version   GIF version

Theorem csbsngVD 41414
Description: Virtual deduction proof of csbsng 4617. The following User's Proof is a Virtual Deduction proof completed automatically by the tools program completeusersproof.cmd, which invokes Mel L. O'Cat's mmj2 and Norm Megill's Metamath Proof Assistant. csbsng 4617 is csbsngVD 41414 without virtual deductions and was automatically derived from csbsngVD 41414.
 1:: ⊢ (   𝐴 ∈ 𝑉   ▶   𝐴 ∈ 𝑉   ) 2:1: ⊢ (   𝐴 ∈ 𝑉   ▶   ([𝐴 / 𝑥]𝑦 = 𝐵 ↔ ⦋𝐴 / 𝑥⦌𝑦 = ⦋𝐴 / 𝑥⦌𝐵)   ) 3:1: ⊢ (   𝐴 ∈ 𝑉   ▶   ⦋𝐴 / 𝑥⦌𝑦 = 𝑦   ) 4:3: ⊢ (   𝐴 ∈ 𝑉   ▶   (⦋𝐴 / 𝑥⦌𝑦 = ⦋𝐴 / 𝑥⦌𝐵 ↔ 𝑦 = ⦋𝐴 / 𝑥⦌𝐵)   ) 5:2,4: ⊢ (   𝐴 ∈ 𝑉   ▶   ([𝐴 / 𝑥]𝑦 = 𝐵 ↔ 𝑦 = ⦋𝐴 / 𝑥⦌𝐵)   ) 6:5: ⊢ (   𝐴 ∈ 𝑉   ▶   ∀𝑦([𝐴 / 𝑥]𝑦 = 𝐵 ↔ 𝑦 = ⦋𝐴 / 𝑥⦌𝐵)   ) 7:6: ⊢ (   𝐴 ∈ 𝑉   ▶   {𝑦 ∣ [𝐴 / 𝑥]𝑦 = 𝐵} = {𝑦 ∣ 𝑦 = ⦋𝐴 / 𝑥⦌𝐵}   ) 8:1: ⊢ (   𝐴 ∈ 𝑉   ▶   {𝑦 ∣ [𝐴 / 𝑥]𝑦 = 𝐵} = ⦋𝐴 / 𝑥⦌{𝑦 ∣ 𝑦 = 𝐵}   ) 9:7,8: ⊢ (   𝐴 ∈ 𝑉   ▶   ⦋𝐴 / 𝑥⦌{𝑦 ∣ 𝑦 = 𝐵} = {𝑦 ∣ 𝑦 = ⦋𝐴 / 𝑥⦌𝐵}   ) 10:: ⊢ {𝐵} = {𝑦 ∣ 𝑦 = 𝐵} 11:10: ⊢ ∀𝑥{𝐵} = {𝑦 ∣ 𝑦 = 𝐵} 12:1,11: ⊢ (   𝐴 ∈ 𝑉   ▶   ⦋𝐴 / 𝑥⦌{𝐵} = ⦋ 𝐴 / 𝑥⦌{𝑦 ∣ 𝑦 = 𝐵}   ) 13:9,12: ⊢ (   𝐴 ∈ 𝑉   ▶   ⦋𝐴 / 𝑥⦌{𝐵} = { 𝑦 ∣ 𝑦 = ⦋𝐴 / 𝑥⦌𝐵}   ) 14:: ⊢ {⦋𝐴 / 𝑥⦌𝐵} = {𝑦 ∣ 𝑦 = ⦋𝐴 / 𝑥⦌𝐵} 15:13,14: ⊢ (   𝐴 ∈ 𝑉   ▶   ⦋𝐴 / 𝑥⦌{𝐵} = { ⦋𝐴 / 𝑥⦌𝐵}   ) qed:15: ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{𝐵} = {⦋ 𝐴 / 𝑥⦌𝐵})
(Contributed by Alan Sare, 10-Nov-2012.) (Proof modification is discouraged.) (New usage is discouraged.)
Assertion
Ref Expression
csbsngVD (𝐴𝑉𝐴 / 𝑥{𝐵} = {𝐴 / 𝑥𝐵})

Proof of Theorem csbsngVD
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 idn1 41095 . . . . . . . . 9 (   𝐴𝑉   ▶   𝐴𝑉   )
2 sbceqg 4334 . . . . . . . . 9 (𝐴𝑉 → ([𝐴 / 𝑥]𝑦 = 𝐵𝐴 / 𝑥𝑦 = 𝐴 / 𝑥𝐵))
31, 2e1a 41148 . . . . . . . 8 (   𝐴𝑉   ▶   ([𝐴 / 𝑥]𝑦 = 𝐵𝐴 / 𝑥𝑦 = 𝐴 / 𝑥𝐵)   )
4 csbconstg 3876 . . . . . . . . . 10 (𝐴𝑉𝐴 / 𝑥𝑦 = 𝑦)
51, 4e1a 41148 . . . . . . . . 9 (   𝐴𝑉   ▶   𝐴 / 𝑥𝑦 = 𝑦   )
6 eqeq1 2825 . . . . . . . . 9 (𝐴 / 𝑥𝑦 = 𝑦 → (𝐴 / 𝑥𝑦 = 𝐴 / 𝑥𝐵𝑦 = 𝐴 / 𝑥𝐵))
75, 6e1a 41148 . . . . . . . 8 (   𝐴𝑉   ▶   (𝐴 / 𝑥𝑦 = 𝐴 / 𝑥𝐵𝑦 = 𝐴 / 𝑥𝐵)   )
8 bibi1 355 . . . . . . . . 9 (([𝐴 / 𝑥]𝑦 = 𝐵𝐴 / 𝑥𝑦 = 𝐴 / 𝑥𝐵) → (([𝐴 / 𝑥]𝑦 = 𝐵𝑦 = 𝐴 / 𝑥𝐵) ↔ (𝐴 / 𝑥𝑦 = 𝐴 / 𝑥𝐵𝑦 = 𝐴 / 𝑥𝐵)))
98biimprd 251 . . . . . . . 8 (([𝐴 / 𝑥]𝑦 = 𝐵𝐴 / 𝑥𝑦 = 𝐴 / 𝑥𝐵) → ((𝐴 / 𝑥𝑦 = 𝐴 / 𝑥𝐵𝑦 = 𝐴 / 𝑥𝐵) → ([𝐴 / 𝑥]𝑦 = 𝐵𝑦 = 𝐴 / 𝑥𝐵)))
103, 7, 9e11 41209 . . . . . . 7 (   𝐴𝑉   ▶   ([𝐴 / 𝑥]𝑦 = 𝐵𝑦 = 𝐴 / 𝑥𝐵)   )
1110gen11 41137 . . . . . 6 (   𝐴𝑉   ▶   𝑦([𝐴 / 𝑥]𝑦 = 𝐵𝑦 = 𝐴 / 𝑥𝐵)   )
12 abbi 2888 . . . . . . 7 (∀𝑦([𝐴 / 𝑥]𝑦 = 𝐵𝑦 = 𝐴 / 𝑥𝐵) ↔ {𝑦[𝐴 / 𝑥]𝑦 = 𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵})
1312biimpi 219 . . . . . 6 (∀𝑦([𝐴 / 𝑥]𝑦 = 𝐵𝑦 = 𝐴 / 𝑥𝐵) → {𝑦[𝐴 / 𝑥]𝑦 = 𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵})
1411, 13e1a 41148 . . . . 5 (   𝐴𝑉   ▶   {𝑦[𝐴 / 𝑥]𝑦 = 𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵}   )
15 csbab 4362 . . . . . . . 8 𝐴 / 𝑥{𝑦𝑦 = 𝐵} = {𝑦[𝐴 / 𝑥]𝑦 = 𝐵}
1615a1i 11 . . . . . . 7 (𝐴𝑉𝐴 / 𝑥{𝑦𝑦 = 𝐵} = {𝑦[𝐴 / 𝑥]𝑦 = 𝐵})
1716eqcomd 2827 . . . . . 6 (𝐴𝑉 → {𝑦[𝐴 / 𝑥]𝑦 = 𝐵} = 𝐴 / 𝑥{𝑦𝑦 = 𝐵})
181, 17e1a 41148 . . . . 5 (   𝐴𝑉   ▶   {𝑦[𝐴 / 𝑥]𝑦 = 𝐵} = 𝐴 / 𝑥{𝑦𝑦 = 𝐵}   )
19 eqeq1 2825 . . . . . 6 ({𝑦[𝐴 / 𝑥]𝑦 = 𝐵} = 𝐴 / 𝑥{𝑦𝑦 = 𝐵} → ({𝑦[𝐴 / 𝑥]𝑦 = 𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵} ↔ 𝐴 / 𝑥{𝑦𝑦 = 𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵}))
2019biimpcd 252 . . . . 5 ({𝑦[𝐴 / 𝑥]𝑦 = 𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵} → ({𝑦[𝐴 / 𝑥]𝑦 = 𝐵} = 𝐴 / 𝑥{𝑦𝑦 = 𝐵} → 𝐴 / 𝑥{𝑦𝑦 = 𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵}))
2114, 18, 20e11 41209 . . . 4 (   𝐴𝑉   ▶   𝐴 / 𝑥{𝑦𝑦 = 𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵}   )
22 df-sn 4541 . . . . . 6 {𝐵} = {𝑦𝑦 = 𝐵}
2322ax-gen 1797 . . . . 5 𝑥{𝐵} = {𝑦𝑦 = 𝐵}
24 csbeq2 3862 . . . . . 6 (∀𝑥{𝐵} = {𝑦𝑦 = 𝐵} → 𝐴 / 𝑥{𝐵} = 𝐴 / 𝑥{𝑦𝑦 = 𝐵})
2524a1i 11 . . . . 5 (𝐴𝑉 → (∀𝑥{𝐵} = {𝑦𝑦 = 𝐵} → 𝐴 / 𝑥{𝐵} = 𝐴 / 𝑥{𝑦𝑦 = 𝐵}))
261, 23, 25e10 41215 . . . 4 (   𝐴𝑉   ▶   𝐴 / 𝑥{𝐵} = 𝐴 / 𝑥{𝑦𝑦 = 𝐵}   )
27 eqeq2 2833 . . . . 5 (𝐴 / 𝑥{𝑦𝑦 = 𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵} → (𝐴 / 𝑥{𝐵} = 𝐴 / 𝑥{𝑦𝑦 = 𝐵} ↔ 𝐴 / 𝑥{𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵}))
2827biimpd 232 . . . 4 (𝐴 / 𝑥{𝑦𝑦 = 𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵} → (𝐴 / 𝑥{𝐵} = 𝐴 / 𝑥{𝑦𝑦 = 𝐵} → 𝐴 / 𝑥{𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵}))
2921, 26, 28e11 41209 . . 3 (   𝐴𝑉   ▶   𝐴 / 𝑥{𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵}   )
30 df-sn 4541 . . 3 {𝐴 / 𝑥𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵}
31 eqeq2 2833 . . . 4 ({𝐴 / 𝑥𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵} → (𝐴 / 𝑥{𝐵} = {𝐴 / 𝑥𝐵} ↔ 𝐴 / 𝑥{𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵}))
3231biimprcd 253 . . 3 (𝐴 / 𝑥{𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵} → ({𝐴 / 𝑥𝐵} = {𝑦𝑦 = 𝐴 / 𝑥𝐵} → 𝐴 / 𝑥{𝐵} = {𝐴 / 𝑥𝐵}))
3329, 30, 32e10 41215 . 2 (   𝐴𝑉   ▶   𝐴 / 𝑥{𝐵} = {𝐴 / 𝑥𝐵}   )
3433in1 41092 1 (𝐴𝑉𝐴 / 𝑥{𝐵} = {𝐴 / 𝑥𝐵})
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ↔ wb 209  ∀wal 1536   = wceq 1538   ∈ wcel 2115  {cab 2799  [wsbc 3749  ⦋csb 3857  {csn 4540 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 1912  ax-6 1971  ax-7 2016  ax-8 2117  ax-9 2125  ax-10 2146  ax-11 2162  ax-12 2178  ax-ext 2793 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2071  df-clab 2800  df-cleq 2814  df-clel 2892  df-nfc 2960  df-v 3473  df-sbc 3750  df-csb 3858  df-dif 3913  df-nul 4267  df-sn 4541  df-vd1 41091 This theorem is referenced by: (None)
 Copyright terms: Public domain W3C validator