fact: Fixpoint make_lets_def (n : nat) (v : nat) (acc : nat) {struct n} := match n with | 0 => acc + acc + v | S n => dlet acc := acc + acc + v in make_lets_def n v acc end.
imports: Coq.Classes.Morphisms Coq.Setoids.Setoid