Local Lemma wmultZ_helper: forall a b k1 k2 p,
((a - k1 * p) * (b - k2 * p) = a * b - (k1 * b + k2 * a - k1 * k2 * p) * p)%Z.

Lemma wordToN_combine:
forall sz1 (w1: word sz1) sz2 (w2: word sz2),
wordToN (combine w1 w2) = (wordToN w1 + Npow2 sz1 * wordToN w2)%N.