fact: Definition BindOpt_map {S T T'} : forall (f : option T -> T') (a_opt : option S) (k : S -> option T), f (BindOpt a_opt k) = Ifopt a_opt as a Then f (k a) Else f None.
imports: Coq.Lists.List Fiat.Common Fiat.Computation.Core Fiat.Computation.Notations Fiat.Narcissus.Common.Notations Fiat.Narcissus.Common.Monoid Fiat.Narcissus.Stores.Cache