2014-01-09 16:33:52 +00:00
|
|
|
set_option pp::implicit true.
|
|
|
|
|
set_option pp::colors false.
|
2014-01-05 20:05:08 +00:00
|
|
|
variable N : Type.
|
2014-01-03 00:31:52 +00:00
|
|
|
|
2014-01-16 23:07:51 +00:00
|
|
|
definition T (a : N) (f : _ -> _) (H : f a = a) : f (f _) = f _ :=
|
|
|
|
|
substp (fun x : N, f (f a) = _) (refl (f (f _))) H.
|
2014-01-03 00:31:52 +00:00
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
print environment 1.
|
