lean2/tests/lean/errors.lean

38 lines
534 B
Text

namespace foo
definition tst1 : nat → nat → nat :=
a + b -- ERROR
check tst1
definition tst2 : nat → nat → nat :=
begin
intro a,
intro b,
cases nat.add wth (a, b), -- ERROR
exact a,
exact b,
end
section
parameter A : Type
definition tst3 : A → A → A :=
begin
intro a,
apply b, -- ERROR
exact a
end
check tst3
end
end foo
open nat
noncomputable definition bla : nat :=
foo.tst1 0 0 + foo.tst2 0 0 + foo.tst3 nat 1 1
check foo.tst1
check foo.tst2
check foo.tst3