Expression simplification

I have this term

Sqrt[(B Bc)/(A^2-B Bc)]Sqrt[B Bc+A(-A+Sqrt[A^2-B Bc])]Sqrt[-B Bc+A(A + Sqrt[A^2-B Bc])], 

which actually can be simplified to B*Bc. However, it seems Mathematica cannot simplify it. Any suggestions on how I’d be able to do that? Thanks.