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