theorem
  x in SetImp A iff ex p,q st x = p => q & p in A & q in A;
