help_for_maple_quest.docplease give a explain how to work for operations.

dear friends:

  i do some working with physics package.i met a problem that  i can't solve .i want you to help me.

thanks alot.

with(Physics):       Am := Annihilation(x); Ap := Creation(x)

the exprssion is collect --Physics:-AntiCommutator(Am,Ap) = 1

the result is not simple enough--[Ap.Am, Ap]_=Ap+Ap^2.Am

because Ap^2.Am=0 in quantum,

so I just want to get the result--[Ap.Am, Ap]_=Ap,but fail.