diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2021-02-02 16:34:28 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2021-02-02 16:34:28 +0100 |
| commit | 11018c3d46845722daf73883ce3959afdd6ac92f (patch) | |
| tree | 58676fd81274ee77d3adff8a858591ea180ae000 /riscV/ExtValues.v | |
| parent | 225e51bcf9bfe4029e0d9ca5617ad288326e68c9 (diff) | |
| download | compcert-kvx-11018c3d46845722daf73883ce3959afdd6ac92f.tar.gz compcert-kvx-11018c3d46845722daf73883ce3959afdd6ac92f.zip | |
Cmov Tsingle
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 aebbe5c5..edf359ef 100644 --- a/riscV/ExtValues.v +++ b/riscV/ExtValues.v @@ -111,3 +111,13 @@ Proof. f_equal. apply Float.of_to_bits. Qed. + +Lemma single_bits_normalize: + forall v1, + ExtValues.single_of_bits (Val.normalize (ExtValues.bits_of_single v1) AST.Tint) = + Val.normalize v1 AST.Tsingle. +Proof. + destruct v1; cbn; trivial. + f_equal. + apply Float32.of_to_bits. +Qed. |