From b2171eb8e6af1d0a19bd42fb455fccc7e9f34fe9 Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Wed, 25 Nov 2020 15:03:55 +0100 Subject: cond_valid_pointer_eq --- powerpc/Op.v | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'powerpc') diff --git a/powerpc/Op.v b/powerpc/Op.v index 4f14bfac..0610bc9c 100644 --- a/powerpc/Op.v +++ b/powerpc/Op.v @@ -797,6 +797,16 @@ Proof. auto. 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) -> -- cgit