fact: Definition hchainl {n : nat} (seed : Parser Toks Tok M A n) (op : Box (Parser Toks Tok M (A -> B -> A)) n) (arg : Box (Parser Toks Tok M B) n) : Parser Toks Tok M A n := let op' := Induction.map (fun _ => map (fun f b a => f a b)) _ op in let arg' := duplicate _ arg in iteratel seed (map2 (fun _ => app) _ op' arg').
imports: Coq(PeanoNat) parseque(Category Induction Sized NEList Success EqDec)