proposition: Fact fieldOver_scale1 u : 1 *F: u = u.
proof: Proof. by rewrite /(1 *F: u) /= algid1 mul1r. 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)