fact: Record prefreeg : Type := mkPrefreeg { seq_of_prefreeg : seq (G * K); _ : reduced seq_of_prefreeg }.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype bigop order generic_quotient) mathcomp(ssralg ssrnum ssrint)