Упрощение выражений с квадратными корнями (Maple)

[Maxxxu]

Добрый день!
Очень нужна помощь в решении такой проблемы. Есть выражение

-((-A*(3+(9-A^2)^(1/2)))^(1/2)*(3-(9-A^2)^(1/2))^(1/2)*(-A)^(1/2)+(-A*(3+(9-A^2)^(1/2)))^(1/2)*A+A*(3-(9-A^2)^(1/2))^(1/2)*(-A)^(1/2)-A^2)/(-(-A*(3+(9-A^2)^(1/2)))^(1/2)*(3-(9-A^2)^(1/2))^(1/2)*(-A)^(1/2)+(-A*(3+(9-A^2)^(1/2)))^(1/2)*A+A*(3-(9-A^2)^(1/2))^(1/2)*(-A)^(1/2)+A^2)

Здесь -3<A<0. Я знаю, что это выражение есть -1 (например, если построить график этой функции, то это легко увидеть). Но как я ни пытался сделать так, чтобы Maple мне упростил это выражение до -1, у меня ничего не получилось. Пробовал и simplify(expr,sqrt), и expand - всё равно не помогает. Условия на A (то, что -3<A<0) тоже писал.
Версия Maple 9.5

Буду очень признателен за любую помощь.

[soliton1]

Сделал для интереса в Mathematica

FullSimplify[expr, {A < 0, A > -3}]

где expr - Ваше выражение, результат = -1.
В Maple как ни старался -1 не вышло.

[Maxxxu]

Через Mathematica у меня тоже всё нормально получилось.
Мне подсказали в Maple такой способ:

> eq:=-((-A*(3+(9-A^2)^(1/2)))^(1/2)*(3-(9-A^2)^(1/2))^(1/2)*(-A)^(1/2)+(-A*(3+(9-A^2)^(1/2)))^(1/2)*A+A*(3-(9-A^2)^(1/2))^(1/2)*(-A)^(1/2)-A^2)/(-(-A*(3+(9-A^2)^(1/2)))^(1/2)*(3-(9-A^2)^(1/2))^(1/2)*(-A)^(1/2)+(-A*(3+(9-A^2)^(1/2)))^(1/2)*A+A*(3-(9-A^2)^(1/2))^(1/2)*(-A)^(1/2)+A^2);

> simplify(combine(eq,radical,symbolic)) assuming A<0;