fact: Definition DecodeBindOpt2 {V D E} (a : option (S * T * D)) (k : S -> T -> D -> option (V * E * D)) : option (V * E * D) := BindOpt a (fun a => match a with (a, b, d) => k a b d end).
imports: Coq.Lists.List Fiat.Common Fiat.Computation.Core Fiat.Computation.Notations Fiat.Narcissus.Common.Notations Fiat.Narcissus.Common.Monoid Fiat.Narcissus.Stores.Cache