Proofs of structural properties of arguments in match in coq

Question

I would like to write a safe zip function in coq that accepts the argument length equality as an argument.

Fixpoint zip {b a:Type} (proof : length l1 = length l2)