/** Simplify Arguments Before Applying **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: January, 1988 */
/*K: Apply, Map, Simplified Arguments*/

/*: Aps[$temp,$exp]
	Simplify both arguments and then apply simplified $temp to 
	simplified $exp */

Aps[$temp,$exp] :: Ap[$temp,$exp]

/*: Maps[$temp,$exp]
	Simplify both arguments and then Map simplified $temp on to 
	simplified $exp */
Maps[$temp,$exp] :: Map[$temp,$exp]

/*:QV  Ap, Map */
