23 lines
359 B
Text
23 lines
359 B
Text
prelude
|
|
constant int : Type.{1}
|
|
constant nat : Type.{1}
|
|
namespace int
|
|
constant plus : int → int → int
|
|
end int
|
|
|
|
namespace nat
|
|
constant plus : nat → nat → nat
|
|
end nat
|
|
|
|
open int nat
|
|
|
|
constants a b : int
|
|
|
|
|
|
check plus a b
|
|
|
|
constant f : int → int → int
|
|
constant g : nat → nat → int
|
|
notation A `+`:65 B:65 := f A (g B B)
|
|
constant n : nat
|
|
check a + n
|