fact: Definition algRpfactor (x : algC) : {poly algR} := if x \is Num.real =P true is ReflectT xR then 'X - (in_algR xR)%:P else 'X^2 - (in_algR (Creal_Re x) *+ 2) *: 'X + ((in_algR (normr_real x))^+2)%:P.
imports: HB(structures) mathcomp(all_ssreflect all_fingroup all_algebra) mathcomp(all_solvable all_field) Abel(various)