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

Theorem merlem13 1579
Description: Step 35 of Meredith's proof of Lukasiewicz axioms from his sole axiom. (Contributed by NM, 14-Dec-2002.) (Proof modification is discouraged.) (New usage is discouraged.)
Assertion
Ref Expression
merlem13  |-  ( (
ph  ->  ps )  -> 
( ( ( th 
->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  ps ) )

Proof of Theorem merlem13
StepHypRef Expression
1 merlem12 1578 . . . . 5  |-  ( ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) )
2 merlem12 1578 . . . . . . . 8  |-  ( ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  -.  -.  ph )
3 merlem5 1571 . . . . . . . 8  |-  ( ( ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  -.  -.  ph )  ->  ( -.  -.  ( ( th 
->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  -.  -.  ph ) )
42, 3ax-mp 5 . . . . . . 7  |-  ( -. 
-.  ( ( th 
->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  -.  -.  ph )
5 merlem6 1572 . . . . . . 7  |-  ( ( -.  -.  ( ( th  ->  ( -.  -.  ch  ->  ch )
)  ->  -.  -.  ph )  ->  -.  -.  ph )  ->  ( ( ( ( -.  ( ( th 
->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  ps )  ->  ( -. 
-.  ( ( th 
->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  -.  -.  ph ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )
)  ->  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )
) ) )
64, 5ax-mp 5 . . . . . 6  |-  ( ( ( ( -.  (
( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  ps )  ->  ( -.  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  -.  -.  ph ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) )  -> 
( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )
7 meredith 1566 . . . . . 6  |-  ( ( ( ( ( -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  ps )  ->  ( -.  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  -.  -.  ph ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) )  -> 
( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )  ->  ( ( ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) )  -> 
( -.  ph  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) ) )
86, 7ax-mp 5 . . . . 5  |-  ( ( ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) )  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) )  -> 
( -.  ph  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )
91, 8ax-mp 5 . . . 4  |-  ( -. 
ph  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )
)
10 merlem6 1572 . . . 4  |-  ( ( -.  ph  ->  -.  (
( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) )  -> 
( ( ( ( ps  ->  ps )  ->  ( -.  ph  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )  ->  ph )  ->  (
( ( ( ps 
->  ps )  ->  ( -.  ph  ->  -.  (
( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )  ->  ph )  ->  ph )
) )
119, 10ax-mp 5 . . 3  |-  ( ( ( ( ps  ->  ps )  ->  ( -.  ph 
->  -.  ( ( th 
->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )  ->  ph )  -> 
( ( ( ( ps  ->  ps )  ->  ( -.  ph  ->  -.  ( ( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )  ->  ph )  ->  ph )
)
12 merlem11 1577 . . 3  |-  ( ( ( ( ( ps 
->  ps )  ->  ( -.  ph  ->  -.  (
( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )  ->  ph )  ->  (
( ( ( ps 
->  ps )  ->  ( -.  ph  ->  -.  (
( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )  ->  ph )  ->  ph )
)  ->  ( (
( ( ps  ->  ps )  ->  ( -.  ph 
->  -.  ( ( th 
->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )  ->  ph )  ->  ph ) )
1311, 12ax-mp 5 . 2  |-  ( ( ( ( ps  ->  ps )  ->  ( -.  ph 
->  -.  ( ( th 
->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )  ->  ph )  ->  ph )
14 meredith 1566 . 2  |-  ( ( ( ( ( ps 
->  ps )  ->  ( -.  ph  ->  -.  (
( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph ) ) )  ->  ph )  ->  ph )  ->  ( ( ph  ->  ps )  ->  ( (
( th  ->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  ps ) ) )
1513, 14ax-mp 5 1  |-  ( (
ph  ->  ps )  -> 
( ( ( th 
->  ( -.  -.  ch  ->  ch ) )  ->  -.  -.  ph )  ->  ps ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8
This theorem is referenced by:  luk-1  1580
  Copyright terms: Public domain W3C validator