theorem
  A1 = { x1 : x1 in A1 }
proof
  thus A1 c= { x1 : x1 in A1 };
  let a be object;
  assume a in { x1 : x1 in A1 };
  then ex x1 st a = x1 & x1 in A1;
  hence thesis;
end;
