fact: Parameter mul_UP_correct : forall p x y, ((is_non_neg' x /\ is_non_neg' y) \/ (is_non_pos' x /\ is_non_pos' y) \/ (is_non_pos_real x /\ is_non_neg_real y) \/ (is_non_neg_real x /\ is_non_pos_real y)) -> valid_ub (mul_UP p x y) = true /\ le_upper (Xmul (toX x) (toX y)) (toX (mul_UP p x y)).
imports: Coq(ZArith Reals) Flocq(Zaux Raux) Xreal Basic