fact: Definition allocate_points_for (n : Z) (min max : Z) (max_points : N) : list (Z * Z) := let v : Z := compress_T (n:Z, 1) in List.map (fun m => (n:Z, m)) (Zrange_max_points (Qceiling (min / v)) (Qfloor (max / v)) max_points).
imports: Coq.micromega.Lia Coq.ZArith.ZArith Coq.QArith.QArith Coq.Classes.Morphisms Coq.Setoids.Setoid Coq.Lists.List PerformanceExperiments.Harness