A1: B1 is open by Th38;
A1 is open by Th38;
then A1 /\ B1 is open by A1;
hence for b1 being Subset of REAL st b1 = A /\ B holds
b1 is open by Th38; :: thesis: verum