Definition int_op e :=
  match e with
  | Load v | Store v => tc_val tint v
  | CAS r c w => tc_val tint r /\ tc_val tint c /\ tc_val tint w
  end.Definition make_int v := match v with Vint i => Int.signed i | _ => 0 end.

Lemma int_op_value : forall e, int_op e -> tc_val tint (value_of e).