5 lines
253 B
Text
5 lines
253 B
Text
Set: pp::colors
|
|
Set: pp::unicode
|
|
Proved: simple
|
|
theorem simple (p q r : Bool) (H_pq_qr : (p → q) ∧ (q → r)) (H_p : p) : r :=
|
|
let P_pq : p → q := and::eliml H_pq_qr, P_qr : q → r := and::elimr H_pq_qr, P_q : q := P_pq H_p in P_qr P_q
|