fact: Definition cmp_aux2 m1 e1 m2 e2 := let d1 := mantissa_digits m1 in let d2 := mantissa_digits m2 in match exponent_cmp (exponent_add e1 d1) (exponent_add e2 d2) with | Lt => Xlt | Gt => Xgt | Eq => let nb := exponent_sub e1 e2 in match exponent_cmp nb exponent_zero with | Gt => cmp_aux1 (mantissa_shl m1 nb) m2 | Lt => cmp_aux1 m1 (mantissa_shl m2 (exponent_neg nb)) | Eq => cmp_aux1 m1 m2 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