9 lines
164 B
Text
9 lines
164 B
Text
namespace foo
|
|
open nat
|
|
inductive nat : Type | zero, foosucc : nat → nat
|
|
check 0 + nat.zero --error
|
|
end foo
|
|
|
|
namespace foo
|
|
check nat.succ nat.zero --error
|
|
end foo
|