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.