2014-01-03 00:08:32 +00:00
|
|
|
Set: pp::colors
|
|
|
|
|
Set: pp::unicode
|
|
|
|
|
Set: lean::pp::implicit
|
|
|
|
|
Set: pp::colors
|
|
|
|
|
Assumed: N
|
|
|
|
|
λ (a : N) (f : N → N) (H : f a == a),
|
2014-01-06 03:10:21 +00:00
|
|
|
let calc1 : f a == a := @substp N (f a) a (λ x : N, f a == x) (@refl N (f a)) H in calc1 :
|
2014-01-08 08:38:39 +00:00
|
|
|
∀ (a : N) (f : N → N), f a == a → f a == a
|
