fact: Definition Bsqrt m x := match x with | B754_nan => B754_nan | B754_infinity false => x | B754_infinity true => B754_nan | B754_finite true _ _ _ => B754_nan | B754_zero _ => x | B754_finite sx mx ex Hx => SF2B _ (proj1 (Bsqrt_correct_aux m mx ex Hx)) end.
imports: Coq(ZArith Reals Psatz SpecFloat) Core Round Bracket Operations Div Sqrt Relative