proposition: Lemma size_algRpfactor x : size (algRpfactor x) = (x \isn't Num.real).+2.
proof: Proof. by have := size_algCpfactor x; rewrite size_map_poly. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_fingroup all_algebra) mathcomp(all_solvable all_field) Abel(various)