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 Th15:
  p => (q => p) is tautology
  proof
    let M;
    thus (SAT M).(p => (q => p)) = (SAT M).p => (SAT M).(q => p) by Def11
   .= (SAT M).p => ((SAT M).q => (SAT M).p) by Def11
   .= 1 by XBOOLEAN:104;
  end;
