             /**  Hypergeometric functions - 3  **/
 
                   /**  3.  Polynomials  **/
 
/*A: S.Wolfram */
/*S: California Institute of Technology */
/*D: July 1981 */
/*U: March 1985 */ 
 
SHg_:Ldist
 
SHg[3,1]:   Hg[-$n_=Intp[$n],$n+1,1,$x] -> LegP[$n,1-2 $x]
 
SHg[3,2]:   Hg[-$n_=Intp[$n],$n+2$b-1,$b,$x] -> \
                $n!/Poc[2$b-1,$n] Geg[$n,$b-1/2,1-2 $x]
 
SHg[3,3]:   Hg[-$n_=Intp[$n],$c,$a,$x] -> \
                $n!/Poc[$a,$n] JacP[$n,$a-1,$c-$a-$n,1-2 $x]
 
SHg[3,4]:   Hg[-$n_=Intp[$n],$n,1/2,$x] -> CheT[$n,1-2 $x]
