Theorem merco1lem3 1715

Description: Used to rederive the Tarski-Bernays-Wajsberg axioms from merco1 1710. (Contributed by Anthony Hart, 17-Sep-2011.) (Proof modification is discouraged.) (New usage is discouraged.)

Assertion

Ref	Expression
merco1lem3	⊢ (((𝜑 → 𝜓) → (𝜒 → ⊥)) → (𝜒 → 𝜑))

Proof of Theorem merco1lem3

Step	Hyp	Ref	Expression
1		merco1lem2 1714	. . 3 ⊢ (((𝜑 → 𝜑) → ⊥) → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → ⊥))
2		retbwax2 1713	. . . 4 ⊢ ((((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑)) → (𝜑 → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑))))
3		merco1lem2 1714	. . . 4 ⊢ (((((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑)) → (𝜑 → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ⊥) → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → ⊥)) → (𝜑 → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑)))))
4	2, 3	ax-mp 5	. . 3 ⊢ ((((𝜑 → 𝜑) → ⊥) → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → ⊥)) → (𝜑 → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑))))
5	1, 4	ax-mp 5	. 2 ⊢ (𝜑 → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑)))
6		merco1lem2 1714	. . 3 ⊢ (((𝜒 → 𝜑) → ⊥) → (((𝜑 → 𝜓) → (𝜒 → ⊥)) → ⊥))
7		retbwax2 1713	. . . 4 ⊢ ((((𝜑 → 𝜓) → (𝜒 → ⊥)) → (𝜒 → 𝜑)) → ((𝜑 → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑))) → (((𝜑 → 𝜓) → (𝜒 → ⊥)) → (𝜒 → 𝜑))))
8		merco1lem2 1714	. . . 4 ⊢ (((((𝜑 → 𝜓) → (𝜒 → ⊥)) → (𝜒 → 𝜑)) → ((𝜑 → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑))) → (((𝜑 → 𝜓) → (𝜒 → ⊥)) → (𝜒 → 𝜑)))) → ((((𝜒 → 𝜑) → ⊥) → (((𝜑 → 𝜓) → (𝜒 → ⊥)) → ⊥)) → ((𝜑 → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑))) → (((𝜑 → 𝜓) → (𝜒 → ⊥)) → (𝜒 → 𝜑)))))
9	7, 8	ax-mp 5	. . 3 ⊢ ((((𝜒 → 𝜑) → ⊥) → (((𝜑 → 𝜓) → (𝜒 → ⊥)) → ⊥)) → ((𝜑 → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑))) → (((𝜑 → 𝜓) → (𝜒 → ⊥)) → (𝜒 → 𝜑))))
10	6, 9	ax-mp 5	. 2 ⊢ ((𝜑 → (((𝜑 → 𝜑) → (𝜑 → ⊥)) → (𝜑 → 𝜑))) → (((𝜑 → 𝜓) → (𝜒 → ⊥)) → (𝜒 → 𝜑)))
11	5, 10	ax-mp 5	1 ⊢ (((𝜑 → 𝜓) → (𝜒 → ⊥)) → (𝜒 → 𝜑))

Syntax hints:   → wi 4  ⊥wfal 1545

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 209  df-tru 1536  df-fal 1546

This theorem is referenced by:  merco1lem4  1716  merco1lem6  1718  merco1lem11  1724  merco1lem12  1725  merco1lem18  1731