fact: Fixpoint SameValues {av} ext fmap (tenv: Telescope av) := match tenv with | Nil => WeakEq ext fmap | Cons T key val tail => match key with | NTSome k H => match StringMap.find k fmap with | Some v => exists v', val ↝ v' /\ v = wrap v' /\ SameValues ext (StringMap.remove k fmap) (tail v') | None => False end | NTNone => exists v', val ↝ v' /\ SameValues ext fmap (tail v') end end.
imports: Coq.Strings.String Computation.Core ADTRefinement Bedrock.Platform.Facade.DFacade Bedrock.Platform.Cito.StringMap