f0b502aca6
On issue #906, `simp` spends a lot of time checking the cache. This process is time consuming and doesn't allocate memory. Before this commit, it would take a long time to get the "maximum number of heartbeats" error message on the example included in this issue. Closes #906
12 lines
587 B
Text
12 lines
587 B
Text
-- Print a nat using well-founded recursion
|
|
def natPrintAux (n : Nat) (sink : List Char) : List Char :=
|
|
if h0 : n < 10
|
|
then (n.digitChar :: sink)
|
|
else natPrintAux (n / 10) (Nat.digitChar (n % 10) :: sink)
|
|
termination_by' measure (fun ⟨n, _⟩ => n)
|
|
decreasing_by sorry
|
|
|
|
-- I meant to write `simp only [natPrintAux]`, but accidentally referenced the current theorem
|
|
theorem natPrintAux_eq (n : Nat) (sink : List Char) :
|
|
natPrintAux n sink = if n < 10 then (n.digitChar :: sink) else natPrintAux (n / 10) (Nat.digitChar (n % 10) :: sink) := by
|
|
simp only [natPrintAux_eq]
|