Section Defs.
Context {A val : Type}.
Context {HA : RelDec (@eq A)} {HR : RelDec_Correct HA}.
Context {VNB : ValNull val}.
Definition stack := A -> val.
Definition stack_empty : stack := fun x => null.
Definition stack_get (x : A) : stack -> val  := fun s => s x.
Definition stack_add x v s : stack :=
fun x' => if x' ?[ eq ] x then v else s x'.

Lemma stack_add_same (s: stack) x:
stack_add x (s x) s = s.