induction 1; intuition; simpl in *.
subst.
destruct a1.
remember (split ls1) as x.
destruct x.
simpl in *.
f_equal.
Qed.

Theorem combine_map_eq :
forall (A B C : Type)(lsa : list A)(lsb : list B)(f : B -> C),
combine lsa (map f lsb) = map (fun p => (fst p, f (snd p))) (combine lsa lsb).