reserve p,q,r,s,A,B for Element of PL-WFF,
  F,G,H for Subset of PL-WFF,
  k,n for Element of NAT,
  f,f1,f2 for FinSequence of PL-WFF;
reserve M for PLModel;

theorem
  (SAT M).(A 'or' B) = 1 iff (SAT M).A = 1 or (SAT M).B = 1
  proof
A2: (SAT M).B = TRUE or (SAT M).B = FALSE by XBOOLEAN:def 3;
    hereby
      assume (SAT M).(A 'or' B) = 1;then
      (SAT M).A 'or' (SAT M).B = 1 by semdis2;
      hence (SAT M).A = 1 or (SAT M).B = 1 by A2;
    end;
    assume A3:(SAT M).A = 1 or (SAT M).B = 1;
    thus (SAT M).(A 'or' B) = (SAT M).A 'or' (SAT M).B by semdis2
    .= 1 by A3;
  end;
