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

Theorem sbcim2gVD 43636
Description: Distribution of class substitution over a left-nested implication. Similar to sbcimg 3829. 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. sbcim2g 43299 is sbcim2gVD 43636 without virtual deductions and was automatically derived from sbcim2gVD 43636.
1:: (   𝐴𝐵   ▶   𝐴𝐵   )
2:: (   𝐴𝐵   ,   [𝐴 / 𝑥](𝜑 → (𝜓 𝜒))   ▶   [𝐴 / 𝑥](𝜑 → (𝜓𝜒))   )
3:1,2: (   𝐴𝐵   ,   [𝐴 / 𝑥](𝜑 → (𝜓 𝜒))   ▶   ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒))   )
4:1: (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   )
5:3,4: (   𝐴𝐵   ,   [𝐴 / 𝑥](𝜑 → (𝜓 𝜒))   ▶   ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓 [𝐴 / 𝑥]𝜒))   )
6:5: (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 → (𝜓 𝜒)) → ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓 [𝐴 / 𝑥]𝜒)))   )
7:: (   𝐴𝐵   ,   ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   ▶   ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   )
8:4,7: (   𝐴𝐵   ,   ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   ▶   ([𝐴 / 𝑥]𝜑 [𝐴 / 𝑥](𝜓𝜒))   )
9:1: (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 → (𝜓 𝜒)) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒)))   )
10:8,9: (   𝐴𝐵   ,   ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   ▶   [𝐴 / 𝑥](𝜑 → (𝜓 𝜒))   )
11:10: (   𝐴𝐵   ▶   (([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) → [𝐴 / 𝑥](𝜑 → (𝜓 𝜒)))   )
12:6,11: (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) ↔ ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓 [𝐴 / 𝑥]𝜒)))   )
qed:12: (𝐴𝐵 → ([𝐴 / 𝑥](𝜑 → (𝜓 𝜒)) ↔ ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓 [𝐴 / 𝑥]𝜒))))
(Contributed by Alan Sare, 18-Mar-2012.) (Proof modification is discouraged.) (New usage is discouraged.)
Assertion
Ref Expression
sbcim2gVD (𝐴𝐵 → ([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) ↔ ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))))

Proof of Theorem sbcim2gVD
StepHypRef Expression
1 idn1 43335 . . . . . 6 (   𝐴𝐵   ▶   𝐴𝐵   )
2 idn2 43374 . . . . . 6 (   𝐴𝐵   ,   [𝐴 / 𝑥](𝜑 → (𝜓𝜒))   ▶   [𝐴 / 𝑥](𝜑 → (𝜓𝜒))   )
3 sbcimg 3829 . . . . . . 7 (𝐴𝐵 → ([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒))))
43biimpd 228 . . . . . 6 (𝐴𝐵 → ([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) → ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒))))
51, 2, 4e12 43485 . . . . 5 (   𝐴𝐵   ,   [𝐴 / 𝑥](𝜑 → (𝜓𝜒))   ▶   ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒))   )
6 sbcimg 3829 . . . . . 6 (𝐴𝐵 → ([𝐴 / 𝑥](𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)))
71, 6e1a 43388 . . . . 5 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   )
8 imbi2 349 . . . . . 6 (([𝐴 / 𝑥](𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) → (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒)) ↔ ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))))
98biimpcd 248 . . . . 5 (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒)) → (([𝐴 / 𝑥](𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) → ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))))
105, 7, 9e21 43491 . . . 4 (   𝐴𝐵   ,   [𝐴 / 𝑥](𝜑 → (𝜓𝜒))   ▶   ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   )
1110in2 43366 . . 3 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) → ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)))   )
12 idn2 43374 . . . . . 6 (   𝐴𝐵   ,   ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   ▶   ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   )
13 biimpr 219 . . . . . . 7 (([𝐴 / 𝑥](𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) → (([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒) → [𝐴 / 𝑥](𝜓𝜒)))
1413imim2d 57 . . . . . 6 (([𝐴 / 𝑥](𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) → (([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) → ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒))))
157, 12, 14e12 43485 . . . . 5 (   𝐴𝐵   ,   ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   ▶   ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒))   )
161, 3e1a 43388 . . . . 5 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒)))   )
17 biimpr 219 . . . . . 6 (([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒))) → (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒)) → [𝐴 / 𝑥](𝜑 → (𝜓𝜒))))
1817com12 32 . . . . 5 (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒)) → (([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥](𝜓𝜒))) → [𝐴 / 𝑥](𝜑 → (𝜓𝜒))))
1915, 16, 18e21 43491 . . . 4 (   𝐴𝐵   ,   ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   ▶   [𝐴 / 𝑥](𝜑 → (𝜓𝜒))   )
2019in2 43366 . . 3 (   𝐴𝐵   ▶   (([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) → [𝐴 / 𝑥](𝜑 → (𝜓𝜒)))   )
21 impbi 207 . . 3 (([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) → ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))) → ((([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) → [𝐴 / 𝑥](𝜑 → (𝜓𝜒))) → ([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) ↔ ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)))))
2211, 20, 21e11 43449 . 2 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) ↔ ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)))   )
2322in1 43332 1 (𝐴𝐵 → ([𝐴 / 𝑥](𝜑 → (𝜓𝜒)) ↔ ([𝐴 / 𝑥]𝜑 → ([𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wcel 2107  [wsbc 3778
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-12 2172  ax-ext 2704
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-tru 1545  df-ex 1783  df-nf 1787  df-sb 2069  df-clab 2711  df-cleq 2725  df-clel 2811  df-sbc 3779  df-vd1 43331  df-vd2 43339
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator