Skip to content
Snippets Groups Projects
Commit 5470da51 authored by Ralf Jung's avatar Ralf Jung
Browse files

less unnecessary importing

parent 531d88c1
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 2 deletions
barrier/heap_lang.v
+ 1
− 2
View file @ 5470da51
...@@ -309,7 +309,6 @@ Program Canonical Structure heap_lang : language := {| ...@@ -309,7 +309,6 @@ Program Canonical Structure heap_lang : language := {|
|}. |}.
Solve Obligations with eauto using heap_lang.to_of_val, heap_lang.of_to_val, Solve Obligations with eauto using heap_lang.to_of_val, heap_lang.of_to_val,
heap_lang.values_stuck, heap_lang.atomic_not_val, heap_lang.atomic_step. heap_lang.values_stuck, heap_lang.atomic_not_val, heap_lang.atomic_step.
Import heap_lang.
Global Instance heap_lang_ctx K : Global Instance heap_lang_ctx K :
LanguageCtx heap_lang (heap_lang.fill K). LanguageCtx heap_lang (heap_lang.fill K).
...@@ -322,6 +321,6 @@ Proof. ...@@ -322,6 +321,6 @@ Proof.
destruct (heap_lang.step_by_val destruct (heap_lang.step_by_val
K K'' e1 e1'' σ1 e2'' σ2 ef) as [K' ->]; eauto. K K'' e1 e1'' σ1 e2'' σ2 ef) as [K' ->]; eauto.
rewrite heap_lang.fill_app in Heq1; apply (injective _) in Heq1. rewrite heap_lang.fill_app in Heq1; apply (injective _) in Heq1.
exists (fill K' e2''); rewrite heap_lang.fill_app; split; auto. exists (heap_lang.fill K' e2''); rewrite heap_lang.fill_app; split; auto.
econstructor; eauto. econstructor; eauto.
Qed. Qed.
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment