diff options
| author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-02-12 12:06:32 +0100 |
|---|---|---|
| committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-02-12 12:06:32 +0100 |
| commit | 50377ef4b9430fa019e26fac3028739f0308e9b1 (patch) | |
| tree | 4a2ce2c21c96f5ba04787f0d8bccb8bb8784d894 /kvx/SelectLongproof.v | |
| parent | 5ba8c76d3eaf78d1a57678af5d9b006e29c4a02f (diff) | |
| download | compcert-kvx-50377ef4b9430fa019e26fac3028739f0308e9b1.tar.gz compcert-kvx-50377ef4b9430fa019e26fac3028739f0308e9b1.zip | |
unsigned long -> float without function calls
Diffstat (limited to 'kvx/SelectLongproof.v')
| -rw-r--r-- | kvx/SelectLongproof.v | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/kvx/SelectLongproof.v b/kvx/SelectLongproof.v index a88863b4..b858158b 100644 --- a/kvx/SelectLongproof.v +++ b/kvx/SelectLongproof.v @@ -939,7 +939,10 @@ Qed. Theorem eval_singleoflongu: partial_unary_constructor_sound singleoflongu Val.singleoflongu. Proof. unfold singleoflongu; red; intros. - eapply SplitLongproof.eval_singleoflongu; eauto. + destruct use_inlined_fp_conversions. + - econstructor. split. apply FPExtra.e_single_of_longu_correct. + eassumption. rewrite H0. cbn. constructor. + - eapply SplitLongproof.eval_singleoflongu; eauto. Qed. End CMCONSTR. |