fact: Definition target_comSemiRingMorph (R : target_comSemiRing) : R -> R := match R with | target_nat => GRing.natmul 1 | target_N => fun n => (N.to_nat n)%:R | target_other_comSemiRing _ => id end.
imports: elpi(elpi) Coq(ZArith Ring Ring_polynom Field_theory) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat choice seq) mathcomp(fintype finfun bigop order ssralg ssrnum ssrint) mathcomp.zify(ssrZ zify) mathcomp.algebra_tactics(common)