Theorem mercolem6 1741

Description: Used to rederive the Tarski-Bernays-Wajsberg axioms from merco2 1735. (Contributed by Anthony Hart, 16-Aug-2011.) (Proof modification is discouraged.) (New usage is discouraged.)

Assertion

Ref	Expression
mercolem6	⊢ ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))

Proof of Theorem mercolem6

Step	Hyp	Ref	Expression
1		merco2 1735	. 2 ⊢ (((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑))))
2		mercolem1 1736	. . . . . . . 8 ⊢ (((𝜑 → (𝜑 → (𝜓 → (𝜑 → 𝜒)))) → (𝜑 → 𝜒)) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))
3		mercolem1 1736	. . . . . . . 8 ⊢ ((((𝜑 → (𝜑 → (𝜓 → (𝜑 → 𝜒)))) → (𝜑 → 𝜒)) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))) → ((𝜑 → 𝜒) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))
4	2, 3	ax-mp 5	. . . . . . 7 ⊢ ((𝜑 → 𝜒) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))))
5		mercolem5 1740	. . . . . . . 8 ⊢ (𝜑 → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))
6		mercolem4 1739	. . . . . . . 8 ⊢ ((𝜑 → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))))) → (((𝜑 → 𝜒) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))))
7	5, 6	ax-mp 5	. . . . . . 7 ⊢ (((𝜑 → 𝜒) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))))))
8	4, 7	ax-mp 5	. . . . . 6 ⊢ ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))
9	1, 8	ax-mp 5	. . . . 5 ⊢ ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))))
10		mercolem1 1736	. . . . . . . 8 ⊢ (((𝜑 → (((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑))))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))
11		mercolem1 1736	. . . . . . . 8 ⊢ ((((𝜑 → (((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑))))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))))) → (((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))))
12	10, 11	ax-mp 5	. . . . . . 7 ⊢ (((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))))))
13		mercolem5 1740	. . . . . . . 8 ⊢ ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))))
14		mercolem4 1739	. . . . . . . 8 ⊢ (((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))))))) → ((((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → (((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))))))
15	13, 14	ax-mp 5	. . . . . . 7 ⊢ ((((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → (((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))))))))
16	12, 15	ax-mp 5	. . . . . 6 ⊢ ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → (((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))))
17	1, 16	ax-mp 5	. . . . 5 ⊢ (((𝜑 → (𝜓 → (𝜑 → 𝜒))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))))))
18	9, 17	ax-mp 5	. . . 4 ⊢ ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))))
19	1, 18	ax-mp 5	. . 3 ⊢ ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒)))))
20	1, 19	ax-mp 5	. 2 ⊢ ((((𝜑 → 𝜑) → ((⊥ → 𝜑) → 𝜑)) → ((𝜑 → 𝜑) → (𝜑 → (𝜑 → 𝜑)))) → ((𝜑 → (𝜓 → (𝜑 → 𝜒))) → (𝜓 → (𝜑 → 𝜒))))
21	1, 20	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:  mercolem7  1742  re1tbw1  1744  re1tbw2  1745  re1tbw3  1746  pm2.43bgbi  44470