proposition: Lemma zeroExtendK extra n : pcancel (@zeroExtend extra n) (zeroTruncate extra).
proof: Proof. move => p. by rewrite /zeroExtend/zeroTruncate split2app eq_refl. 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