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