Commit d313ddeb by Heiko Becker

parent 4aeb41a8
 ... ... @@ -402,6 +402,8 @@ Proof. assert (0 <= RmaxAbsFun (Q2R e1lo, Q2R e1hi) * Q2R err2)%R as zero_up_nR1 by lra. assert (RmaxAbsFun (Q2R e1lo, Q2R e1hi) * Q2R err2 <= RmaxAbsFun (Q2R e1lo, Q2R e1hi) * Q2R err2 + RmaxAbsFun (Q2R e2lo, Q2R e2hi) * Q2R err1)%R as nR1_to_sum by lra. assert (RmaxAbsFun (Q2R e1lo, Q2R e1hi) * Q2R err2 + RmaxAbsFun (Q2R e2lo, Q2R e2hi) * Q2R err1 <= RmaxAbsFun (Q2R e1lo, Q2R e1hi) * Q2R err2 + RmaxAbsFun (Q2R e2lo, Q2R e2hi) * Q2R err1 + Q2R err1 * Q2R err2)%R as sum_to_errsum by lra. clear e1_real e1_float e2_real e2_float eval_real eval_float valid_error absenv_e1 absenv_e2. (* Large case distinction for a) different cases of the value of Rabs (...) and b) wether arguments of multiplication in (nf1 * nF2) are < or >= 0 *) ... ... @@ -722,6 +724,7 @@ Proof. apply H. lra. } (* All positive *) + assert (nF1 <= Q2R err1 + nR1)%R by lra. assert (nF2 <= Q2R err2 + nR2)%R by lra. unfold Rabs. ... ... @@ -790,7 +793,7 @@ Proof. rewrite Rmult_comm. eapply Rmult_le_compat_neg_l. lra. assert (nR1 - Q2R err1 <= nF1)%R by lra. ` assert (nR1 - Q2R err1 <= nF1)%R by lra. apply H1. lra. } ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!