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_trunc_singleton_stack {B} (p : open B) (s : @stack A val) x y :
p[{(stack_get y) //! x}] s = p (stack_add x (s y) (stack_empty A val)).