theorem Th54:
  B c= B ^ B
proof
  now
    let a;
    a = a \/ a;
    hence a in B implies a in B ^ B by Th35;
  end;
  hence thesis by Lm5;
end;
