theorem
  (p 'or' q 'or' r) <=> (p 'or' (q 'or' r)) is tautology
  proof
    let M;
    thus (SAT M).((p 'or' q 'or' r) <=> (p 'or' (q 'or' r)))
    = (SAT M).(p 'or' q 'or' r) <=> (SAT M).(p 'or' (q 'or' r)) by semequ2
    .= (SAT M).(p 'or' q) 'or' (SAT M).r <=> (SAT M).(p 'or' (q 'or' r))
    by semdis2
    .= (SAT M).(p 'or' q) 'or' (SAT M).r
    <=> ((SAT M).p 'or' (SAT M).(q 'or' r)) by semdis2
    .= (SAT M).(p 'or' q) 'or' (SAT M).r
    <=> ((SAT M).p 'or' ((SAT M).q 'or' (SAT M).r)) by semdis2
    .= (SAT M).p 'or' (SAT M).q 'or' (SAT M).r
    <=> ((SAT M).p 'or' ((SAT M).q 'or' (SAT M).r)) by semdis2
    .= 1 by th7a;
end;
