fact: Definition Qred_to_precision (v : Q) (max_lg2_denominator : N) : Q := let v := Qred v in if (max_lg2_denominator <? N.log2 (Qden v))%N then Qred (Qround (v * 2^max_lg2_denominator) / 2^max_lg2_denominator) else v.
imports: Coq.Strings.String Coq.Structures.Orders Coq.micromega.Lia Coq.Bool.Bool Coq.Sorting.Mergesort Coq.QArith.QArith Coq.QArith.Qround Coq.QArith.Qabs Coq.QArith.Qminmax Coq.NArith.NArith Coq.ZArith.ZArith Coq.Arith.Arith Coq.Lists.List PerformanceExperiments.LetIn