proposition: Fact conj_subproof u : integralOver QtoL (conjL (CtoL u)).
proof: Proof. have [p mon_p pu0] := CtoL_P u; exists p => //. rewrite -(fmorph_root conjL) conjL_K map_poly_id // => _ /(nthP 0)[j _ <-]. by rewrite coef_map fmorph_rat. Qed.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq choice) mathcomp(div fintype path bigop finset prime order ssralg) mathcomp(poly polydiv mxpoly generic_quotient countalg) mathcomp(ssrnum closed_field ssrint archimedean rat intdiv) mathcomp(algebraics_fundamentals)