proposition: Lemma size_rp : size rp = d.
proof: Proof. have /eqp_size := ratr_p; rewrite -char0_ratrE size_map_poly. by rewrite size_prod_XsubC polySpred// => -[]. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_fingroup all_algebra) mathcomp(all_solvable all_field polyrcf) Abel(various classic_ext map_gal algR) Abel(char0 cyclotomic_ext real_closed_ext)