diff options
| author | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2020-05-11 06:41:38 +0200 |
|---|---|---|
| committer | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2020-05-11 06:41:38 +0200 |
| commit | 490a6caea1a95cfdbddf7aca244fa6a1c83aa9a2 (patch) | |
| tree | 510d351a018357c5a0d53c36431e97de4a3d616b /backend/Profilingproof.v | |
| parent | d804ec4db20717c68c2c8e8f53e804b425d62b90 (diff) | |
| download | compcert-kvx-490a6caea1a95cfdbddf7aca244fa6a1c83aa9a2.tar.gz compcert-kvx-490a6caea1a95cfdbddf7aca244fa6a1c83aa9a2.zip | |
backport to coq 8.10.2
Diffstat (limited to 'backend/Profilingproof.v')
| -rw-r--r-- | backend/Profilingproof.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/backend/Profilingproof.v b/backend/Profilingproof.v index abb86bdb..0cebc601 100644 --- a/backend/Profilingproof.v +++ b/backend/Profilingproof.v @@ -112,6 +112,11 @@ Lemma inject_profiling_call_increases: Proof. intros. simpl. + rewrite <- (Pos2Nat.id (Pos.succ (Pos.succ extra_pc))). + rewrite <- (Pos2Nat.id (extra_pc + 2)). + rewrite !Pos2Nat.inj_succ. + rewrite !Pos2Nat.inj_add. + apply f_equal. lia. Qed. |