test: mutual block not needed

This commit is contained in:
Sebastian Ullrich 2022-02-11 16:22:13 +01:00
parent c460a2e404
commit 80e2e1daa8

View file

@ -8,7 +8,6 @@ inductive TreeList (α : Type u) where
| cons : Tree α → TreeList α → TreeList α
end
mutual
def Tree.size : Tree α → Nat
| Tree.node l =>
-- see "TODO: linarith" in Init.WFTactics
@ -29,7 +28,6 @@ where sizeList : TreeList α → Nat
apply Nat.lt_succ_of_le
apply Nat.le_add_left
t.size + sizeList l
end
-- use automatically synthesized size function, which is not quite the number of leaves
termination_by
size t => sizeOf t