proposition: Lemma dim_Fadjoin : \dim <<K; x>> = (n * \dim K)%N.
proof: Proof. by rewrite adjoin_degreeE -dim_sup_field ?subv_adjoin. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq div) mathcomp(choice fintype tuple finfun bigop ssralg countalg) mathcomp(finalg zmodp matrix vector falgebra poly polydiv) mathcomp(mxpoly generic_quotient)