diff options
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. |