test: mutual block not needed
This commit is contained in:
parent
c460a2e404
commit
80e2e1daa8
1 changed files with 0 additions and 2 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue