diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-07-21 12:16:27 +0200 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-07-21 12:16:27 +0200 |
commit | 9ce1b23f6361d8070490df1269a7bc53aa215efb (patch) | |
tree | 264365faee227986865bad3940ffb5e112c7adf0 /scheduling/BTL_SEimpl.v | |
parent | 8663f220ec0b0f10e74ae7442cdf221a83fc3943 (diff) | |
download | compcert-kvx-9ce1b23f6361d8070490df1269a7bc53aa215efb.tar.gz compcert-kvx-9ce1b23f6361d8070490df1269a7bc53aa215efb.zip |
expansions btl proofs
Diffstat (limited to 'scheduling/BTL_SEimpl.v')
-rw-r--r-- | scheduling/BTL_SEimpl.v | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/scheduling/BTL_SEimpl.v b/scheduling/BTL_SEimpl.v index 3050f2e2..7711c72d 100644 --- a/scheduling/BTL_SEimpl.v +++ b/scheduling/BTL_SEimpl.v @@ -613,7 +613,11 @@ Proof. { wlp_simplify; exploit is_move_operation_correct; eauto. intros (Hop & Hlsv); subst; simpl in *. inv REF. simplify_SOME z; erewrite H; eauto. } - wlp_simplify; inv REF. erewrite H0; eauto. + destruct (target_op_simplify _ _ _) eqn: Htarget_op_simp; wlp_simplify. + { destruct (eval_list_sval _ _) eqn: OKlist; try congruence. + rewrite <- H; exploit target_op_simplify_correct; eauto. } + inv REF; clear Htarget_op_simp. + intuition eauto. - (* Rload *) destruct trap; wlp_simplify; inv REF. + erewrite H0; eauto. |