2014-01-09 08:33:52 -08:00
|
|
|
set_option pp::implicit true.
|
|
|
|
set_option pp::colors false.
|
2014-01-05 12:05:08 -08:00
|
|
|
variable N : Type.
|
2014-01-02 16:08:32 -08:00
|
|
|
|
2014-01-05 12:05:08 -08:00
|
|
|
check
|
2014-01-16 15:07:51 -08:00
|
|
|
fun (a : N) (f : N -> N) (H : f a = a),
|
|
|
|
let calc1 : f a = a := substp (fun x : N, f a = _) (refl (f a)) H
|
2014-01-02 16:08:32 -08:00
|
|
|
in calc1.
|