diff options
| author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-01-10 20:37:20 +0100 |
|---|---|---|
| committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-01-10 20:37:20 +0100 |
| commit | f09e226b326185e940517c6940e5f71abf7d4fac (patch) | |
| tree | 31118a225506d37bdfc5b59110f1509c587ee4b7 /kvx | |
| parent | d1754fa46e98ef709274c7528b0c6453a6050d9d (diff) | |
| download | compcert-kvx-f09e226b326185e940517c6940e5f71abf7d4fac.tar.gz compcert-kvx-f09e226b326185e940517c6940e5f71abf7d4fac.zip | |
progress in proof
Diffstat (limited to 'kvx')
| -rw-r--r-- | kvx/FPDivision64.v | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/kvx/FPDivision64.v b/kvx/FPDivision64.v index a241e4f0..906ad650 100644 --- a/kvx/FPDivision64.v +++ b/kvx/FPDivision64.v @@ -603,6 +603,16 @@ Proof. rewrite Zle_imp_le_bool in C4; cycle 1. { apply Znearest_le_IZR. intuition. } + cbn in C4. + change Int64.max_unsigned with 18446744073709551615%Z. + rewrite C4. + cbn. + exists (Int64.repr (ZnearestE y)). + split. reflexivity. + rewrite Int64.unsigned_repr; cycle 1. + { split. + - apply Znearest_IZR_le. intuition. + - apply Znearest_le_IZR. intuition. + } - Admitted. |