fact: Definition isConversionPrim {T} : evalExprTypePrim T -> evalExprTypeRounded T -> Prop := match T with | Integer => fun n1 n2 => Sint63.to_Z n1 = n2 | BinFloat => fun f r => @SF2R radix2 (Prim2SF f) = r end.
imports: Coq(PrimInt63 Sint63 Floats PArray) Coq(Bool List Reals Lia Lra) Flocq(Core PrimFloat BinarySingleNaN Operations)