| 1774 | return FALSE; |
| 1775 | } |
| 1776 | static BOOLEAN jjALIGN_M(leftv res, leftv u, leftv v) |
| 1777 | { |
| 1778 | ideal M=(ideal)u->CopyD(); |
| 1779 | int s=(int)(long)v->Data(); |
| 1780 | for(int i=IDELEMS(M)-1; i>=0;i--) |
| 1781 | { |
| 1782 | if (s+p_MinComp(M->m[i],currRing)<=0) |
| 1783 | { id_Delete(&M,currRing);return TRUE;} |
| 1784 | } |
| 1785 | id_Shift(M,s,currRing); |
| 1786 | res->data=M; |
| 1787 | return FALSE; |
| 1788 | } |
| 1789 | static BOOLEAN jjCHINREM_ID(leftv res, leftv u, leftv v); |
| 1790 | static BOOLEAN jjCOEF(leftv res, leftv u, leftv v) |
| 1791 | { |