#include "mpoly.h"
#include "nmod_mpoly.h"
int nmod_mpoly_is_canonical(const nmod_mpoly_t A, const nmod_mpoly_ctx_t ctx)
{
slong i;
if (!mpoly_monomials_valid_test(A->exps, A->length, A->bits, ctx->minfo))
return 0;
if (mpoly_monomials_overflow_test(A->exps, A->length, A->bits, ctx->minfo))
return 0;
if (!mpoly_monomials_inorder_test(A->exps, A->length, A->bits, ctx->minfo))
return 0;
for (i = 0; i < A->length; i++)
{
if (A->coeffs[i] == UWORD(0))
return 0;
if (A->coeffs[i] >= ctx->mod.n)
return 0;
}
return 1;
}
void
nmod_mpoly_assert_canonical(const nmod_mpoly_t A, const nmod_mpoly_ctx_t ctx)
{
slong i;
if (!mpoly_monomials_valid_test(A->exps, A->length, A->bits, ctx->minfo))
flint_throw(FLINT_ERROR, "Polynomial exponents invalid");
if (mpoly_monomials_overflow_test(A->exps, A->length, A->bits, ctx->minfo))
flint_throw(FLINT_ERROR, "Polynomial exponents overflow");
if (!mpoly_monomials_inorder_test(A->exps, A->length, A->bits, ctx->minfo))
flint_throw(FLINT_ERROR, "Polynomial exponents out of order");
for (i = 0; i < A->length; i++)
{
if (A->coeffs[i] == UWORD(0))
flint_throw(FLINT_ERROR, "Polynomial has a zero coefficient");
if (A->coeffs[i] >= ctx->mod.n)
flint_throw(FLINT_ERROR, "Polynomial coefficient is out of range");
}
}