fact: Definition args_of_size' (k : kind_of_rewrite) (s : size) : list (Z * Z) := Eval cbv beta iota in eta_size (s' => if match s' with Sanity => true | _ => false end then [(0, 1); (0, 2); (0, 3); (1, 1); (0, 4); (0, 5); (0, 6); (1, 2)] else eta_kind (k' => Sample.generate_inputs (T:=Z*Z) (0, 1) (size_of_kind k') (Qseconds_of_size s') (Qstandard_max_seconds_of_size s') Sample.default_max_points (max_input_of_kind k')) k) s.
imports: Coq.micromega.Lia Coq.ZArith.ZArith Coq.QArith.QArith Coq.Classes.Morphisms Coq.Setoids.Setoid Coq.Lists.List PerformanceExperiments.Harness