theorem
  x in ultraset BL iff ex UF st UF = x & UF is being_ultrafilter;
