fact: Definition Dcompare (x : float2) (y : float10) := let m := Fnum10 y in let e := Fexp10 y in match e with | Zpos p => Fcomp2 x (Float2 (m * Zpower_pos 5 p) e) | Zneg p => Fcomp2 (Float2 (Fnum x * Zpower_pos 5 p) (Fexp x)) (Float2 m e) | Z0 => Fcomp2 x (Float2 m 0) end.
imports: Flocq.Core.Defs Gappa_common