Definition carry : fpscommring hz -> fpscommring hz := fun (a : fpscommring hz) (n : nat) => hzremaindermod m is ( precarry a n ).
Require Import UniMath.PAdics.lemmas. Require Import UniMath.PAdics.fps. Require Import UniMath.PAdics.frac. Require Import UniMath.PAdics.z_mod_p. Require Import UniMath.NumberSystems.Integers.