aboutsummaryrefslogtreecommitdiffstats
path: root/flocq/Prop/Fprop_mult_error.v
diff options
context:
space:
mode:
authorFrançois Pottier <francois.pottier@inria.fr>2015-10-23 15:08:33 +0200
committerFrançois Pottier <francois.pottier@inria.fr>2015-10-23 15:08:33 +0200
commit8b817cda643d180d43ab8c84809ca2d55c7dd3df (patch)
tree812fe2f7ec68c03c5f0762f1266f383193bbfe92 /flocq/Prop/Fprop_mult_error.v
parentc46723c0169145d41d1879c236f53314456f1ba1 (diff)
parent1cb3d93ff278ebbd0c6967c5f9401a97f9b618b4 (diff)
downloadcompcert-8b817cda643d180d43ab8c84809ca2d55c7dd3df.tar.gz
compcert-8b817cda643d180d43ab8c84809ca2d55c7dd3df.zip
Merge remote branch 'upstream/master' into clean
Conflicts: Makefile.extr
Diffstat (limited to 'flocq/Prop/Fprop_mult_error.v')
-rw-r--r--flocq/Prop/Fprop_mult_error.v5
1 files changed, 3 insertions, 2 deletions
diff --git a/flocq/Prop/Fprop_mult_error.v b/flocq/Prop/Fprop_mult_error.v
index e84e80b4..7c71627b 100644
--- a/flocq/Prop/Fprop_mult_error.v
+++ b/flocq/Prop/Fprop_mult_error.v
@@ -126,8 +126,9 @@ apply Zplus_le_compat_r.
rewrite ln_beta_unique with (1 := Hexy).
apply ln_beta_le_bpow with (1 := Hz).
replace (bpow (exy - prec)) with (ulp beta (FLX_exp prec) (x * y)).
-apply ulp_error...
-unfold ulp, canonic_exp.
+apply error_lt_ulp...
+rewrite ulp_neq_0; trivial.
+unfold canonic_exp.
now rewrite ln_beta_unique with (1 := Hexy).
apply Hc1.
reflexivity.