fact: Definition Fplus_core m1 e1 m2 e2 e := let k := (e - e2)%Z in let '(m2', _, l) := if Zlt_bool 0 k then truncate_aux beta (m2, e2, loc_Exact) k else (m2 * Zpower beta (-k), e, loc_Exact)%Z in let m1' := (m1 * Zpower beta (e1 - e))%Z in (m1' + m2', l)%Z.
imports: Coq(ZArith Reals Lia) Core Bracket Operations Round