From e856fe63e0b7c5144c3d155da33af22c722c83fb Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Wed, 25 Nov 2020 13:45:03 +0100 Subject: clever_kill_store_sound --- backend/CSE3analysisproof.v | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'backend/CSE3analysisproof.v') diff --git a/backend/CSE3analysisproof.v b/backend/CSE3analysisproof.v index 5c89c4e7..4c6b417c 100644 --- a/backend/CSE3analysisproof.v +++ b/backend/CSE3analysisproof.v @@ -1027,12 +1027,10 @@ Section SOUNDNESS. unfold sem_eq in *. simpl in *. destruct eq_op as [op' | chunk' addr']; simpl. - - admit. - (* - destruct (op_depends_on_memory op') eqn:DEPENDS. - + erewrite ctx_kill_store_has_depends_on_store in CONTAINS by eauto. - discriminate. - + rewrite op_depends_on_memory_correct with (m2:=m); trivial. - apply REL; auto. *) + - rewrite op_valid_pointer_eq with (m2 := m). + + cbn in *. + apply REL; auto. + + eapply store_preserves_validity; eauto. - simpl in REL. erewrite ctx_kill_store_has_depends_on_store in CONTAINS by eauto. simpl in CONTAINS. @@ -1041,7 +1039,7 @@ Section SOUNDNESS. + erewrite may_overlap_sound with (chunk:=chunk) (addr:=addr) (args:=args) (chunk':=chunk') (addr':=addr') (args':=eq_args); try eassumption. apply REL; auto. + apply REL; auto. - Admitted. + Qed. Hint Resolve clever_kill_store_sound : cse3. -- cgit