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 40724
Description: Virtual deduction proof of the analogue of sbcor 3751 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 40500 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]((𝜑 𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) [𝐴 / 𝑥]𝜒))   )
3:: (((𝜑𝜓) ∨ 𝜒) ↔ (𝜑 𝜓𝜒))
32:3: 𝑥(((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))
33:1,32,?: e10 40567 (   𝐴𝐵   ▶   [𝐴 / 𝑥](((𝜑 𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))   )
4:1,33,?: e11 40561 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]((𝜑 𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒))   )
5:2,4,?: e11 40561 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))   )
6:1,?: e1a 40500 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 𝜓) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓))   )
7:6,?: e1a 40500 (   𝐴𝐵   ▶   (([𝐴 / 𝑥](𝜑 𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) [𝐴 / 𝑥]𝜒))   )
8:5,7,?: e11 40561 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) [𝐴 / 𝑥]𝜒))   )
9:?: ((([𝐴 / 𝑥]𝜑 [𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ ([𝐴 / 𝑥]𝜑 [𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))
10:8,9,?: e10 40567 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑 𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓 [𝐴 / 𝑥]𝜒))   )
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 40447 . . . . . 6 (   𝐴𝐵   ▶   𝐴𝐵   )
2 sbcor 3751 . . . . . . 7 ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))
32a1i 11 . . . . . 6 (𝐴𝐵 → ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒)))
41, 3e1a 40500 . . . . 5 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))   )
5 df-3or 1081 . . . . . . . . 9 ((𝜑𝜓𝜒) ↔ ((𝜑𝜓) ∨ 𝜒))
65bicomi 225 . . . . . . . 8 (((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))
76ax-gen 1777 . . . . . . 7 𝑥(((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))
8 spsbc 3719 . . . . . . 7 (𝐴𝐵 → (∀𝑥(((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒)) → [𝐴 / 𝑥](((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))))
91, 7, 8e10 40567 . . . . . 6 (   𝐴𝐵   ▶   [𝐴 / 𝑥](((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒))   )
10 sbcbig 3752 . . . . . . 7 (𝐴𝐵 → ([𝐴 / 𝑥](((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒)) ↔ ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒))))
1110biimpd 230 . . . . . 6 (𝐴𝐵 → ([𝐴 / 𝑥](((𝜑𝜓) ∨ 𝜒) ↔ (𝜑𝜓𝜒)) → ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒))))
121, 9, 11e11 40561 . . . . 5 (   𝐴𝐵   ▶   ([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒))   )
13 bitr3 354 . . . . . 6 (([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒)) → (([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒)) → ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))))
1413com12 32 . . . . 5 (([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒)) → (([𝐴 / 𝑥]((𝜑𝜓) ∨ 𝜒) ↔ [𝐴 / 𝑥](𝜑𝜓𝜒)) → ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))))
154, 12, 14e11 40561 . . . 4 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒))   )
16 sbcor 3751 . . . . . . 7 ([𝐴 / 𝑥](𝜑𝜓) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓))
1716a1i 11 . . . . . 6 (𝐴𝐵 → ([𝐴 / 𝑥](𝜑𝜓) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓)))
181, 17e1a 40500 . . . . 5 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑𝜓) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓))   )
19 orbi1 912 . . . . 5 (([𝐴 / 𝑥](𝜑𝜓) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓)) → (([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒)))
2018, 19e1a 40500 . . . 4 (   𝐴𝐵   ▶   (([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒))   )
21 bibi1 353 . . . . 5 (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒)) → (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒)) ↔ (([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒))))
2221biimprd 249 . . . 4 (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒)) → ((([𝐴 / 𝑥](𝜑𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒)) → ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒))))
2315, 20, 22e11 40561 . . 3 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒))   )
24 df-3or 1081 . . . 4 (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒))
2524bicomi 225 . . 3 ((([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))
26 bibi1 353 . . . 4 (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒)) → (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) ↔ ((([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))))
2726biimprd 249 . . 3 (([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒)) → (((([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓) ∨ [𝐴 / 𝑥]𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)) → ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))))
2823, 25, 27e10 40567 . 2 (   𝐴𝐵   ▶   ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒))   )
2928in1 40444 1 (𝐴𝐵 → ([𝐴 / 𝑥](𝜑𝜓𝜒) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥]𝜓[𝐴 / 𝑥]𝜒)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 207  wo 842  w3o 1079  wal 1520  wcel 2081  [wsbc 3706
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-12 2141  ax-ext 2769
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-ex 1762  df-nf 1766  df-sb 2043  df-clab 2776  df-cleq 2788  df-clel 2863  df-v 3439  df-sbc 3707  df-vd1 40443
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator