diff options
Diffstat (limited to 'flocq/Prop/Fprop_mult_error.v')
-rw-r--r-- | flocq/Prop/Fprop_mult_error.v | 5 |
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. |