diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-03 21:00:46 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-03 21:00:46 +0200 |
commit | 4032ed3192424a23dbb0a4f3bd2a539b22625168 (patch) | |
tree | d1991d95bafffbdbd0e01ed9a8dc273dd5eaa571 /mppa_k1c/SelectLongproof.v | |
parent | 015a05d8661504388ea1109f740eb16220311f93 (diff) | |
download | compcert-kvx-4032ed3192424a23dbb0a4f3bd2a539b22625168.tar.gz compcert-kvx-4032ed3192424a23dbb0a4f3bd2a539b22625168.zip |
problem in ValueAOp
Diffstat (limited to 'mppa_k1c/SelectLongproof.v')
-rw-r--r-- | mppa_k1c/SelectLongproof.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/mppa_k1c/SelectLongproof.v b/mppa_k1c/SelectLongproof.v index 11804d2e..e18de2ee 100644 --- a/mppa_k1c/SelectLongproof.v +++ b/mppa_k1c/SelectLongproof.v @@ -452,6 +452,7 @@ Proof. - InvEval. apply eval_orlimm; auto. - (*orn*) InvEval. TrivialExists; simpl; congruence. - (*orn reversed*) InvEval. rewrite Val.orl_commut. TrivialExists; simpl; congruence. + (* - (* selectl *) destruct (same_expr_pure y0 y1) eqn:PURE; simpl; try TrivialExists. predSpec Int64.eq Int64.eq_spec zero0 Int64.zero; simpl; try TrivialExists. @@ -525,7 +526,7 @@ Proof. rewrite Int64.and_mone. rewrite Int64.and_zero. rewrite Int64.or_zero. - reflexivity. + reflexivity. *) - TrivialExists. Qed. |