fact: Fixpoint zipWith `(f : a → b → c) (xs : list a) (ys : list b) : list c := match xs, ys with | [], _ => [] | _, [] => [] | x :: xs', y :: ys' => f x y :: zipWith f xs' ys' end.
imports: Coq.Lists.List Equations(Equations) Equations.Type.EqDec Category.Lib Category.Theory.Coq.Functor Category.Theory.Coq.Applicative Category.Theory.Coq.Monad Category.Theory.Coq.Maybe Coq.Lists.List