HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
Unicode version

Theorem nicodraw 951
Description: Axiom of Nicod from Introduction to Mathematical Philosophy B. Russell, p. 152. The axiom is recovered from this raw form by substituting (ph | ps) for -. (ph /\ ps), where | is the Sheffer stroke (NAND) connective, so that the Sheffer stroke becomes the sole connective. See nicodmpraw 952 for the inference rule. (Based on a proof by Jeff Hoffman, 19-Nov-2007.)
Assertion
Ref Expression
nicodraw |- -. (-. (ph /\ -. (ch /\ ps)) /\ -. (-. (ta /\ -. (ta /\ ta)) /\ -. (-. (th /\ ch) /\ -. (-. (ph /\ th) /\ -. (ph /\ th)))))

Proof of Theorem nicodraw
StepHypRef Expression
1 iman 237 . . . . 5 |- ((ph -> (ch /\ ps)) <-> -. (ph /\ -. (ch /\ ps)))
21biimpr 152 . . . 4 |- (-. (ph /\ -. (ch /\ ps)) -> (ph -> (ch /\ ps)))
3 pm3.26 319 . . . . 5 |- ((ch /\ ps) -> ch)
43imim2i 17 . . . 4 |- ((ph -> (ch /\ ps)) -> (ph -> ch))
5 con3 94 . . . . . . . 8 |- ((ph -> ch) -> (-. ch -> -. ph))
65imim2d 25 . . . . . . 7 |- ((ph -> ch) -> ((th -> -. ch) -> (th -> -. ph)))
7 bi2.03 165 . . . . . . . 8 |- ((th -> -. ph) <-> (ph -> -. th))
8 imnan 242 . . . . . . . 8 |- ((ph -> -. th) <-> -. (ph /\ th))
97, 8bitr2 174 . . . . . . 7 |- (-. (ph /\ th) <-> (th -> -. ph))
106, 9syl6ibr 213 . . . . . 6 |- ((ph -> ch) -> ((th -> -. ch) -> -. (ph /\ th)))
11 imnan 242 . . . . . 6 |- ((th -> -. ch) <-> -. (th /\ ch))
1210, 11syl5ibr 207 . . . . 5 |- ((ph -> ch) -> (-. (th /\ ch) -> -. (ph /\ th)))
13 iman 237 . . . . . 6 |- ((-. (th /\ ch) -> (-. (ph /\ th) /\ -. (ph /\ th))) <-> -. (-. (th /\ ch) /\ -. (-. (ph /\ th) /\ -. (ph /\ th))))
14 anidm 432 . . . . . . 7 |- ((-. (ph /\ th) /\ -. (ph /\ th)) <-> -. (ph /\ th))
1514imbi2i 185 . . . . . 6 |- ((-. (th /\ ch) -> (-. (ph /\ th) /\ -. (ph /\ th))) <-> (-. (th /\ ch) -> -. (ph /\ th)))
1613, 15bitr3 175 . . . . 5 |- (-. (-. (th /\ ch) /\ -. (-. (ph /\ th) /\ -. (ph /\ th))) <-> (-. (th /\ ch) -> -. (ph /\ th)))
1712, 16sylibr 200 . . . 4 |- ((ph -> ch) -> -. (-. (th /\ ch) /\ -. (-. (ph /\ th) /\ -. (ph /\ th))))
182, 4, 173syl 20 . . 3 |- (-. (ph /\ -. (ch /\ ps)) -> -. (-. (th /\ ch) /\ -. (-. (ph /\ th) /\ -. (ph /\ th))))
19 pm4.24 433 . . . . 5 |- (ta <-> (ta /\ ta))
2019biimp 151 . . . 4 |- (ta -> (ta /\ ta))
21 iman 237 . . . 4 |- ((ta -> (ta /\ ta)) <-> -. (ta /\ -. (ta /\ ta)))
2220, 21mpbi 189 . . 3 |- -. (ta /\ -. (ta /\ ta))
2318, 22jctil 292 . 2 |- (-. (ph /\ -. (ch /\ ps)) -> (-. (ta /\ -. (ta /\ ta)) /\ -. (-. (th /\ ch) /\ -. (-. (ph /\ th) /\ -. (ph /\ th)))))
24 iman 237 . 2 |- ((-. (ph /\ -. (ch /\ ps)) -> (-. (ta /\ -. (ta /\ ta)) /\ -. (-. (th /\ ch) /\ -. (-. (ph /\ th) /\ -. (ph /\ th))))) <-> -. (-. (ph /\ -. (ch /\ ps)) /\ -. (-. (ta /\ -. (ta /\ ta)) /\ -. (-. (th /\ ch) /\ -. (-. (ph /\ th) /\ -. (ph /\ th))))))
2523, 24mpbi 189 1 |- -. (-. (ph /\ -. (ch /\ ps)) /\ -. (-. (ta /\ -. (ta /\ ta)) /\ -. (-. (th /\ ch) /\ -. (-. (ph /\ th) /\ -. (ph /\ th)))))
Colors of variables: wff set class
Syntax hints:  -. wn 2   -> wi 3   /\ wa 223
This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7
This theorem depends on definitions:  df-bi 147  df-an 225
Copyright terms: Public domain