10 lines
No EOL
330 B
Text
10 lines
No EOL
330 B
Text
-- Annotating lemmas
|
|
|
|
theorem simple (p q r : Bool) : (p ⇒ q) ∧ (q ⇒ r) ⇒ p ⇒ r :=
|
|
discharge (λ H_pq_qr, discharge (λ H_p,
|
|
let P_pq : (p ⇒ q) := and::eliml H_pq_qr,
|
|
P_qr : (q ⇒ r) := and::elimr H_pq_qr,
|
|
P_q : q := mp P_pq H_p
|
|
in mp P_qr P_q))
|
|
|
|
print environment 1 |