Module CCSound (VSM : VERISTAR_MODEL).
Definition expr_eqs_denote (l : list (expr * expr)) :=
listd (fun p => match p with (e1, e2) => (e1 === e2) end) inter TT l.

Lemma expr_get_sound e l s : expr_eqs_denote l s -> (e === expr_get e l) s.