proposition: Fact Op_Z_natmul_subproof (n : Z) (m : nat) : (n *+ m)%R = (n * Z.of_nat m)%Z.
proof: Proof. elim: m => [|m]; rewrite (mulr0n, mulrS); lia. Qed.
imports: Coq(ZArith ZifyClasses ZifyBool) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq path) mathcomp(div choice fintype tuple finfun bigop finset prime) mathcomp(order binomial ssralg countalg ssrnum ssrint rat) mathcomp(intdiv) mathcomp(zify_ssreflect ssrZ)