proposition: Lemma hzqrandcarryr ( a : fpscommring hz ) ( n : nat ) : carry a n = hzremaindermod m is ( carry a n ).
proof: Proof. intros. apply ( hzqrtestr m is ( carry a n ) 0 ( carry a n ) ). split. - apply hzqrandcarryeq. - apply hzqrandcarryineq. Defined.
imports: UniMath.PAdics.lemmas UniMath.PAdics.fps UniMath.PAdics.frac UniMath.PAdics.z_mod_p UniMath.NumberSystems.Integers