2014-01-05 19:10:21 -08:00
|
|
|
import macros
|
2013-12-25 12:27:56 -08:00
|
|
|
|
2014-01-08 00:38:39 -08:00
|
|
|
theorem T (A : Type) (p : A -> Bool) (f : A -> A -> A) : forall x y z, p (f x x) → x = y → x = z → p (f y z) :=
|
|
|
|
λ x y z, λ (H1 : p (f x x)) (H2 : x = y) (H3 : x = z),
|
2014-01-05 19:10:21 -08:00
|
|
|
subst (subst H1 H2) H3
|
2013-12-25 12:27:56 -08:00
|
|
|
|
2014-01-05 12:05:08 -08:00
|
|
|
print environment 1.
|