diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-11-25 15:03:55 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-11-25 15:03:55 +0100 |
commit | b2171eb8e6af1d0a19bd42fb455fccc7e9f34fe9 (patch) | |
tree | a9bee767baf0c3e9077890c5c4938e5fb0f8ceb0 /riscV | |
parent | c55522c71d7ed2542bfd50d466dbeb520bde21f4 (diff) | |
download | compcert-kvx-b2171eb8e6af1d0a19bd42fb455fccc7e9f34fe9.tar.gz compcert-kvx-b2171eb8e6af1d0a19bd42fb455fccc7e9f34fe9.zip |
cond_valid_pointer_eq
Diffstat (limited to 'riscV')
-rw-r--r-- | riscV/Op.v | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -872,6 +872,16 @@ Proof. unfold Val.cmpu_bool, Val.cmplu_bool; rewrite SF; reflexivity. Qed. +Lemma cond_valid_pointer_eq: + forall cond args m1 m2, + (forall b z, Mem.valid_pointer m1 b z = Mem.valid_pointer m2 b z) -> + eval_condition cond args m1 = eval_condition cond args m2. +Proof. + intros until m2. intro MEM. destruct cond eqn:COND; simpl; try congruence. + all: repeat (destruct args; simpl; try congruence); + erewrite cmpu_bool_valid_pointer_eq || erewrite cmplu_bool_valid_pointer_eq; eauto. +Qed. + Lemma op_valid_pointer_eq: forall (F V: Type) (ge: Genv.t F V) sp op args m1 m2, (forall b z, Mem.valid_pointer m1 b z = Mem.valid_pointer m2 b z) -> |