(* Lemma unchanged_on_sym P m m' b: Mem.unchanged_on P m m' -> Mem.valid_block m b -> Mem.unchanged_on (fun bb z => P bb z /\ bb=b) m' m. *)

Lemma forall_inject_val_list_inject:
forall j args args' (H:Forall2 (val_inject j) args args' ),
Val.inject_list j args args'.