Local Open Scope logic.
(* PROOF AUTOMATION FOR SEMAX *)
Hint Extern 3 (inlist _ _ = false) => (compute; reflexivity).
Ltac compute_neq := solve [let H := fresh in intro H; inversion H].
Hint Rewrite arguments_gss : args.
Hint Rewrite arguments_gso using compute_neq : args.
Ltac call_tac := unfold call; simpl; autorewrite with args; simpl.

Lemma funassert_e:  forall G i f,
table_get G i = Some f ->
funassert G |-- cont f i.