fact: Definition aks_param n l := let a := l ^ 2 in let k := 2%N in let c := (l * (a ^ 2))./2 in if l <= 1 then nice n else aks_param_search n a k c.
imports: mathcomp(all_ssreflect all_fingroup all_field) mathcomp(ssralg finalg poly polydiv zmodp vector qpoly) more_thm rootn lcm_lbound