fact: Definition RestrictFormat {S T} {cache : Cache} (format : FormatM S T) (Source_Predicate : S -> Prop) : FormatM S T := fun s env txenv => format s env txenv /\ Source_Predicate s.
imports: Coq.Lists.List Fiat.Common Fiat.Computation.Core Fiat.Computation.Notations Fiat.Narcissus.Common.Notations Fiat.Narcissus.Common.Monoid Fiat.Narcissus.Stores.Cache