Variable (valid_ptr1 valid_ptr2 : block -> Z -> bool).
Let weak_valid_ptr1 b ofs := valid_ptr1 b ofs || valid_ptr1 b (ofs - 1).
Let weak_valid_ptr2 b ofs := valid_ptr2 b ofs || valid_ptr2 b (ofs - 1).
Hypothesis valid_ptr_inj:
forall b1 ofs b2 delta,
f b1 = Some(b2, delta) ->
valid_ptr1 b1 (Ptrofs.unsigned ofs) = true ->
valid_ptr2 b2 (Ptrofs.unsigned (Ptrofs.add ofs (Ptrofs.repr delta))) = true.
Hypothesis weak_valid_ptr_inj:
forall b1 ofs b2 delta,
f b1 = Some(b2, delta) ->
weak_valid_ptr1 b1 (Ptrofs.unsigned ofs) = true ->
weak_valid_ptr2 b2 (Ptrofs.unsigned (Ptrofs.add ofs (Ptrofs.repr delta))) = true.
Hypothesis weak_valid_ptr_no_overflow:
forall b1 ofs b2 delta,
f b1 = Some(b2, delta) ->
weak_valid_ptr1 b1 (Ptrofs.unsigned ofs) = true ->
0 <= Ptrofs.unsigned ofs + Ptrofs.unsigned (Ptrofs.repr delta) <= Ptrofs.max_unsigned.
Hypothesis valid_different_ptrs_inj:
forall b1 ofs1 b2 ofs2 b1' delta1 b2' delta2,
b1 <> b2 ->
valid_ptr1 b1 (Ptrofs.unsigned ofs1) = true ->
valid_ptr1 b2 (Ptrofs.unsigned ofs2) = true ->
f b1 = Some (b1', delta1) ->
f b2 = Some (b2', delta2) ->
b1' <> b2' \/
Ptrofs.unsigned (Ptrofs.add ofs1 (Ptrofs.repr delta1)) <> Ptrofs.unsigned (Ptrofs.add ofs2 (Ptrofs.repr delta2)).

(* Specifications: *)
Lemma cmpu_bool_inject:
forall c v1 v2 v1' v2' b,
inject f v1 v1' ->
inject f v2 v2' ->
Val.cmpu_bool valid_ptr1 c v1 v2 = Some b ->
Val.cmpu_bool valid_ptr2 c v1' v2' = Some b.
Lemma cmplu_bool_inject:
forall c v1 v2 v1' v2' b,
inject f v1 v1' ->
inject f v2 v2' ->
Val.cmplu_bool valid_ptr1 c v1 v2 = Some b ->
Val.cmplu_bool valid_ptr2 c v1' v2' = Some b.
Lemma longofwords_inject:
forall v1 v2 v1' v2',
inject f v1 v1' -> inject f v2 v2' -> inject f (Val.longofwords v1 v2) (Val.longofwords v1' v2').
Lemma loword_inject:
forall v v', inject f v v' -> inject f (Val.loword v) (Val.loword v').
Lemma hiword_inject:
forall v v', inject f v v' -> inject f (Val.hiword v) (Val.hiword v').
Lemma cmpu_bool_inject:
forall c v1 v2 v1' v2' b,
inject f v1 v1' ->
inject f v2 v2' ->
Val.cmpu_bool valid_ptr1 c v1 v2 = Some b ->
Val.cmpu_bool valid_ptr2 c v1' v2' = Some b.
Lemma cmplu_bool_inject:
forall c v1 v2 v1' v2' b,
inject f v1 v1' ->
inject f v2 v2' ->
Val.cmplu_bool valid_ptr1 c v1 v2 = Some b ->
Val.cmplu_bool valid_ptr2 c v1' v2' = Some b.
Lemma longofwords_inject:
forall v1 v2 v1' v2',
inject f v1 v1' -> inject f v2 v2' -> inject f (Val.longofwords v1 v2) (Val.longofwords v1' v2').
Lemma loword_inject:
forall v v', inject f v v' -> inject f (Val.loword v) (Val.loword v').
Lemma hiword_inject:
forall v v', inject f v v' -> inject f (Val.hiword v) (Val.hiword v').