Question: symplify hypergeom function?

We have an expression p*(-1+p)*hypergeom([1, 1], [2], 1-p)*hypergeom([1], [], 2-p), which can be simplified to p*ln(p)/(-1+p), but how it can be simplified to p*hypergeom([1,1],[2],1-p) in Maple? Thanks.
Please Wait...