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

actuall make do_step work on heap_step goals

parent fb144483
No related branches found
No related tags found
No related merge requests found
......@@ -83,4 +83,7 @@ Ltac do_step tac :=
eapply Ectx_step with K e1' _; [reflexivity|reflexivity|];
first [apply alloc_fresh|econstructor];
rewrite ?to_of_val; tac; fail)
| |- head_step ?e1 ?σ1 ?e2 ?σ2 ?ef =>
first [apply alloc_fresh|econstructor];
rewrite ?to_of_val; tac; fail
end.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment