fact: Fixpoint fast (f: nat -> Q) (left: nat) (sofar: Q): Q := match left with | O => sofar | S n => fast f n (Qred (sofar + f n)) end.
imports: CoRN.stdlib_omissions.List Coq.QArith.QArith Coq.QArith.Qabs CoRN.model.totalorder.QposMinMax CoRN.model.metric2.Qmetric Coq.Program.Program CoRN.stdlib_omissions.N CoRN.stdlib_omissions.Z CoRN.stdlib_omissions.Q