2014-01-01 14:01:12 -08:00
|
|
|
Import macros.
|
|
|
|
|
|
|
|
Theorem simple (p q r : Bool) : (p ⇒ q) ∧ (q ⇒ r) ⇒ p ⇒ r
|
2014-01-03 18:11:01 -08:00
|
|
|
:= Assume H_pq_qr H_p,
|
2013-09-04 05:39:35 -07:00
|
|
|
let P_pq := Conjunct1 H_pq_qr,
|
|
|
|
P_qr := Conjunct2 H_pq_qr,
|
|
|
|
P_q := MP P_pq H_p
|
2014-01-01 14:01:12 -08:00
|
|
|
in MP P_qr P_q.
|
2013-09-03 18:00:30 -07:00
|
|
|
|
2014-01-01 14:01:12 -08:00
|
|
|
SetOption pp::implicit true.
|
|
|
|
Show Environment 1.
|
2013-09-03 18:00:30 -07:00
|
|
|
|
2014-01-01 14:01:12 -08:00
|
|
|
Theorem simple2 (a b c : Bool) : (a ⇒ b ⇒ c) ⇒ (a ⇒ b) ⇒ a ⇒ c
|
2014-01-03 18:11:01 -08:00
|
|
|
:= Assume H_abc H_ab H_a,
|
2013-09-04 05:39:35 -07:00
|
|
|
let P_b := (MP H_ab H_a),
|
|
|
|
P_bc := (MP H_abc H_a)
|
2014-01-01 14:01:12 -08:00
|
|
|
in MP P_bc P_b.
|
2013-09-04 05:39:35 -07:00
|
|
|
|
2014-01-01 14:01:12 -08:00
|
|
|
Show Environment 1.
|