/**************************************************************************** ** *F FuncLQUO( <self>, <opL>, <opR> ) . . . . . . . . . . . . . . call 'LQUO' */ Obj FuncLQUO ( Obj self, Obj opL, Obj opR ) { return LQUO( opL, opR ); }
/**************************************************************************** ** *F PowDefault( <opL>, <opR> ) . . . . . . . . . . . call 'LQUO' and 'PROD' */ Obj PowDefault ( Obj opL, Obj opR ) { Obj tmp; tmp = LQUO( opR, opL ); return PROD( tmp, opR ); }
/**************************************************************************** ** *F CommDefault( <opL>, <opR> ) . . . . . . . . . . . call 'LQUO' and 'PROD' */ Obj CommDefault ( Obj opL, Obj opR ) { Obj tmp1; Obj tmp2; tmp1 = PROD( opR, opL ); tmp2 = PROD( opL, opR ); return LQUO( tmp1, tmp2 ); }
Obj GAP_LQUO(Obj a, Obj b) { return LQUO(a, b); }