theorem
 B = [x,{x}] implies B in [:{x},B:]
  proof assume
A1:  B = [x,{x}];
    then [:{x},B:] = { [x,{x}], [x,{x,{x}}] } by Th29;
   hence thesis by TARSKI:def 2,A1;
  end;
