Commit 6f1742d8 authored by Guillaume Melquiond's avatar Guillaume Melquiond

Fixed statement to match the new one.

parent 88a7663e
......@@ -23,7 +23,7 @@ Theorem round_FIX_correct :
(e <= emin)%Z \/ l = loc_Exact ->
let '(m', e', l') := round_FIX (m, e, l) in
inbetween_float beta m' e' x l' /\
(e' = canonic_exponent beta (FIX_exp emin) x \/ format x).
(e' = canonic_exponent beta (FIX_exp emin) x \/ (l = loc_Exact /\ format x)).
Proof.
intros x m e l H1 H2.
unfold round_FIX.
......@@ -47,9 +47,11 @@ destruct H2 as [H2|H2].
left.
omega.
right.
split.
exact H2.
rewrite H2 in H1.
inversion_clear H1.
rewrite H.
rewrite H.
apply generic_format_canonic_exponent.
unfold canonic_exponent.
omega.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment