Section Properties.
Context {A val : Type} {Heq : RelDec (@eq A)} {HeqOk : RelDec_Correct Heq}.
Context {R : ValNull val}.
Local Open Scope open_scope.

Lemma subst1_stack_add {B} (p : open B) (e : expr) (x : A) (v : val) (s : @stack A val) :
p[{e//x}] (stack_add x v s) = p[{e[{V_expr v//x}]//x}] s.