fact: Definition make_lets_def (n : nat) (v : Z) (acc : Z) := @nat_rect (fun _ => Z * Z -> Z) (fun '(v, acc) => acc + acc + v) (fun _ rec '(v, acc) => dlet acc := acc + acc + v in rec (v, acc)) n (v, acc).
imports: Coq.micromega.Lia Coq.ZArith.ZArith Coq.QArith.QArith Coq.Classes.Morphisms Coq.Setoids.Setoid Coq.Lists.List PerformanceExperiments.Harness PerformanceExperiments.LetIn PerformanceExperiments.ListRectInstances