diff options
| author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-12-16 23:27:40 +0100 |
|---|---|---|
| committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-12-16 23:27:40 +0100 |
| commit | dab5ceabe0b11daa0199a6a48c73adbee9fafb4c (patch) | |
| tree | 7f24b42db4f162cee84a3b990e18d2efefa2c472 /kvx | |
| parent | e88eb7bdf74f68c4577477650332240dabfee88e (diff) | |
| download | compcert-kvx-dab5ceabe0b11daa0199a6a48c73adbee9fafb4c.tar.gz compcert-kvx-dab5ceabe0b11daa0199a6a48c73adbee9fafb4c.zip | |
progress
Diffstat (limited to 'kvx')
| -rw-r--r-- | kvx/FPDivision.v | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/kvx/FPDivision.v b/kvx/FPDivision.v index 6fd7e14c..1b81b632 100644 --- a/kvx/FPDivision.v +++ b/kvx/FPDivision.v @@ -435,11 +435,15 @@ Proof. gappa. } + assert(0 <= prod_r <= 4294967295) as prod_r_range. + { admit. + } + replace (_ && _ ) with true; cycle 1. { symmetry. rewrite andb_true_iff. - admit. + split; apply Zle_imp_le_bool; lia. } cbn. f_equal. |