/** Special values for pochhammer symbols **/

/*K: Poc; Pochhammer; gamma; factorial  */
/*A: John Gottschalk */
/*S: University of Western Australia */
/*D: September 1984 */

/* This contains assignments for reducing pochhammer symbols */
/*P: XGammaV is automatically loaded. */

If[~P[_XLoadonce[Loaded]],<XLoadonce]
Loadonce[XGammaV]

Poc[$a_=Numbp[$a],$b_=Numbp[$b]]   : Gamma[$a+$b]/Gamma[$a]
Poc[$x,0]                          : 1
Poc[0,$x_=~Natp[1-$x] & Numbp[$x]] : 0
Poc[0,$n_=Natp[-$n]]               : (-1)^$n/Gamma[1-$n]
Poc[$x,$n_=Natp[$n]  & Numbp[$n]]  : Ncfac[Prod[$x+%#i,{%#i,0,$n-1}]]
Poc[$x,$n_=Natp[-$n] & Numbp[$n]]  : 1/Ncfac[Prod[$x+#%i,{#%i,$n,-1}]]

SPoc : Poc[$a,$b] -> Gamma[$a+$b]/Gamma[$a]

_XPocV[Loaded] : 1

