proposition: Lemma toZp_inj n : injective (@toZp n).
proof: Proof. apply (can_inj (@toZpK _)). Qed.
imports: Coq(ZArith.ZArith) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq fintype tuple div zmodp ssralg) ssrextra.nat ssrextra.tuple spec.spec