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

Lemma subst_identity {B} (x : A) (s : @stack A val) (p : open B) :
p[{(V_expr (s x))//x}] s = p s.