fact: Definition cmp (f1 f2 : type) := match f1, f2 with | Fnan, _ => Xund | _, Fnan => Xund | Float m1 e1, Float m2 e2 => match mantissa_sign m1, mantissa_sign m2 with | Mzero, Mzero => Xeq | Mzero, Mnumber true _ => Xgt | Mzero, Mnumber false _ => Xlt | Mnumber true _, Mzero => Xlt | Mnumber false _, Mzero => Xgt | Mnumber true _, Mnumber false _ => Xlt | Mnumber false _, Mnumber true _ => Xgt | Mnumber true p1, Mnumber true p2 => cmp_aux2 p2 e2 p1 e1 | Mnumber false p1, Mnumber false p2 => cmp_aux2 p1 e1 p2 e2 end end.
imports: Coq(ZArith Reals Lia Bool Psatz) Flocq(Zaux Raux Digits Bracket) mathcomp.ssreflect(ssrbool) Xreal Basic Generic Generic_proof Sig Specific_sig