
theorem PMP:
  for a be Integer holds Parity a = Parity |.a.|
  proof
    let a be Integer;
    per cases by ABSVALUE:1;
    suppose |.a.| = a;
      hence thesis;
    end;
    suppose |.a.| = -a;
      hence thesis by PM;
    end;
  end;
