Remark modarith_idem: forall nv, modarith (modarith nv) = modarith nv.

(* Specifications: *)
Lemma mul_sound: forall v1 w1 v2 w2 x, vagree v1 w1 (modarith x) -> vagree v2 w2 (modarith x) -> vagree (Val.mul v1 v2) (Val.mul w1 w2) x.
Lemma neg_sound: forall v w x, vagree v w (modarith x) -> vagree (Val.neg v) (Val.neg w) x.