Commit 5a4057c6 authored by Jakob Botsch Nielsen's avatar Jakob Botsch Nielsen
Browse files

Unfold set_chain_contract_state more aggressively

parent 86df9fd4
......@@ -1056,6 +1056,11 @@ Arguments build_contract {_ _ _ _ _ _ _}.
Arguments ContractInterface {_} _.
Arguments build_contract_interface {_ _ _ _}.
(* set_chain_contract_state updates a map (function) by returning a
new map (function). If this function is immediately applied to a
key, then unfold it. *)
Arguments set_chain_contract_state {_} _ _ _ /.
Ltac destruct_chain_step :=
match goal with
| [step: ChainStep _ _ |- _] =>
......
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