fact: Definition evalExprTypeFloat T := match T with | Integer => Z | BinFloat => binary_float Rrnd.prec Rrnd.emax end.
imports: Coq(PrimInt63 Sint63 Floats PArray) Coq(Bool List Reals Lia Lra) Flocq(Core PrimFloat BinarySingleNaN Operations)