diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-08-29 19:33:33 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-08-29 19:33:33 +0200 |
| commit | 51094cecd5d24023e3de2487e66765f8c54b5fcc (patch) | |
| tree | de1a40bdde10611736acebcd6124f99af1509a00 /mppa_k1c/SelectOpproof.v | |
| parent | 595db90221d4f45682ec5aaac0b485ff32af09e5 (diff) | |
| download | compcert-kvx-51094cecd5d24023e3de2487e66765f8c54b5fcc.tar.gz compcert-kvx-51094cecd5d24023e3de2487e66765f8c54b5fcc.zip | |
fmin/fmax/fminf/fmaxf non bien testés
Diffstat (limited to 'mppa_k1c/SelectOpproof.v')
| -rw-r--r-- | mppa_k1c/SelectOpproof.v | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/mppa_k1c/SelectOpproof.v b/mppa_k1c/SelectOpproof.v index e009ed98..65685201 100644 --- a/mppa_k1c/SelectOpproof.v +++ b/mppa_k1c/SelectOpproof.v @@ -1641,7 +1641,9 @@ 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. + destruct bf; intros until le; intro Heval; inversion Heval; subst a; clear Heval. + all: exists v; split; trivial; + try repeat (try econstructor; try eassumption). Qed. End CMCONSTR. |