fact: Definition BindOpt {S' S''} (a_opt : option S') (k : S' -> option S'') := Ifopt a_opt as a Then k a Else 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