fact: Definition answer (n : positive) (r : ARbigD) : bigZ := let m := iter_pos _ (Pmult 10) 1%positive n in let (a, b) := (approximate r (Qpos2QposInf (1#m)) : bigD) * 'Zpos m in BigZ.shiftl a b.
imports: Bignums.BigZ.BigZ CRArith model.totalorder.QposMinMax ARbigD ARbigQ ARQ ARtrans ARsign