fact: Definition Fscale2 {beta} (f : float beta) d := match f with | Float s m e => match radix_val beta, d with | Zpos (xO xH), _ => Float s m (e + d) | _, Z0 => f | _, Zpos nb => Float s (iter_pos (fun x => xO x) nb m) e | Zpos (xO r), Zneg nb => Float s (iter_pos (fun x => Pmult r x) nb m) (e + d) | _, _ => Fnan end | _ => f end.
imports: Coq(Reals Bool ZArith) Flocq(Zaux Raux Div Sqrt) Xreal Basic