fact: Definition RrndOpToFunction OP md x y := match OP with | ADD => @Rrnd.Rnd md (x + y) | SUB => @Rrnd.Rnd md (x - y) | MUL => @Rrnd.Rnd md (x * y) | DIV => @Rrnd.Rnd md (x / y) end.
imports: Coq(PrimInt63 Sint63 Floats PArray) Coq(Bool List Reals Lia Lra) Flocq(Core PrimFloat BinarySingleNaN Operations)