diff options
author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-03-01 13:51:45 +0100 |
---|---|---|
committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-03-01 13:51:45 +0100 |
commit | b0c6449c57a92fa0ba67dd7c9a98ffcc8e5d8bb6 (patch) | |
tree | 76a9e7f0bbfd4b334c2ce22e389b965b84970f58 /x86/SelectOpproof.v | |
parent | 8675997219a5883ca639429639b2ab0edff16aa2 (diff) | |
parent | 9d3521b4db46773239a2c5f9f6970de826075508 (diff) | |
download | compcert-kvx-b0c6449c57a92fa0ba67dd7c9a98ffcc8e5d8bb6.tar.gz compcert-kvx-b0c6449c57a92fa0ba67dd7c9a98ffcc8e5d8bb6.zip |
Merge remote-tracking branch 'absint/master' into merge_absint
Diffstat (limited to 'x86/SelectOpproof.v')
-rw-r--r-- | x86/SelectOpproof.v | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/x86/SelectOpproof.v b/x86/SelectOpproof.v index c43beb56..f0a11780 100644 --- a/x86/SelectOpproof.v +++ b/x86/SelectOpproof.v @@ -1046,7 +1046,12 @@ Theorem eval_platform_builtin: platform_builtin_sem bf vl = Some v -> exists v', eval_expr ge sp e m le a v' /\ Val.lessdef v v'. Proof. - intros. discriminate. + intros until le. intros SEL ARGS SEM. + destruct bf; try discriminate. + - inv ARGS; try discriminate. inv H0; try discriminate. inv H2; try discriminate. + inv SEL. inv SEM. exists (minf v1 v0); split; auto. EvalOp. + - inv ARGS; try discriminate. inv H0; try discriminate. inv H2; try discriminate. + inv SEL. inv SEM. exists (maxf v1 v0); split; auto. EvalOp. Qed. End CMCONSTR. |