diff options
| author | Léo Gourdin <leo.gourdin@lilo.org> | 2021-07-27 11:22:33 +0200 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@lilo.org> | 2021-07-27 11:22:33 +0200 |
| commit | 70ed73cba9347b398c509488051ae54d193eb875 (patch) | |
| tree | 0dfe7586746d4d8acd76ddf28512abc8d94e4188 /scheduling/BTL_Livecheck.v | |
| parent | 0b076ef6eb5553be43ce81c27e438f632b17cb32 (diff) | |
| parent | b063fb03af84483671833d40491f4fa8d2c8b4c9 (diff) | |
| download | compcert-kvx-70ed73cba9347b398c509488051ae54d193eb875.tar.gz compcert-kvx-70ed73cba9347b398c509488051ae54d193eb875.zip | |
Merge branch 'BTL-SEimpl' of gricad-gitlab.univ-grenoble-alpes.fr:sixcy/CompCert into BTL-SEimpl
Diffstat (limited to 'scheduling/BTL_Livecheck.v')
| -rw-r--r-- | scheduling/BTL_Livecheck.v | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/scheduling/BTL_Livecheck.v b/scheduling/BTL_Livecheck.v index 9f96e74e..d200b9bd 100644 --- a/scheduling/BTL_Livecheck.v +++ b/scheduling/BTL_Livecheck.v @@ -546,12 +546,14 @@ Proof. - (* Bload *) erewrite <- eqlive_reg_listmem; eauto. try_simplify_someHyps; intros. - rewrite LOAD; eauto. - repeat econstructor. - apply eqlive_reg_update. - eapply eqlive_reg_monotonic; eauto. - intros r0; rewrite regset_add_spec. - intuition. + destruct trap; inv LOAD; + rewrite EVAL, LOAD0 || (autodestruct; try rewrite LOAD0; auto). + all: + repeat econstructor; + apply eqlive_reg_update; + eapply eqlive_reg_monotonic; eauto; + intros r0; rewrite regset_add_spec; + intuition. - (* Bstore *) erewrite <- eqlive_reg_listmem; eauto. rewrite <- (REGS src); auto. |