18 lines
313 B
Text
18 lines
313 B
Text
def foo : ℕ → false
|
||
| x :=
|
||
match x with
|
||
y := let z := y in foo z /- should fail -/
|
||
end
|
||
|
||
meta def foo2 : ℕ → false
|
||
| x :=
|
||
match x with
|
||
y := let z := y in foo2 z /- should work -/
|
||
end
|
||
|
||
def boo : ℕ → ℕ → bool
|
||
| 0 m := ff
|
||
| (n + 1) m :=
|
||
match m with
|
||
o := let z := n in boo n (m+1)
|
||
end
|