diff options
| author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-01-24 10:07:56 +0100 |
|---|---|---|
| committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-01-24 10:07:56 +0100 |
| commit | 6e45966f1cd5ea6feadb044f2fda2e1b1c81e57c (patch) | |
| tree | 63c5343ce9ba7643b2de00bc6193bb241d0d3619 /kvx | |
| parent | db85b47c5487ddfa051b01e444d2be555013e7f7 (diff) | |
| download | compcert-kvx-6e45966f1cd5ea6feadb044f2fda2e1b1c81e57c.tar.gz compcert-kvx-6e45966f1cd5ea6feadb044f2fda2e1b1c81e57c.zip | |
progress
Diffstat (limited to 'kvx')
| -rw-r--r-- | kvx/FPDivision64.v | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/kvx/FPDivision64.v b/kvx/FPDivision64.v index 9ed12064..72ad43d1 100644 --- a/kvx/FPDivision64.v +++ b/kvx/FPDivision64.v @@ -1116,7 +1116,8 @@ Lemma step2_real_div_long_smalla_correct : (b_NOT0 : (0 < Int64.unsigned b)%Z), exists (q : float), (step2_real_div_long (Vlong a) (Vlong b)) = Vfloat q /\ - (Rabs ((B2R _ _ q) - (IZR (Int64.signed a)) / (IZR (Int64.unsigned b))) <= (32767/65536))%R. + (Rabs ((B2R _ _ q) - (IZR (Int64.signed a)) / (IZR (Int64.unsigned b))) <= (32767/65536))%R /\ + is_finite _ _ q = true. Proof. intros. unfold step2_real_div_long. @@ -1166,6 +1167,8 @@ Proof. rewrite C1S in C2. cbn in C2. destruct C2 as (C2R & C2F & _). + split. + 2: exact C2F. rewrite C2R. replace (IZR a' * (B2R 53 1024 f))%R with ((IZR a'/IZR b') * ((IZR b' * B2R 53 1024 f - 1) + 1))%R ; cycle 1. |