Hint Resolve apply_stack_lc : lngen.
(* /SOLUTION *)

(* Specifications: *)
Lemma decode_lc : forall c, lc_exp (decode c).
(***********************************************************************)
(** ** Properties of apply_heap *)
(***********************************************************************)
(** Since the heap is just an iterated substitution, it inherits properties from [subst_exp].  Below, [alist induction] is a tactic from the metatheory library for induction over association lists (such as the heap).  *)
Lemma apply_heap_abs : forall h e,
apply_heap h (abs e) = abs (apply_heap h e).