2014-01-05 20:05:08 +00:00
|
|
|
import macros.
|
2014-01-01 22:01:12 +00:00
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
theorem simple (p q r : Bool) : (p ⇒ q) ∧ (q ⇒ r) ⇒ p ⇒ r
|
2014-01-06 03:10:21 +00:00
|
|
|
:= assume H_pq_qr H_p,
|
|
|
|
|
let P_pq := and::eliml H_pq_qr,
|
|
|
|
|
P_qr := and::elimr H_pq_qr
|
|
|
|
|
in P_qr ◂ (P_pq ◂ H_p)
|
2013-09-04 01:00:30 +00:00
|
|
|
|
2014-01-06 05:45:31 +00:00
|
|
|
set::option pp::implicit true.
|
2014-01-05 20:05:08 +00:00
|
|
|
print environment 1.
|
2013-09-04 01:00:30 +00:00
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
theorem simple2 (a b c : Bool) : (a ⇒ b ⇒ c) ⇒ (a ⇒ b) ⇒ a ⇒ c
|
2014-01-06 03:10:21 +00:00
|
|
|
:= assume H_abc H_ab H_a,
|
|
|
|
|
(H_abc ◂ H_a) ◂ (H_ab ◂ H_a)
|
2013-09-04 12:39:35 +00:00
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
print environment 1.
|
