theorem Th23:
  p '&' q <> VERUM
proof
  p '&' q = <*2*>^(p^q) by FINSEQ_1:32;
  then (p '&' q).1 = 2 by FINSEQ_1:41;
  hence thesis;
end;
