diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-08-30 19:23:24 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-08-30 19:23:24 +0200 |
commit | 9a19f2fdf735785947cc469d2ceef83cbe4f1679 (patch) | |
tree | d734cdfe6273f4593dd8ee0d9c4a9f7ff54b9225 /mppa_k1c/SelectOpproof.v | |
parent | caac487ae23a9785602cf235f5b4a2b6749f2c18 (diff) | |
download | compcert-kvx-9a19f2fdf735785947cc469d2ceef83cbe4f1679.tar.gz compcert-kvx-9a19f2fdf735785947cc469d2ceef83cbe4f1679.zip |
fma with first negated operand
Diffstat (limited to 'mppa_k1c/SelectOpproof.v')
-rw-r--r-- | mppa_k1c/SelectOpproof.v | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/mppa_k1c/SelectOpproof.v b/mppa_k1c/SelectOpproof.v index 08bcff12..583fb545 100644 --- a/mppa_k1c/SelectOpproof.v +++ b/mppa_k1c/SelectOpproof.v @@ -1674,9 +1674,13 @@ Proof. intros until le. intro Heval. destruct (gen_fma_match _) in *; try discriminate. - inversion Heval; subst a; clear Heval. - intro; InvEval. - intro Heval. + all: inversion Heval; subst a; clear Heval; intro; InvEval. + - subst v1. + TrivialExists. + destruct v0; simpl; trivial; + destruct v2; simpl; trivial; + destruct v3; simpl; trivial. + - intro Heval. simpl in Heval. inv Heval. TrivialExists. @@ -1696,9 +1700,13 @@ Proof. intros until le. intro Heval. destruct (gen_fmaf_match _) in *; try discriminate. - inversion Heval; subst a; clear Heval. - intro; InvEval. - intro Heval. + all: inversion Heval; subst a; clear Heval; intro; InvEval. + - subst v1. + TrivialExists. + destruct v0; simpl; trivial; + destruct v2; simpl; trivial; + destruct v3; simpl; trivial. + - intro Heval. simpl in Heval. inv Heval. TrivialExists. |