16 lines
366 B
Text
16 lines
366 B
Text
--
|
|
macro_rules | `($x + $y) => `(binop% HAdd.hAdd $x $y)
|
|
macro_rules | `($x ^ $y) => `(binop% HPow.hPow $x $y)
|
|
|
|
mutual
|
|
|
|
def h (x : Nat) : Int:=
|
|
match x with
|
|
| 0 => 1
|
|
--v textDocument/definition
|
|
| x+1 => r x + r x + h x ^ 2
|
|
--^ textDocument/definition
|
|
--^ textDocument/definition
|
|
|
|
def r (x : Nat) := x + 1
|
|
end
|