theorem semnot2:
  (SAT M).('not' p) = 'not' (SAT M).p
  proof
    thus (SAT M).('not' p) = (SAT M).p => (SAT M).FaLSUM by Def11
    .= (SAT M).p => FALSE by Def11
    .= 'not' (SAT M).p;
  end;
