let double_bool_array_and (a1,a2) (b1,b2) =
  (bool_array_and a1 b1,
   bool_array_and a2 b2)