diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-01 22:20:35 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-01 22:20:35 +0200 |
| commit | 57ddece94f4c4b44e8e3127c6f5f72aaa5962250 (patch) | |
| tree | 6592b105566e8b294bf409dc6d08cee4b5c5ce00 /mppa_k1c/SelectOpproof.v | |
| parent | cbe3f094b32077ce8d8569556d4ebc6341b09dd9 (diff) | |
| download | compcert-kvx-57ddece94f4c4b44e8e3127c6f5f72aaa5962250.tar.gz compcert-kvx-57ddece94f4c4b44e8e3127c6f5f72aaa5962250.zip | |
does not yet work, arity mismatch
Diffstat (limited to 'mppa_k1c/SelectOpproof.v')
| -rw-r--r-- | mppa_k1c/SelectOpproof.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/mppa_k1c/SelectOpproof.v b/mppa_k1c/SelectOpproof.v index 6fa93fd8..a92ed572 100644 --- a/mppa_k1c/SelectOpproof.v +++ b/mppa_k1c/SelectOpproof.v @@ -1265,6 +1265,11 @@ Proof. - exists (v1 :: nil); split. eauto with evalexpr. simpl. destruct v1; simpl in H; try discriminate. destruct Archi.ptr64 eqn:SF; inv H. simpl. auto. + - destruct (Z.eq_dec _ _). + + exists (v1 :: v2 :: nil); split. repeat (constructor; auto). simpl. rewrite Int.repr_unsigned. destruct v2; simpl in *; congruence. + + exists (v1 :: v0 :: nil); split. repeat (constructor; auto). econstructor. + repeat (constructor; auto). eassumption. simpl. congruence. + simpl. congruence. - exists (v1 :: v0 :: nil); split. repeat (constructor; auto). simpl. congruence. - exists (v :: nil); split. eauto with evalexpr. subst. simpl. rewrite Ptrofs.add_zero; auto. Qed. |