Definition zip_unit f := 
  let: FinMap s pf := f in FinMap (zip_unit_sorted' pf).

Lemma fnd_zip f1 f2 f x (v1 v2 : V) : fnd x f1 = Some v1 -> fnd x f2 = Some v2 -> zip f1 f2 = Some f -> fnd x f = zip_f v1 v2.