fact: Definition carryterm (w fw:Z) (t:Z * Z) := if (Z.eqb (fst t) w) then dlet t2 := snd t in dlet d2 := t2 / fw in dlet m2 := t2 mod fw in [(w * fw, d2);(w,m2)] else [t].
imports: Coq.ZArith.ZArith Coq.Lists.List Coq.Setoids.Setoid Coq.Classes.Morphisms Coq.QArith.QArith_base Coq.QArith.Qreduction Coq.QArith.Qround