theorem
  A c= A ^^ (B*) & A c= (B*) ^^ A
proof
  <%>E in B* by FLANG_1:48;
  hence thesis by FLANG_1:16;
end;
