fact: Definition Div div (n:nat) (m:nat) : nat*nat := If n < m then (0,n) else let '(q,r) := div (n-m) m in (q+1,r).
imports: TLC(LibTactics LibLogic LibReflect LibFun LibEpsilon LibList LibInt LibNat LibProd LibSum LibRelation LibWf LibFix LibStream) ZifyNat