Class ValNull (val : Type) := {
  null : val
}.Class ValNull (val : Type) := {
  null : 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_lookup_add (s : stack) (x : A) (v : val) : ((stack_add x v s) : stack) x = v.