pieuvre/tests/cut-impl.8pus

11 lines
125 B
Plaintext

(A -> B -> C) -> (B -> A -> C)
intro f.
intro b.
intro a.
cut (B -> C).
intro bc.
apply bc.
assumption.
apply f.
assumption.