theorem
  for a, b being Element of W holds
    a (--) b & b (--) b implies (a "/\" b) (--) (b "/\" b)
      by CompDef;
