fact: Definition unit_pred {R : unitRingType} := Eval cbv [ unit_subdef Ring_hasMulInverse.unit_subdef ] in (fun u : R => unit_subdef u).
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq) mathcomp(choice fintype finfun bigop prime binomial)