(** The identity injection gives rise to the "less defined than" relation. *)
Definition inject_id : meminj := fun b => Some(b, 0).

(* Specifications: *)
Lemma val_inject_id:
forall v1 v2,
Val.inject inject_id v1 v2 <-> Val.lessdef v1 v2.
Lemma val_inject_id:
forall v1 v2,
Val.inject inject_id v1 v2 <-> Val.lessdef v1 v2.