2014-01-03 00:31:52 +00:00
|
|
|
SetOption pp::implicit true.
|
|
|
|
SetOption pp::colors false.
|
|
|
|
Variable N : Type.
|
|
|
|
|
|
|
|
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-05 19:03:35 +00:00
|
|
|
print Environment 1.
|