fact: Definition iteratel {n : nat} (val : Parser Toks Tok M A n) (op : Box (Parser Toks Tok M (A -> A)) n) : Parser Toks Tok M A n := MkParser (fun _ mlen ts => Category.bind (runParser val mlen ts) (fun sa => schainl sa (Induction.le_lower mlen op))).
imports: Coq(PeanoNat) parseque(Category Induction Sized NEList Success EqDec)