fact: Definition DecodeBindOpt2_fmap {S T T'} : forall (f : T -> T') (a_opt : option S) (k : S -> option T), DecodeOpt2_fmap f (BindOpt a_opt k) = BindOpt a_opt (fun a => DecodeOpt2_fmap f (k a)).
imports: Coq.Lists.List Fiat.Common Fiat.Computation.Core Fiat.Computation.Notations Fiat.Narcissus.Common.Notations Fiat.Narcissus.Common.Monoid Fiat.Narcissus.Stores.Cache