theorem Th39:
  a in B & (for b st b in B & b c= a holds b = a) implies a in mi B
proof
  assume a in B & for s st s in B & s c= a holds s = a;
  then s in B & s c= a iff s = a;
  hence thesis;
end;
