theorem
  (A --> x).:B c= {x};
