Theorem merco1lem17 1732

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

Assertion

Ref	Expression
merco1lem17	⊢ (((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜏) → ((𝜑 → 𝜒) → 𝜏))

Proof of Theorem merco1lem17

Step	Hyp	Ref	Expression
1		merco1lem11 1726	. . . . . . 7 ⊢ ((((𝜑 → 𝜓) → 𝜑) → 𝜑) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑))
2		merco1lem7 1721	. . . . . . . . 9 ⊢ ((((((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑) → 𝜑) → (((((𝜑 → 𝜓) → 𝜑) → 𝜑) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)) → ⊥)) → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → 𝜑))
3		merco1 1712	. . . . . . . . 9 ⊢ (((((((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑) → 𝜑) → (((((𝜑 → 𝜓) → 𝜑) → 𝜑) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)) → ⊥)) → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → 𝜑)) → (((((𝜑 → 𝜓) → 𝜑) → 𝜑) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)) → (((((𝜑 → 𝜓) → 𝜑) → 𝜑) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑))))
4	2, 3	ax-mp 5	. . . . . . . 8 ⊢ (((((𝜑 → 𝜓) → 𝜑) → 𝜑) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)) → (((((𝜑 → 𝜓) → 𝜑) → 𝜑) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)))
5		merco1lem9 1724	. . . . . . . 8 ⊢ ((((((𝜑 → 𝜓) → 𝜑) → 𝜑) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)) → (((((𝜑 → 𝜓) → 𝜑) → 𝜑) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑))) → (((((𝜑 → 𝜓) → 𝜑) → 𝜑) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)))
6	4, 5	ax-mp 5	. . . . . . 7 ⊢ (((((𝜑 → 𝜓) → 𝜑) → 𝜑) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)) → ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑))
7	1, 6	ax-mp 5	. . . . . 6 ⊢ ((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑)
8		merco1 1712	. . . . . 6 ⊢ (((((𝜒 → 𝜑) → (((𝜑 → 𝜓) → 𝜑) → ⊥)) → ⊥) → 𝜑) → ((𝜑 → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒)))
9	7, 8	ax-mp 5	. . . . 5 ⊢ ((𝜑 → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒))
10		merco1lem11 1726	. . . . . . 7 ⊢ (((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒)))
11		merco1lem7 1721	. . . . . . . . 9 ⊢ (((((((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒)) → 𝜑) → ((((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))) → ⊥)) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)))
12		merco1 1712	. . . . . . . . 9 ⊢ ((((((((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒)) → 𝜑) → ((((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))) → ⊥)) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒))) → ((((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))) → ((((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒)))))
13	11, 12	ax-mp 5	. . . . . . . 8 ⊢ ((((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))) → ((((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))))
14		merco1lem9 1724	. . . . . . . 8 ⊢ (((((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))) → ((((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒)))) → ((((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))))
15	13, 14	ax-mp 5	. . . . . . 7 ⊢ ((((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (𝜑 → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒)))
16	10, 15	ax-mp 5	. . . . . 6 ⊢ (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒))
17		merco1 1712	. . . . . 6 ⊢ ((((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → ⊥)) → ⊥) → (𝜑 → 𝜒)) → (((𝜑 → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒)) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (((𝜑 → 𝜓) → 𝜑) → 𝜒))))
18	16, 17	ax-mp 5	. . . . 5 ⊢ (((𝜑 → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒)) → ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (((𝜑 → 𝜓) → 𝜑) → 𝜒)))
19	9, 18	ax-mp 5	. . . 4 ⊢ ((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (((𝜑 → 𝜓) → 𝜑) → 𝜒))
20		merco1lem16 1731	. . . 4 ⊢ (((((𝜑 → 𝜒) → ⊥) → (𝜑 → 𝜒)) → (((𝜑 → 𝜓) → 𝜑) → 𝜒)) → ((((𝜑 → 𝜒) → ⊥) → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒)))
21	19, 20	ax-mp 5	. . 3 ⊢ ((((𝜑 → 𝜒) → ⊥) → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒))
22		merco1lem4 1718	. . . . 5 ⊢ ((((𝜏 → 𝜑) → ((𝜑 → 𝜒) → ⊥)) → 𝜒) → (((𝜑 → 𝜒) → ⊥) → 𝜒))
23		merco1lem11 1726	. . . . 5 ⊢ (((((𝜏 → 𝜑) → ((𝜑 → 𝜒) → ⊥)) → 𝜒) → (((𝜑 → 𝜒) → ⊥) → 𝜒)) → (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜏 → 𝜑) → ((𝜑 → 𝜒) → ⊥)) → 𝜒) → ⊥)) → ⊥) → (((𝜑 → 𝜒) → ⊥) → 𝜒)))
24	22, 23	ax-mp 5	. . . 4 ⊢ (((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜏 → 𝜑) → ((𝜑 → 𝜒) → ⊥)) → 𝜒) → ⊥)) → ⊥) → (((𝜑 → 𝜒) → ⊥) → 𝜒))
25		merco1 1712	. . . 4 ⊢ ((((((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜑) → ((((𝜏 → 𝜑) → ((𝜑 → 𝜒) → ⊥)) → 𝜒) → ⊥)) → ⊥) → (((𝜑 → 𝜒) → ⊥) → 𝜒)) → (((((𝜑 → 𝜒) → ⊥) → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒)) → ((((𝜏 → 𝜑) → ((𝜑 → 𝜒) → ⊥)) → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒))))
26	24, 25	ax-mp 5	. . 3 ⊢ (((((𝜑 → 𝜒) → ⊥) → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒)) → ((((𝜏 → 𝜑) → ((𝜑 → 𝜒) → ⊥)) → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒)))
27	21, 26	ax-mp 5	. 2 ⊢ ((((𝜏 → 𝜑) → ((𝜑 → 𝜒) → ⊥)) → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒))
28		merco1 1712	. 2 ⊢ (((((𝜏 → 𝜑) → ((𝜑 → 𝜒) → ⊥)) → 𝜒) → (((𝜑 → 𝜓) → 𝜑) → 𝜒)) → (((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜏) → ((𝜑 → 𝜒) → 𝜏)))
29	27, 28	ax-mp 5	1 ⊢ (((((𝜑 → 𝜓) → 𝜑) → 𝜒) → 𝜏) → ((𝜑 → 𝜒) → 𝜏))

Syntax hints:   → wi 4  ⊥wfal 1551

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 207  df-tru 1542  df-fal 1552

This theorem is referenced by:  merco1lem18  1733