
theorem th1:
  for p,q being boolean object holds (p '&' q) => p = TRUE
  proof
   let p,q be boolean object;
   p = TRUE or p = FALSE by XBOOLEAN:def 3;
   hence (p '&' q) => p = TRUE;
  end;
