From 8217366788f29da4b267ae3544e027fb41c71fd9 Mon Sep 17 00:00:00 2001
From: Yishuai Li <yishuai@upenn.edu>
Date: Tue, 21 Sep 2021 14:52:05 -0400
Subject: [PATCH] FMapAList: add alternative definition

---
 theories/Data/Map/FMapAList.v | 38 ++++++++++++++++++++++++++++++++++-
 1 file changed, 37 insertions(+), 1 deletion(-)

diff --git a/theories/Data/Map/FMapAList.v b/theories/Data/Map/FMapAList.v
index c0f1fabd..72b2f152 100644
--- a/theories/Data/Map/FMapAList.v
+++ b/theories/Data/Map/FMapAList.v
@@ -6,6 +6,15 @@ Require Import ExtLib.Structures.Maps.
 Require Import ExtLib.Structures.Monad.
 Require Import ExtLib.Structures.Reducible.
 Require Import ExtLib.Structures.Functor.
+From Coq Require Import
+     Basics.
+From ExtLib Require Import
+     Extras
+     OptionMonad.
+Import
+  FunNotation
+  FunctorNotation.
+Open Scope program_scope.
 
 Set Implicit Arguments.
 Set Strict Implicit.
@@ -35,6 +44,20 @@ Section keyed.
           alist_find k ms
     end.
 
+  Definition alist_find' (k: K) : alist -> option V :=
+    fmap snd ∘ find (rel_dec k ∘ fst).
+
+  Lemma alist_find_alt (m: alist) : forall k: K,
+      alist_find k m = alist_find' k m.
+  Proof.
+    induction m; intuition.
+    unfold alist_find', compose.
+    simpl.
+    destruct (k ?[ R ] a0) eqn:Heq; intuition.
+    rewrite IHm.
+    reflexivity.
+  Qed.
+
   Section fold.
     Import MonadNotation.
     Local Open Scope monad_scope.
@@ -49,6 +72,19 @@ Section keyed.
           let acc := f k v acc in
           fold_alist acc m
       end.
+
+    Definition fold_alist' : T -> alist -> T :=
+      flip $ fold_left (flip $ uncurry f).
+
+    Lemma fold_alist_alt (map: alist) : forall acc: T,
+        fold_alist acc map = fold_alist' acc map.
+    Proof.
+      induction map; intuition.
+      simpl.
+      rewrite IHmap.
+      reflexivity.
+    Qed.
+
   End fold.
 
   Definition alist_union (m1 m2 : alist) : alist :=
@@ -208,4 +244,4 @@ Module TEST.
         | S n => find_all n
       end) 500.
 End TEST.
-*)
\ No newline at end of file
+*)