From 2867dee21f6fb696db554679d8535306c7a9d4ea Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Mon, 14 Feb 2022 18:15:17 +0100 Subject: long -> single precision float done with instructions --- kvx/SelectLongproof.v | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'kvx/SelectLongproof.v') diff --git a/kvx/SelectLongproof.v b/kvx/SelectLongproof.v index b858158b..ca32d69a 100644 --- a/kvx/SelectLongproof.v +++ b/kvx/SelectLongproof.v @@ -933,7 +933,10 @@ Qed. Theorem eval_singleoflong: partial_unary_constructor_sound singleoflong Val.singleoflong. Proof. unfold singleoflong; red; intros. - eapply SplitLongproof.eval_singleoflong; eauto. + destruct use_inlined_fp_conversions. + - econstructor. split. apply FPExtra.e_single_of_long_correct. + eassumption. rewrite H0. cbn. constructor. + - eapply SplitLongproof.eval_singleoflong; eauto. Qed. Theorem eval_singleoflongu: partial_unary_constructor_sound singleoflongu Val.singleoflongu. -- cgit