Local Open Scope logic.
(* PROOF AUTOMATION FOR SEMAX *)
Hint Extern 3 (inlist _ _ = false) => (compute; reflexivity).

(* Specifications: *)
Lemma arguments_gss: forall x xl v vl, arguments (x::xl)(v::vl) x = v.
Lemma arguments_gso: forall x xl v vl x', x<>x' -> arguments (x::xl)(v::vl)x' = arguments xl vl x'.
Ltac compute_neq := solve [let H := fresh in intro H; inversion H].