Metamath Proof Explorer

Theorem adh-minim

Description: A single axiom for minimal implicational calculus, due to Meredith. Other single axioms of the same length are known, but it is thought to be the minimal length. This is the axiom from Carew Arthur Meredith,A single axiom of positive logic, The Journal of Computing Systems, volume 1, issue 3, July 1953, pages 169--170. A two-line review by Alonzo Church of this article can be found in The Journal of Symbolic Logic, volume 19, issue 2, June 1954, page 144, https://doi.org/10.2307/2268914 . Known as "HI-1" on Dolph Edward "Ted" Ulrich's web page. In the next 6 lemmas and 3 theorems, ax-1 and ax-2 are derived from this single axiom in 16 detachments (instances of ax-mp ) in total. Polish prefix notation: CCCpqrCsCCqCrtCqt . (Contributed by ADH, 10-Nov-2023)

Ref Expression
Assertion adh-minim 
|- ( ( ( ph -> ps ) -> ch ) -> ( th -> ( ( ps -> ( ch -> ta ) ) -> ( ps -> ta ) ) ) )

Proof

Step Hyp Ref Expression
1 pm2.04 
 |-  ( ( ps -> ( ch -> ta ) ) -> ( ch -> ( ps -> ta ) ) )
2 pm2.04 
 |-  ( ( ch -> ( ps -> ta ) ) -> ( ps -> ( ch -> ta ) ) )
3 adh-jarrsc 
 |-  ( ( ( ph -> ps ) -> ch ) -> ( ( ch -> ( ps -> ta ) ) -> ( ps -> ch ) ) )
4 ax-2 
 |-  ( ( ps -> ( ch -> ta ) ) -> ( ( ps -> ch ) -> ( ps -> ta ) ) )
5 imim2 
 |-  ( ( ( ps -> ( ch -> ta ) ) -> ( ( ps -> ch ) -> ( ps -> ta ) ) ) -> ( ( ( ch -> ( ps -> ta ) ) -> ( ps -> ( ch -> ta ) ) ) -> ( ( ch -> ( ps -> ta ) ) -> ( ( ps -> ch ) -> ( ps -> ta ) ) ) ) )
6 4 5 ax-mp 
 |-  ( ( ( ch -> ( ps -> ta ) ) -> ( ps -> ( ch -> ta ) ) ) -> ( ( ch -> ( ps -> ta ) ) -> ( ( ps -> ch ) -> ( ps -> ta ) ) ) )
7 2 6 ax-mp 
 |-  ( ( ch -> ( ps -> ta ) ) -> ( ( ps -> ch ) -> ( ps -> ta ) ) )
8 ax-2 
 |-  ( ( ( ch -> ( ps -> ta ) ) -> ( ( ps -> ch ) -> ( ps -> ta ) ) ) -> ( ( ( ch -> ( ps -> ta ) ) -> ( ps -> ch ) ) -> ( ( ch -> ( ps -> ta ) ) -> ( ps -> ta ) ) ) )
9 7 8 ax-mp 
 |-  ( ( ( ch -> ( ps -> ta ) ) -> ( ps -> ch ) ) -> ( ( ch -> ( ps -> ta ) ) -> ( ps -> ta ) ) )
10 imim2 
 |-  ( ( ( ( ch -> ( ps -> ta ) ) -> ( ps -> ch ) ) -> ( ( ch -> ( ps -> ta ) ) -> ( ps -> ta ) ) ) -> ( ( ( ( ph -> ps ) -> ch ) -> ( ( ch -> ( ps -> ta ) ) -> ( ps -> ch ) ) ) -> ( ( ( ph -> ps ) -> ch ) -> ( ( ch -> ( ps -> ta ) ) -> ( ps -> ta ) ) ) ) )
11 9 10 ax-mp 
 |-  ( ( ( ( ph -> ps ) -> ch ) -> ( ( ch -> ( ps -> ta ) ) -> ( ps -> ch ) ) ) -> ( ( ( ph -> ps ) -> ch ) -> ( ( ch -> ( ps -> ta ) ) -> ( ps -> ta ) ) ) )
12 3 11 ax-mp 
 |-  ( ( ( ph -> ps ) -> ch ) -> ( ( ch -> ( ps -> ta ) ) -> ( ps -> ta ) ) )
13 pm2.04 
 |-  ( ( ( ( ph -> ps ) -> ch ) -> ( ( ch -> ( ps -> ta ) ) -> ( ps -> ta ) ) ) -> ( ( ch -> ( ps -> ta ) ) -> ( ( ( ph -> ps ) -> ch ) -> ( ps -> ta ) ) ) )
14 12 13 ax-mp 
 |-  ( ( ch -> ( ps -> ta ) ) -> ( ( ( ph -> ps ) -> ch ) -> ( ps -> ta ) ) )
15 1 2 1 14 4syl 
 |-  ( ( ps -> ( ch -> ta ) ) -> ( ( ( ph -> ps ) -> ch ) -> ( ps -> ta ) ) )
16 pm2.04 
 |-  ( ( ( ps -> ( ch -> ta ) ) -> ( ( ( ph -> ps ) -> ch ) -> ( ps -> ta ) ) ) -> ( ( ( ph -> ps ) -> ch ) -> ( ( ps -> ( ch -> ta ) ) -> ( ps -> ta ) ) ) )
17 15 16 ax-mp 
 |-  ( ( ( ph -> ps ) -> ch ) -> ( ( ps -> ( ch -> ta ) ) -> ( ps -> ta ) ) )
18 ax-1 
 |-  ( ( ( ( ph -> ps ) -> ch ) -> ( ( ps -> ( ch -> ta ) ) -> ( ps -> ta ) ) ) -> ( th -> ( ( ( ph -> ps ) -> ch ) -> ( ( ps -> ( ch -> ta ) ) -> ( ps -> ta ) ) ) ) )
19 17 18 ax-mp 
 |-  ( th -> ( ( ( ph -> ps ) -> ch ) -> ( ( ps -> ( ch -> ta ) ) -> ( ps -> ta ) ) ) )
20 pm2.04 
 |-  ( ( th -> ( ( ( ph -> ps ) -> ch ) -> ( ( ps -> ( ch -> ta ) ) -> ( ps -> ta ) ) ) ) -> ( ( ( ph -> ps ) -> ch ) -> ( th -> ( ( ps -> ( ch -> ta ) ) -> ( ps -> ta ) ) ) ) )
21 19 20 ax-mp 
 |-  ( ( ( ph -> ps ) -> ch ) -> ( th -> ( ( ps -> ( ch -> ta ) ) -> ( ps -> ta ) ) ) )