Proof (vagree_bitwise_binop Int.and (iagree_bitwise_binop andb Int.and Int.bits_and)).

Lemma or_sound:
forall v1 w1 v2 w2 x,
vagree v1 w1 (bitwise x) -> vagree v2 w2 (bitwise x) ->
vagree (Val.or v1 v2) (Val.or w1 w2) x.