diff options
| author | Michalis Pardalos <m.pardalos@gmail.com> | 2021-05-17 19:33:14 +0100 |
|---|---|---|
| committer | Michalis Pardalos <m.pardalos@gmail.com> | 2021-05-17 19:33:14 +0100 |
| commit | 3ebcc5253bcf51619a0c60dd112182650498581d (patch) | |
| tree | 00f748583652bce6e8560a3f4de0136e68703c85 /src/hls/AssocMap.v | |
| parent | 782e305152ffdf2356ca1df287a54ee8970ca35c (diff) | |
| download | vericert-3ebcc5253bcf51619a0c60dd112182650498581d.tar.gz vericert-3ebcc5253bcf51619a0c60dd112182650498581d.zip | |
Complete Returnstate proofs
Diffstat (limited to 'src/hls/AssocMap.v')
| -rw-r--r-- | src/hls/AssocMap.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/hls/AssocMap.v b/src/hls/AssocMap.v index 7e616af..d408b1f 100644 --- a/src/hls/AssocMap.v +++ b/src/hls/AssocMap.v @@ -227,3 +227,11 @@ Proof. intros. destruct_match; rewrite AssocMap.gso in Heqo by auto; rewrite Heqo; auto. Qed. + +Lemma fss : forall m v k, (m # k <- v) # k = v. +Proof. + unfold "_ # _". + unfold AssocMapExt.get_default. + intros. + destruct_match; rewrite AssocMap.gss in Heqo by auto; inv Heqo; crush. +Qed. |