fact: Definition Let_app_In_nd {A B T} (f:A->B) (e:A) (C:B->T) : Let_In (f e) C = Let_In e (fun v => C (f v)) := eq_refl.
imports: Coq.ZArith.ZArith Coq.Lists.List Coq.Setoids.Setoid Coq.Classes.Morphisms Coq.QArith.QArith_base Coq.QArith.Qreduction Coq.QArith.Qround