diff options
Diffstat (limited to 'arm/ConstpropOpproof.v')
-rw-r--r-- | arm/ConstpropOpproof.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/arm/ConstpropOpproof.v b/arm/ConstpropOpproof.v index 711bb33b..bf3b216c 100644 --- a/arm/ConstpropOpproof.v +++ b/arm/ConstpropOpproof.v @@ -192,6 +192,15 @@ Proof. rewrite H. rewrite eval_static_shift_correct. auto. rewrite H. rewrite eval_static_shift_correct. auto. auto. + destruct (Float.eq_dec n1 Float.zero); simpl; auto. + rewrite H0; subst n1. destruct (rs#r2); simpl; auto. rewrite Float.cmp_swap. auto. + destruct (Float.eq_dec n2 Float.zero); simpl; auto. + congruence. + destruct (Float.eq_dec n1 Float.zero); simpl; auto. + rewrite H0; subst n1. destruct (rs#r2); simpl; auto. rewrite Float.cmp_swap. auto. + destruct (Float.eq_dec n2 Float.zero); simpl; auto. + congruence. + auto. Qed. Lemma make_addimm_correct: |