theorem
  for a, b being Element of W holds
    a (--) b & b (--) b implies (a "/\" b) (--) b
  proof
    let a, b be Element of W;
    assume a (--) b & b (--) b; then
    (a "/\" b) (--) (b "/\" b) by CompDef;
    hence thesis by LemmaId;
  end;
