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:
parent
dc5553ea5c
commit
cc21bfd01d
2 changed files with 77 additions and 0 deletions
39
tests/lean/run/e8.lean
Normal file
39
tests/lean/run/e8.lean
Normal 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
38
tests/lean/run/e9.lean
Normal 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
|
||||
|
Loading…
Add table
Reference in a new issue