reserve w, w1, w2 for Element of ExtREAL;
reserve c, c1, c2 for Complex;
reserve A, B, C, D for complex-membered set;
reserve F, G, H, I for ext-real-membered set;
reserve a, b, s, t, z for Complex;
reserve f, g, h, i, j for ExtReal;
reserve r for Real;
reserve e for set;

theorem
  A <> {} implies 0**A = {0}
proof
  assume
A1: A <> {};
A2: {0} c= 0**A
  proof
    set x = the Element of A;
    let a be Nat;
    assume
A3: a in {0};
A4: 0*x in {0*c: c in A} by A1;
    0**A = {0*c: c in A} by Th194;
    hence thesis by A3,A4,TARSKI:def 1;
  end;
  0**A c= {0} by Th201;
  hence thesis by A2;
end;
