test(tests/lean/run): more tests on how to deal with ambiguity

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-06-26 09:31:27 -07:00
parent dc5553ea5c
commit cc21bfd01d
2 changed files with 77 additions and 0 deletions

39
tests/lean/run/e8.lean Normal file
View file

@ -0,0 +1,39 @@
precedence `+`:65
namespace nat
variable nat : Type.{1}
variable add : nat → nat → nat
infixl + := add
end
namespace int
using nat (nat)
variable int : Type.{1}
variable add : int → int → int
infixl + := add
variable of_nat : nat → int
coercion of_nat
end
-- Using "only" the notation and declarations from the namespaces nat and int
using [notation] nat
using [notation] int
using [decls] nat
using [decls] int
variables n m : nat
variables i j : int
check n + m
check i + j
-- The following check does not work, since we are not using the coercions
-- check n + i
-- Here is a possible trick for this kind of configuration
definition add_ni (a : nat) (b : int) := (of_nat a) + b
definition add_in (a : int) (b : nat) := a + (of_nat b)
infixl + := add_ni
infixl + := add_in
check i + n
check n + i

38
tests/lean/run/e9.lean Normal file
View file

@ -0,0 +1,38 @@
precedence `+`:65
namespace nat
variable nat : Type.{1}
variable add : nat → nat → nat
infixl + := add
end
namespace int
using nat (nat)
variable int : Type.{1}
variable add : int → int → int
infixl + := add
variable of_nat : nat → int
end
namespace int_coercions
coercion int.of_nat
end
-- Using "only" the notation and declarations from the namespaces nat and int
using nat
using int
variables n m : nat
variables i j : int
check n + m
check i + j
section
-- Temporarily use the int_coercions
using int_coercions
check n + i
end
-- The following one is an error
-- check n + i