diff options
author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-04-23 15:00:41 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-04-23 15:00:41 +0200 |
commit | 51c497b2e5a2b09788f2cf05f414634b037f52bf (patch) | |
tree | d1cfcc98a74cb78a042d90f91f6092078b3f3a0f /cfrontend | |
parent | b66ddea9b0304d390b56afadda80fa4d2f2184d6 (diff) | |
download | compcert-51c497b2e5a2b09788f2cf05f414634b037f52bf.tar.gz compcert-51c497b2e5a2b09788f2cf05f414634b037f52bf.zip |
lib/Coqlib.v: remove defns about multiplication, division, modulus
Instead, use definitions and lemmas from the Coq standard library
(ZArith, Znumtheory).
Diffstat (limited to 'cfrontend')
-rw-r--r-- | cfrontend/Cexec.v | 1 | ||||
-rw-r--r-- | cfrontend/Cminorgenproof.v | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/cfrontend/Cexec.v b/cfrontend/Cexec.v index 823d2542..7f5fe355 100644 --- a/cfrontend/Cexec.v +++ b/cfrontend/Cexec.v @@ -292,7 +292,6 @@ Remark check_assign_copy: { assign_copy_ok ty b ofs b' ofs' } + {~ assign_copy_ok ty b ofs b' ofs' }. Proof with try (right; intuition omega). intros. unfold assign_copy_ok. - assert (alignof_blockcopy ge ty > 0) by apply alignof_blockcopy_pos. destruct (Zdivide_dec (alignof_blockcopy ge ty) (Ptrofs.unsigned ofs')); auto... destruct (Zdivide_dec (alignof_blockcopy ge ty) (Ptrofs.unsigned ofs)); auto... assert (Y: {b' <> b \/ diff --git a/cfrontend/Cminorgenproof.v b/cfrontend/Cminorgenproof.v index ffafc5d2..5acb996d 100644 --- a/cfrontend/Cminorgenproof.v +++ b/cfrontend/Cminorgenproof.v @@ -923,7 +923,7 @@ Remark inj_offset_aligned_block: Mem.inj_offset_aligned (align stacksize (block_alignment sz)) sz. Proof. intros; red; intros. - apply Zdivides_trans with (block_alignment sz). + apply Z.divide_trans with (block_alignment sz). unfold align_chunk. unfold block_alignment. generalize Z.divide_1_l; intro. generalize Z.divide_refl; intro. |