pieuvre/tests/intro-and.8pus

16 lines
166 B
Plaintext

(A/\B)->(A->C)->(B->D)->(C/\D)
intro et.
intro i1.
intro i2.
split.
apply i1.
elim et.
intro a.
intro b.
assumption.
apply i2.
elim et.
intro a.
intro b.
assumption.