/****************************************************************************
**
*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);
}
