fact: Definition map_double_cps {T} (ls : list Z) (k : list Z -> T) := list_rect (fun _ => (list Z -> T) -> _) (fun k => k nil) (fun x xs rec k => Let_InAx (ZAddAx x x) (fun y => rec (fun ys => k (y :: ys)))) ls k.
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