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

actuall make do_step work on heap_step goals

parent fb144483
...@@ -83,4 +83,7 @@ Ltac do_step tac := ...@@ -83,4 +83,7 @@ Ltac do_step tac :=
eapply Ectx_step with K e1' _; [reflexivity|reflexivity|]; eapply Ectx_step with K e1' _; [reflexivity|reflexivity|];
first [apply alloc_fresh|econstructor]; first [apply alloc_fresh|econstructor];
rewrite ?to_of_val; tac; fail) 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. 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