diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-12 11:46:13 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-12 11:46:13 +0200 |
commit | 6a267e0bce732e68ab5e5b6c971ba5e0fe226719 (patch) | |
tree | ae7ec59c521936cbfe375a81d9e0a2f1f87ec7d7 /mppa_k1c/SelectOpproof.v | |
parent | 4b78052471c339c1e7dbbabe9ac20835fe963b9c (diff) | |
download | compcert-kvx-6a267e0bce732e68ab5e5b6c971ba5e0fe226719.tar.gz compcert-kvx-6a267e0bce732e68ab5e5b6c971ba5e0fe226719.zip |
some more simplifications
Diffstat (limited to 'mppa_k1c/SelectOpproof.v')
-rw-r--r-- | mppa_k1c/SelectOpproof.v | 22 |
1 files changed, 19 insertions, 3 deletions
diff --git a/mppa_k1c/SelectOpproof.v b/mppa_k1c/SelectOpproof.v index 023f2a3c..c836fb86 100644 --- a/mppa_k1c/SelectOpproof.v +++ b/mppa_k1c/SelectOpproof.v @@ -680,9 +680,25 @@ Proof. - TrivialExists; simpl; congruence. - TrivialExists; simpl; congruence. - TrivialExists; simpl; congruence. - - rewrite <- H0. - exists v1. - split; auto. + - subst x. exists (Val.and v1 v0); split; trivial. + econstructor. constructor. eassumption. constructor. + eassumption. constructor. simpl. reflexivity. + - subst x. exists (Val.and v1 (Vint n)); split; trivial. + econstructor. constructor. eassumption. constructor. + simpl. reflexivity. + - subst x. exists (Val.or v1 v0); split; trivial. + econstructor. constructor. eassumption. constructor. + eassumption. constructor. simpl. reflexivity. + - subst x. exists (Val.or v1 (Vint n)); split; trivial. + econstructor. constructor. eassumption. constructor. + simpl. reflexivity. + - subst x. exists (Val.xor v1 v0); split; trivial. + econstructor. constructor. eassumption. constructor. + eassumption. constructor. simpl. reflexivity. + - subst x. exists (Val.xor v1 (Vint n)); split; trivial. + econstructor. constructor. eassumption. constructor. + simpl. reflexivity. + - subst x. exists v1; split; trivial. - TrivialExists. - TrivialExists. Qed. |