diff options
author | Michalis Pardalos <m.pardalos@gmail.com> | 2021-05-16 15:17:24 +0100 |
---|---|---|
committer | Michalis Pardalos <m.pardalos@gmail.com> | 2021-05-16 15:18:48 +0100 |
commit | 29ef1d2d374dcca6ea719c63339f18900be2532f (patch) | |
tree | 5a9225eddeeefae523f8eead3f26513f42bb28af /src/hls/AssocMap.v | |
parent | 2429e158ecdb4ab8150fa26af776e806d7fd019c (diff) | |
download | vericert-29ef1d2d374dcca6ea719c63339f18900be2532f.tar.gz vericert-29ef1d2d374dcca6ea719c63339f18900be2532f.zip |
Most of Ireturn proof
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 68a8416..7e616af 100644 --- a/src/hls/AssocMap.v +++ b/src/hls/AssocMap.v @@ -219,3 +219,11 @@ Lemma find_get_assocmap : assoc ! r = Some v -> assoc # r = v. Proof. intros. unfold find_assocmap, AssocMapExt.get_default. rewrite H. trivial. Qed. + +Lemma fso : forall m v k1 k2, k1 <> k2 -> (m # k1 <- v) # k2 = m # k2. +Proof. + unfold "_ # _". + unfold AssocMapExt.get_default. + intros. + destruct_match; rewrite AssocMap.gso in Heqo by auto; rewrite Heqo; auto. +Qed. |