diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2023-04-27 16:32:13 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2023-04-27 16:32:13 +0100 |
| commit | ab617cf8e6e60e8de3eb8de220f71dd05c18209f (patch) | |
| tree | 1e2da8e3edbf48d02f536a21f2cafb6167045c51 /verilog/SelectOpproof.v | |
| parent | f0867a37e28a1f3670362e7935f9ef30988ddb92 (diff) | |
| download | compcert-ab617cf8e6e60e8de3eb8de220f71dd05c18209f.tar.gz compcert-ab617cf8e6e60e8de3eb8de220f71dd05c18209f.zip | |
Diffstat (limited to 'verilog/SelectOpproof.v')
| -rw-r--r-- | verilog/SelectOpproof.v | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/verilog/SelectOpproof.v b/verilog/SelectOpproof.v index d8ab32a4..61cbf72b 100644 --- a/verilog/SelectOpproof.v +++ b/verilog/SelectOpproof.v @@ -1021,7 +1021,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. |