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