Commit 70fcbb3c authored by Ralf Jung's avatar Ralf Jung

actuall make do_step work on heap_step goals

parent fb144483
......@@ -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.
Markdown is supported
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