fact: Parameter min_correct : forall x y, match classify x, classify y with | Fnan, _ | _, Fnan => classify (min x y) = Fnan | Fminfty, _ | _, Fminfty => classify (min x y) = Fminfty | Fpinfty, _ => min x y = y | _, Fpinfty => min x y = x | Freal, Freal => toX (min x y) = Xmin (toX x) (toX y) end.
imports: Coq(ZArith Reals) Flocq(Zaux Raux) Xreal Basic