MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  merco1lem18 Structured version   Visualization version   GIF version

Theorem merco1lem18 1726
Description: Used to rederive the Tarski-Bernays-Wajsberg axioms from merco1 1705. (Contributed by Anthony Hart, 18-Sep-2011.) (Proof modification is discouraged.) (New usage is discouraged.)
Assertion
Ref Expression
merco1lem18 ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))

Proof of Theorem merco1lem18
StepHypRef Expression
1 merco1 1705 . . . 4 ((((((𝜓𝜒) → 𝜓) → ((𝜓𝜑) → ⊥)) → ((𝜓𝜒) → 𝜓)) → 𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))))
2 merco1lem17 1725 . . . 4 (((((((𝜓𝜒) → 𝜓) → ((𝜓𝜑) → ⊥)) → ((𝜓𝜒) → 𝜓)) → 𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ((((𝜓𝜒) → 𝜓) → 𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))))
31, 2ax-mp 5 . . 3 ((((𝜓𝜒) → 𝜓) → 𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))))
4 merco1lem17 1725 . . 3 (((((𝜓𝜒) → 𝜓) → 𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))))
53, 4ax-mp 5 . 2 ((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))))
6 merco1lem5 1712 . . . . . . 7 ((((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥) → ⊥) → (((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥))
7 merco1lem3 1710 . . . . . . 7 (((((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥) → ⊥) → (((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥)) → (((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥)))
86, 7ax-mp 5 . . . . . 6 (((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥))
9 merco1lem5 1712 . . . . . 6 ((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥)) → (((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥)))
108, 9ax-mp 5 . . . . 5 (((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥))
11 merco1lem4 1711 . . . . 5 ((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥)) → (((𝜓𝜑) → (𝜓𝜒)) → ((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥)))
1210, 11ax-mp 5 . . . 4 (((𝜓𝜑) → (𝜓𝜒)) → ((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥))
13 merco1 1705 . . . . 5 (((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → (𝜓𝜑)) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))))))
14 merco1lem2 1709 . . . . 5 ((((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → (𝜓𝜑)) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))))) → ((((𝜓𝜑) → (𝜓𝜒)) → ((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥)) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))))))
1513, 14ax-mp 5 . . . 4 ((((𝜓𝜑) → (𝜓𝜒)) → ((((((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))) → ⊥) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ⊥)) → ⊥) → ⊥)) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))))))
1612, 15ax-mp 5 . . 3 (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))))
17 merco1lem9 1717 . . 3 ((((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))))) → (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))))
1816, 17ax-mp 5 . 2 (((𝜓𝜑) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))) → ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒))))
195, 18ax-mp 5 1 ((𝜑 → (𝜓𝜒)) → ((𝜓𝜑) → (𝜓𝜒)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wfal 1540
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8
This theorem depends on definitions:  df-bi 208  df-tru 1531  df-fal 1541
This theorem is referenced by:  retbwax1  1727
  Copyright terms: Public domain W3C validator