theorem Th73:
  {p '&' q} |-_IPC p
proof
A1: {p '&' q} |-_IPC (p '&' q) => p by Th20;
  {p '&' q} |-_IPC p '&' q by Th65;
  hence thesis by A1,Th27;
end;
