Qed. (*If things are slow, this may be the culprit *)

(* Specifications: *)
Lemma beq_float_refl : forall a, beq_float_dec a a = true.
Hint Resolve beq_float_refl : expr_beq.
Lemma beq_float32_refl : forall a, beq_float32_dec a a = true.
Hint Resolve beq_float32_refl : expr_beq.