Ana Sofía del Palatinado-Zweibrücken-Birkenfeld, abadesa de Quedlinburg