diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2018-06-02 11:27:01 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2019-03-26 16:08:10 +0100 |
commit | 953014b3f898ac8c2bd29fd1d5cfa6aa13636766 (patch) | |
tree | 7c5e483cb467224c22db0e735519a65af92d1bc7 | |
parent | 8252140c54d9be6f8c62a068f96795eac1e6c078 (diff) | |
download | compcert-953014b3f898ac8c2bd29fd1d5cfa6aa13636766.tar.gz compcert-953014b3f898ac8c2bd29fd1d5cfa6aa13636766.zip |
Update proof of transl_cond
-rw-r--r-- | arm/Asmgenproof1.v | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/arm/Asmgenproof1.v b/arm/Asmgenproof1.v index 6a02b77f..5ba5ba10 100644 --- a/arm/Asmgenproof1.v +++ b/arm/Asmgenproof1.v @@ -1038,8 +1038,7 @@ Proof. econstructor. split. apply exec_straight_one. simpl. eauto. auto. split. destruct (Val.cmp_bool c0 (rs x) (Vint i)) eqn:CMP; auto. - split; apply cond_for_signed_cmp_correct; rewrite Int.neg_involutive; auto. - rewrite Val.negate_cmp_bool, CMP; auto. + apply cond_for_signed_cmp_correct; rewrite Int.neg_involutive; auto. apply compare_int_inv. exploit (loadimm_correct IR14). intros [rs' [P [Q R]]]. econstructor. @@ -1060,8 +1059,7 @@ Proof. econstructor. split. apply exec_straight_one. simpl. eauto. auto. split. destruct (Val.cmpu_bool (Mem.valid_pointer m) c0 (rs x) (Vint i)) eqn:CMP; auto. - split; apply cond_for_unsigned_cmp_correct; rewrite Int.neg_involutive; auto. - rewrite Val.negate_cmpu_bool, CMP; auto. + apply cond_for_unsigned_cmp_correct; rewrite Int.neg_involutive; auto. apply compare_int_inv. exploit (loadimm_correct IR14). intros [rs' [P [Q R]]]. econstructor. |