260eaebf4e
The `packMutual` code ought to reliably replace all recursive calls to the functions in `preDefs`, even when they are under- or over-applied. Therefore eta-expand if need rsp. keep extra arguments around. Needs a tweak to `Meta.transform` to avoid mistaking the `f` in `f x1 x2` as a zero-arity application. Includes a test case. This fixes #2628 and #2883.
108 lines
2.1 KiB
Text
108 lines
2.1 KiB
Text
/-!
|
||
Test that PackMutual isn't confused when a recursive call has more arguments than is packed
|
||
into the unary argument, which can happen if the retturn type is a function type.
|
||
-/
|
||
|
||
namespace Ex1
|
||
mutual
|
||
def foo : Nat → Nat
|
||
| .zero => 0
|
||
| .succ n => (id bar) n
|
||
def bar : Nat → Nat
|
||
| .zero => 0
|
||
| .succ n => foo n
|
||
end
|
||
termination_by foo n => n; bar n => n
|
||
decreasing_by sorry
|
||
|
||
end Ex1
|
||
|
||
-- Same for n-ary functions
|
||
|
||
opaque id' : ∀ {α}, α → α := id
|
||
|
||
namespace Ex2
|
||
|
||
mutual
|
||
def foo : Nat → Nat → Nat
|
||
| .zero, _m => 0
|
||
| .succ n, .zero => (id' (bar n)) .zero
|
||
| .succ n, m => (id' bar) n m
|
||
def bar : Nat → Nat → Nat
|
||
| .zero, _m => 0
|
||
| .succ n, m => foo n m
|
||
end
|
||
termination_by foo n m => (n,m); bar n m => (n,m)
|
||
decreasing_by sorry
|
||
|
||
end Ex2
|
||
|
||
-- With extra arguments
|
||
|
||
namespace Ex3
|
||
mutual
|
||
def foo : Nat → Nat → Nat
|
||
| .zero => fun _ => 0
|
||
| .succ n => fun m => (id bar) n m
|
||
def bar : Nat → Nat → Nat
|
||
| .zero => fun _ => 0
|
||
| .succ n => fun m => foo n m
|
||
end
|
||
termination_by foo n => n; bar n => n
|
||
decreasing_by sorry
|
||
|
||
end Ex3
|
||
|
||
-- n-ary and with extra arguments
|
||
|
||
namespace Ex4
|
||
|
||
mutual
|
||
def foo : Nat → Nat → Nat → Nat
|
||
| .zero, _m => fun _ => 0
|
||
| .succ n, .zero => fun k => (id' (bar n)) .zero k
|
||
| .succ n, m => fun k => (id' bar) n m k
|
||
def bar : Nat → Nat → Nat → Nat
|
||
| .zero, _m => fun _ => 0
|
||
| .succ n, m => fun k => foo n m k
|
||
end
|
||
termination_by foo n m => (n,m); bar n m => (n,m)
|
||
decreasing_by sorry
|
||
|
||
end Ex4
|
||
|
||
-- Check that eta-expansion works even if the function does not
|
||
-- have a function type
|
||
namespace Ex5
|
||
def FunType := Nat → Nat
|
||
|
||
mutual
|
||
def foo : FunType
|
||
| .zero => 0
|
||
| .succ n => (id bar) n
|
||
def bar : Nat → Nat
|
||
| .zero => 0
|
||
| .succ n => foo n
|
||
end
|
||
termination_by foo n => n; bar n => n
|
||
decreasing_by sorry
|
||
|
||
end Ex5
|
||
|
||
|
||
namespace Ex6
|
||
def Fun3Type := Nat → Nat → Nat
|
||
|
||
mutual
|
||
def foo : Nat → Nat → Nat → Nat
|
||
| .zero, _m => fun _ => 0
|
||
| .succ n, .zero => fun k => (id' (bar n)) .zero k
|
||
| .succ n, m => fun k => (id' bar) n m k
|
||
def bar : Nat → Fun3Type
|
||
| .zero, _m => fun _ => 0
|
||
| .succ n, m => fun k => foo n m k
|
||
end
|
||
termination_by foo n m => (n,m); bar n m => (n,m)
|
||
decreasing_by sorry
|
||
|
||
end Ex6
|