496189feed
See item 4 at https://groups.google.com/forum/?utm_medium=email&utm_source=footer#!msg/lean-discuss/oJXwW5wT2Ds/d1Dgr8B-pE0J See also https://github.com/leanprover/lean/pull/659
11 lines
398 B
Text
11 lines
398 B
Text
open nat
|
|
|
|
definition f (a : nat) : nat := a
|
|
definition g (a : nat) : nat := zero
|
|
|
|
example (a b : nat) :
|
|
@eq nat
|
|
(g (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f a))))))))))))))))))))))
|
|
(g (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f b))))))))))))))))))))))
|
|
:=
|
|
@eq.refl nat (g (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f a))))))))))))))))))))))
|