2014-01-05 20:05:08 +00:00
|
|
|
import tactic.
|
2014-01-02 18:53:14 +00:00
|
|
|
|
2014-01-08 08:38:39 +00:00
|
|
|
infixl 50 => : implies
|
|
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
variables a b c d e : Bool.
|
2014-01-08 08:38:39 +00:00
|
|
|
axiom H1 : a → b.
|
2014-01-05 20:05:08 +00:00
|
|
|
axiom H2 : b = c.
|
2014-01-08 08:38:39 +00:00
|
|
|
axiom H3 : c → d.
|
|
|
|
|
axiom H4 : d = e.
|
2014-01-02 18:53:14 +00:00
|
|
|
|
2014-01-08 08:38:39 +00:00
|
|
|
theorem T : a → e
|
2014-01-02 18:53:14 +00:00
|
|
|
:= calc a => b : H1
|
|
|
|
|
... = c : H2
|
2014-01-08 08:38:39 +00:00
|
|
|
... => d : H3
|
|
|
|
|
... = e : H4.
|
