diff options
author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-04-23 14:12:04 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-04-23 14:12:04 +0200 |
commit | b66ddea9b0304d390b56afadda80fa4d2f2184d6 (patch) | |
tree | 27a2ad0533fcd52a0d82b92ea3f582a3c02065d9 /common/Events.v | |
parent | 23f871b3faf89679414485c438ed211151bd99ce (diff) | |
download | compcert-b66ddea9b0304d390b56afadda80fa4d2f2184d6.tar.gz compcert-b66ddea9b0304d390b56afadda80fa4d2f2184d6.zip |
Replace nat_of_Z with Z.to_nat
Use Z.to_nat theorems from the standard Coq library in preference to
our theorems in lib/Coqlib.v.
Simplify lib/Coqlib.v accordingly.
Diffstat (limited to 'common/Events.v')
-rw-r--r-- | common/Events.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/common/Events.v b/common/Events.v index b2335b96..26dd505f 100644 --- a/common/Events.v +++ b/common/Events.v @@ -1208,7 +1208,7 @@ Proof. assert (RPDST: Mem.range_perm m1 bdst (Ptrofs.unsigned odst) (Ptrofs.unsigned odst + sz) Cur Nonempty). replace sz with (Z.of_nat (length bytes)). eapply Mem.range_perm_implies. eapply Mem.storebytes_range_perm; eauto. auto with mem. - rewrite LEN. apply nat_of_Z_eq. omega. + rewrite LEN. apply Z2Nat.id. omega. assert (PSRC: Mem.perm m1 bsrc (Ptrofs.unsigned osrc) Cur Nonempty). apply RPSRC. omega. assert (PDST: Mem.perm m1 bdst (Ptrofs.unsigned odst) Cur Nonempty). |