diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-10-19 18:27:43 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-10-19 18:27:43 +0200 |
| commit | 5045d1635f9e1bded2915478ceaff2766c06b803 (patch) | |
| tree | 2277ceed83929fe2aa667f2099bd3fdb86882841 /arm | |
| parent | 1deadbf2715e435f2599c415c629ad0f042d40a6 (diff) | |
| download | compcert-kvx-5045d1635f9e1bded2915478ceaff2766c06b803.tar.gz compcert-kvx-5045d1635f9e1bded2915478ceaff2766c06b803.zip | |
op_valid_pointer_eq arm
Diffstat (limited to 'arm')
| -rw-r--r-- | arm/Op.v | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -751,6 +751,21 @@ Proof. auto. 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) -> + eval_operation ge sp op args m1 = eval_operation ge sp op args m2. +Proof. + intros until m2. destruct op eqn:OP; simpl; try congruence. + - intros MEM; destruct c; simpl; try congruence; + repeat (destruct args; simpl; try congruence); + erewrite cmpu_bool_valid_pointer_eq || erewrite cmplu_bool_valid_pointer_eq; eauto. + - intro MEM; destruct c; simpl; try congruence; + repeat (destruct args; simpl; try congruence); + erewrite cmpu_bool_valid_pointer_eq || erewrite cmplu_bool_valid_pointer_eq; eauto. +Qed. + (** Global variables mentioned in an operation or addressing mode *) Definition globals_operation (op: operation) : list ident := |