fact: Definition guardM (f : A -> option B) (p : Parser Toks Tok M A n) : Parser Toks Tok M B n := MkParser (fun _ mlen toks => bind (runParser p mlen toks) (fun s => fromOption (Success.guardM f s))).
imports: Coq(PeanoNat) parseque(Category Induction Sized NEList Success EqDec)