#include "fq_zech.h"
#include "mpoly.h"
#include "fq_zech_mpoly.h"
int fq_zech_mpoly_is_canonical(const fq_zech_mpoly_t A,
const fq_zech_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 (fq_zech_is_zero(A->coeffs + i, ctx->fqctx))
return 0;
}
return 1;
}
void fq_zech_mpoly_assert_canonical(const fq_zech_mpoly_t A,
const fq_zech_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 (fq_zech_is_zero(A->coeffs + i, ctx->fqctx))
flint_throw(FLINT_ERROR, "Polynomial has a zero coefficient");
}
}