diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2021-02-02 13:33:43 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2021-02-02 13:33:43 +0100 |
| commit | a47d709fd9251f58032444fde27a3ad7e947c26d (patch) | |
| tree | 8270330b3037657d5b5b28bb722ed4dd283ae0cf /riscV/ExtValues.v | |
| parent | 7afc85c95aaec5cc0935733cac487e13f114cc46 (diff) | |
| download | compcert-kvx-a47d709fd9251f58032444fde27a3ad7e947c26d.tar.gz compcert-kvx-a47d709fd9251f58032444fde27a3ad7e947c26d.zip | |
Pselectd
Diffstat (limited to 'riscV/ExtValues.v')
| -rw-r--r-- | riscV/ExtValues.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/riscV/ExtValues.v b/riscV/ExtValues.v index 3f283cdc..aebbe5c5 100644 --- a/riscV/ExtValues.v +++ b/riscV/ExtValues.v @@ -101,3 +101,13 @@ Proof. rewrite Int.eq_false. reflexivity. cbv. discriminate. Qed. + +Lemma float_bits_normalize: + forall v1, + ExtValues.float_of_bits (Val.normalize (ExtValues.bits_of_float v1) AST.Tlong) = + Val.normalize v1 AST.Tfloat. +Proof. + destruct v1; cbn; trivial. + f_equal. + apply Float.of_to_bits. +Qed. |