From 4833f4a05023b57cba859a652924d1cd058efcea Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Tue, 19 Mar 2019 19:42:03 +0100 Subject: reverse madd --- mppa_k1c/SelectOp.vp | 2 ++ mppa_k1c/SelectOpproof.v | 2 ++ 2 files changed, 4 insertions(+) (limited to 'mppa_k1c') diff --git a/mppa_k1c/SelectOp.vp b/mppa_k1c/SelectOp.vp index e34e7c32..22211167 100644 --- a/mppa_k1c/SelectOp.vp +++ b/mppa_k1c/SelectOp.vp @@ -88,6 +88,8 @@ Nondetfunction add (e1: expr) (e2: expr) := addimm n2 (Eop Oadd (t1:::t2:::Enil)) | t1, (Eop Omul (t2:::t3:::Enil)) => Eop Omadd (t1:::t2:::t3:::Enil) + | (Eop Omul (t2:::t3:::Enil)), t1 => + Eop Omadd (t1:::t2:::t3:::Enil) | _, _ => Eop Oadd (e1:::e2:::Enil) end. diff --git a/mppa_k1c/SelectOpproof.v b/mppa_k1c/SelectOpproof.v index d7ae92dc..fe678383 100644 --- a/mppa_k1c/SelectOpproof.v +++ b/mppa_k1c/SelectOpproof.v @@ -184,6 +184,8 @@ Proof. repeat rewrite Val.add_assoc. reflexivity. - (* Omadd *) subst. TrivialExists. + - (* Omadd *) + subst. rewrite Val.add_commut. TrivialExists. - TrivialExists. Qed. -- cgit