diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-06-03 20:09:19 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-06-03 20:11:48 +0200 |
| commit | 677771949bd62f7f5bbcf99bba6b6f816f07a6c2 (patch) | |
| tree | 597b2ccc5867bc2bbb083c4e13f792671b2042c1 /arm/SelectOpproof.v | |
| parent | 36e64ee96ded0c94c83da6fb12202c276e66ba45 (diff) | |
| parent | b7e0d70de2ace6f0a22f9f65cc244d875ee48496 (diff) | |
| download | compcert-kvx-677771949bd62f7f5bbcf99bba6b6f816f07a6c2.tar.gz compcert-kvx-677771949bd62f7f5bbcf99bba6b6f816f07a6c2.zip | |
Merge branch 'if-conversion' of https://github.com/AbsInt/CompCert into mppa-if-conversion
Diffstat (limited to 'arm/SelectOpproof.v')
| -rw-r--r-- | arm/SelectOpproof.v | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/arm/SelectOpproof.v b/arm/SelectOpproof.v index 212bcfd7..f7dd8dd6 100644 --- a/arm/SelectOpproof.v +++ b/arm/SelectOpproof.v @@ -738,6 +738,22 @@ Proof. intros; red; intros. unfold compfs. TrivialExists. Qed. +Theorem eval_select: + forall le ty cond al vl a1 v1 a2 v2 a b, + select ty cond al a1 a2 = Some a -> + eval_exprlist ge sp e m le al vl -> + eval_expr ge sp e m le a1 v1 -> + eval_expr ge sp e m le a2 v2 -> + eval_condition cond vl m = Some b -> + exists v, + eval_expr ge sp e m le a v + /\ Val.lessdef (Val.select (Some b) v1 v2 ty) v. +Proof. + unfold select; intros. + destruct (match ty with Tint | Tfloat | Tsingle => true | _ => false end); inv H. + rewrite <- H3; TrivialExists. +Qed. + Theorem eval_cast8signed: unary_constructor_sound cast8signed (Val.sign_ext 8). Proof. red; intros until x. unfold cast8signed; case (cast8signed_match a); intros. |