9800e066bc
previously, it would ignore a recursive call that has extra arguments, which can happen when the recursive functions return something of function type. Therefore just leave them extra arguments in place. Fixes #2883.
25 lines
526 B
Text
25 lines
526 B
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.
|
|
-/
|
|
|
|
mutual
|
|
inductive A : Type
|
|
| baseA : A
|
|
| fromB : B → A
|
|
|
|
inductive B : Type
|
|
| fromA : A → B
|
|
end
|
|
|
|
mutual
|
|
def foo : B → Prop
|
|
| .fromA a => bar a 0
|
|
|
|
def bar : A → Nat → Prop
|
|
| .baseA => (fun _ => True)
|
|
| .fromB b => (fun (c : Nat) => ∃ (t : Nat), foo b)
|
|
end
|
|
termination_by
|
|
foo x => sizeOf x
|
|
bar x => sizeOf x
|