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

Theorem sbc3orgVD 39739
Description: Virtual deduction proof of the analogue of sbcor 3640 with three disjuncts. The following user's proof is completed by invoking mmj2's unify command and using mmj2's StepSelector to pick all remaining steps of the Metamath proof.
1:: (   𝐴𝐵   ▶   𝐴𝐵   )
2:1,?: e1a 39514 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]((𝜑 𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) [𝐴 / 𝑥]𝜒))   )
3:: (((𝜑𝜓) ∨ 𝜒) ↔ (𝜑 𝜓𝜒))
32:3: 𝑥(((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))
33:1,32,?: e10 39581 (   𝐴𝐵   ▶   [𝐴 / 𝑥](((𝜑 𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))   )
4:1,33,?: e11 39575 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]((𝜑 𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒))   )
5:2,4,?: e11 39575 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))   )
6:1,?: e1a 39514 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 𝜓) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓))   )
7:6,?: e1a 39514 (   𝐴𝐵   ▶   (([𝐴 / 𝑥](𝜑 𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) [𝐴 / 𝑥]𝜒))   )
8:5,7,?: e11 39575 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) [𝐴 / 𝑥]𝜒))   )
9:?: ((([𝐴 / 𝑥]𝜑 [𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ ([𝐴 / 𝑥]𝜑 [𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))
10:8,9,?: e10 39581 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓 [𝐴 / 𝑥]𝜒))   )
qed:10: (𝐴𝐵 → ([𝐴 / 𝑥](𝜑 𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓 [𝐴 / 𝑥]𝜒)))
(Contributed by Alan Sare, 31-Dec-2011.) (Proof modification is discouraged.) (New usage is discouraged.)
Assertion
Ref Expression
sbc3orgVD (𝐴𝐵 → ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)))

Proof of Theorem sbc3orgVD
StepHypRef Expression
1 idn1 39452 . . . . . 6 (   𝐴𝐵   ▶   𝐴𝐵   )
2 sbcor 3640 . . . . . . 7 ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))
32a1i 11 . . . . . 6 (𝐴𝐵 → ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒)))
41, 3e1a 39514 . . . . 5 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))   )
5 df-3or 1108 . . . . . . . . 9 ((𝜑𝜓𝜒) ↔ ((𝜑𝜓) ∨ 𝜒))
65bicomi 215 . . . . . . . 8 (((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))
76ax-gen 1890 . . . . . . 7 𝑥(((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))
8 spsbc 3609 . . . . . . 7 (𝐴𝐵 → (∀𝑥(((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒)) → [𝐴 / 𝑥](((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))))
91, 7, 8e10 39581 . . . . . 6 (   𝐴𝐵   ▶   [𝐴 / 𝑥](((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))   )
10 sbcbig 3641 . . . . . . 7 (𝐴𝐵 → ([𝐴 / 𝑥](((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒)) ↔ ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒))))
1110biimpd 220 . . . . . 6 (𝐴𝐵 → ([𝐴 / 𝑥](((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒)) → ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒))))
121, 9, 11e11 39575 . . . . 5 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒))   )
13 bitr3 343 . . . . . 6 (([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒)) → (([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒)) → ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))))
1413com12 32 . . . . 5 (([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒)) → (([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒)) → ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))))
154, 12, 14e11 39575 . . . 4 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))   )
16 sbcor 3640 . . . . . . 7 ([𝐴 / 𝑥](𝜑𝜓) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓))
1716a1i 11 . . . . . 6 (𝐴𝐵 → ([𝐴 / 𝑥](𝜑𝜓) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓)))
181, 17e1a 39514 . . . . 5 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑𝜓) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓))   )
19 orbi1 941 . . . . 5 (([𝐴 / 𝑥](𝜑𝜓) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓)) → (([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒)))
2018, 19e1a 39514 . . . 4 (   𝐴𝐵   ▶   (([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒))   )
21 bibi1 342 . . . . 5 (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒)) → (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒)) ↔ (([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒))))
2221biimprd 239 . . . 4 (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒)) → ((([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒)) → ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒))))
2315, 20, 22e11 39575 . . 3 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒))   )
24 df-3or 1108 . . . 4 (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒))
2524bicomi 215 . . 3 ((([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))
26 bibi1 342 . . . 4 (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒)) → (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) ↔ ((([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))))
2726biimprd 239 . . 3 (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒)) → (((([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) → ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))))
2823, 25, 27e10 39581 . 2 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   )
2928in1 39449 1 (𝐴𝐵 → ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 197  wo 873  w3o 1106  wal 1650  wcel 2155  [wsbc 3596
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-9 2164  ax-10 2183  ax-12 2211  ax-13 2352  ax-ext 2743
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2063  df-clab 2752  df-cleq 2758  df-clel 2761  df-v 3352  df-sbc 3597  df-vd1 39448
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator