/*
Copyright 2009 by Barton Willis

  This is free software; you can redistribute it and/or
  modify it under the terms of the GNU General Public License,
  http://www.gnu.org/copyleft/gpl.html.

 This software has NO WARRANTY, not even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
*/


/* Apply the hgfred simplifications. */

hypergeometric_simp(e) := block([sublis_apply_lambda : true], 
  e : sublis(['hypergeometric = lambda([a,b,x], hgfred(a,b,x))], e),
  subst(['%f = lambda([[s]], hypergeometric)], e));

