Limit[1/a*( p r (-\[Tau] + (1 - p r)^( a/\[Tau]) (\[Tau] - a Log[1 - p r])))/((-1 + p r) Log[ 1 - p r]^2), a -> \[Infinity]]