End round_large.

(* Specifications: *)
Theorem ln_beta_round_ZR :
forall x,
(round Ztrunc x <> 0)%R ->
(ln_beta beta (round Ztrunc x) = ln_beta beta x :> Z).
Theorem ln_beta_round_ZR :
forall x,
(round Ztrunc x <> 0)%R ->
(ln_beta beta (round Ztrunc x) = ln_beta beta x :> Z).