				/**  XGh   **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: February, 1986 */
/*K: Hg, Ghg, Hypergeometric, 2F1, Transform */

/*:SGh[1]
	Converts a 2F1 from Ghg to Hg notation*/
SGh[1] : Ghg[2,1,#[$a,$b],#[$c],$z] -> Hg[$a,$b,$c,$z]
/*:SGh[2]
	Converts a 2F1 from Hg to Ghg notation*/
SGh[2] : Hg[$a,$b,$c,$z] -> Ghg[2,1,#[$a,$b],#[$c],$z]
