let neg_flag f =
  {
    flag_not = not f.flag_not;
    flag_flag = f.flag_flag;
    flag_eq = f.flag_eq;
  }