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

Theorem eqsbc3rVD 39825
Description: Virtual deduction proof of eqsbc3r 3689. (Contributed by Alan Sare, 24-Oct-2011.) (Proof modification is discouraged.) (New usage is discouraged.)
Assertion
Ref Expression
eqsbc3rVD (𝐴𝐵 → ([𝐴 / 𝑥]𝐶 = 𝑥𝐶 = 𝐴))
Distinct variable group:   𝑥,𝐶
Allowed substitution hints:   𝐴(𝑥)   𝐵(𝑥)

Proof of Theorem eqsbc3rVD
StepHypRef Expression
1 idn1 39549 . . . . . . 7 (   𝐴𝐵   ▶   𝐴𝐵   )
2 eqsbc3 3672 . . . . . . 7 (𝐴𝐵 → ([𝐴 / 𝑥]𝑥 = 𝐶𝐴 = 𝐶))
31, 2e1a 39611 . . . . . 6 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]𝑥 = 𝐶𝐴 = 𝐶)   )
4 eqcom 2805 . . . . . . . . . 10 (𝐶 = 𝑥𝑥 = 𝐶)
54sbcbii 3688 . . . . . . . . 9 ([𝐴 / 𝑥]𝐶 = 𝑥[𝐴 / 𝑥]𝑥 = 𝐶)
65a1i 11 . . . . . . . 8 (𝐴𝐵 → ([𝐴 / 𝑥]𝐶 = 𝑥[𝐴 / 𝑥]𝑥 = 𝐶))
71, 6e1a 39611 . . . . . . 7 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]𝐶 = 𝑥[𝐴 / 𝑥]𝑥 = 𝐶)   )
8 idn2 39597 . . . . . . 7 (   𝐴𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   [𝐴 / 𝑥]𝐶 = 𝑥   )
9 biimp 207 . . . . . . 7 (([𝐴 / 𝑥]𝐶 = 𝑥[𝐴 / 𝑥]𝑥 = 𝐶) → ([𝐴 / 𝑥]𝐶 = 𝑥[𝐴 / 𝑥]𝑥 = 𝐶))
107, 8, 9e12 39709 . . . . . 6 (   𝐴𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   [𝐴 / 𝑥]𝑥 = 𝐶   )
11 biimp 207 . . . . . 6 (([𝐴 / 𝑥]𝑥 = 𝐶𝐴 = 𝐶) → ([𝐴 / 𝑥]𝑥 = 𝐶𝐴 = 𝐶))
123, 10, 11e12 39709 . . . . 5 (   𝐴𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   𝐴 = 𝐶   )
13 eqcom 2805 . . . . 5 (𝐴 = 𝐶𝐶 = 𝐴)
1412, 13e2bi 39616 . . . 4 (   𝐴𝐵   ,   [𝐴 / 𝑥]𝐶 = 𝑥   ▶   𝐶 = 𝐴   )
1514in2 39589 . . 3 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]𝐶 = 𝑥𝐶 = 𝐴)   )
16 idn2 39597 . . . . . . 7 (   𝐴𝐵   ,   𝐶 = 𝐴   ▶   𝐶 = 𝐴   )
1716, 13e2bir 39617 . . . . . 6 (   𝐴𝐵   ,   𝐶 = 𝐴   ▶   𝐴 = 𝐶   )
18 biimpr 212 . . . . . 6 (([𝐴 / 𝑥]𝑥 = 𝐶𝐴 = 𝐶) → (𝐴 = 𝐶[𝐴 / 𝑥]𝑥 = 𝐶))
193, 17, 18e12 39709 . . . . 5 (   𝐴𝐵   ,   𝐶 = 𝐴   ▶   [𝐴 / 𝑥]𝑥 = 𝐶   )
20 biimpr 212 . . . . 5 (([𝐴 / 𝑥]𝐶 = 𝑥[𝐴 / 𝑥]𝑥 = 𝐶) → ([𝐴 / 𝑥]𝑥 = 𝐶[𝐴 / 𝑥]𝐶 = 𝑥))
217, 19, 20e12 39709 . . . 4 (   𝐴𝐵   ,   𝐶 = 𝐴   ▶   [𝐴 / 𝑥]𝐶 = 𝑥   )
2221in2 39589 . . 3 (   𝐴𝐵   ▶   (𝐶 = 𝐴[𝐴 / 𝑥]𝐶 = 𝑥)   )
23 impbi 200 . . 3 (([𝐴 / 𝑥]𝐶 = 𝑥𝐶 = 𝐴) → ((𝐶 = 𝐴[𝐴 / 𝑥]𝐶 = 𝑥) → ([𝐴 / 𝑥]𝐶 = 𝑥𝐶 = 𝐴)))
2415, 22, 23e11 39672 . 2 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]𝐶 = 𝑥𝐶 = 𝐴)   )
2524in1 39546 1 (𝐴𝐵 → ([𝐴 / 𝑥]𝐶 = 𝑥𝐶 = 𝐴))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 198   = wceq 1653  wcel 2157  [wsbc 3632
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1891  ax-4 1905  ax-5 2006  ax-6 2072  ax-7 2107  ax-9 2166  ax-10 2185  ax-11 2200  ax-12 2213  ax-13 2377  ax-ext 2776
This theorem depends on definitions:  df-bi 199  df-an 386  df-or 875  df-tru 1657  df-ex 1876  df-nf 1880  df-sb 2065  df-clab 2785  df-cleq 2791  df-clel 2794  df-v 3386  df-sbc 3633  df-vd1 39545  df-vd2 39553
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator