
theorem th2:
  for p being boolean object holds ('not' 'not' p) <=> p = TRUE
  proof
   let p be boolean object;
   p = TRUE or p = FALSE by XBOOLEAN:def 3;
   hence ('not' 'not' p) <=> p = TRUE;
  end;
