The Primfield function is a placeholder for representing a primitive description of an algebraic extension. It is used in conjunction with either evala or mod.

The call evala(Primfield(L, K)) computes a primitive element of the field L over the field K, that is an element a such that $L=K\left(a\right)$. In case K is not specified, the smallest possible transcendental extension of the rational numbers is chosen.

A list of the form $\[\[\mathrm{q0}\],\[\mathrm{q1},\mathrm{q2},...,\mathrm{qn}\]\]$, where the $\mathrm{qi}$'s denote equations, is returned: the left-hand side of q0 is a RootOf representing the primitive element and the right-hand side of this equation is the expression of the primitive element in terms of the RootOfs in L. The left-hand side of the other equations are the RootOfs in L and the right-hand side are their expressions in terms of the powers of the primitive element.

The RootOfs in K must form a subset of the RootOfs occurring in L. In other words, K must be a 'syntactic' subfield of the field L.

In case Primfield is used in conjunction with mod then the field K equals Fp, the finite field with p elements and K cannot be specified. If L contains transcendental elements (if L contains variables) then random values in Fp will be substituted for these variables and $\left[\mathrm{q0}\right]$ will not be calculated.

Most Maple procedures used in conjunction with mod do not allow multiple or nested or reducible RootOfs as input. To handle such RootOfs, use Primfield to find a reduction to a single irreducible RootOf modulo p. If the input contains dependent or reducible RootOfs then Primfield in conjunction with evala will generate an error message, but Primfield in conjunction with mod will chose a random factor. This is useful for reducing expressions in characteristic zero to a finite field, a process in which irreducible and independent RootOfs often become reducible or dependent. For this application $\left[\mathrm{q0}\right]$ is often not needed; to avoid its computation include a variable in the set L.

$K≔\mathrm{evala}\left(\mathrm{Primfield}\left(\left\{\mathrm{RootOf}\left({\mathrm{\_Z}}^2-2\right)\,\mathrm{RootOf}\left({\mathrm{\_Z}}^2-3\right)\right\}\right)\right)$

$K≔\left[\left[\mathrm{RootOf}\left({\mathrm{\_Z}}^4-10{\mathrm{\_Z}}^2+1\right)=\mathrm{RootOf}\left({\mathrm{\_Z}}^2-2\right)+\mathrm{RootOf}\left({\mathrm{\_Z}}^2-3\right)\right]\,\left[\mathrm{RootOf}\left({\mathrm{\_Z}}^2-2\right)=\frac{{\mathrm{RootOf}\left({\mathrm{\_Z}}^4-10{\mathrm{\_Z}}^2+1\right)}^3}{2}-\frac{9\mathrm{RootOf}\left({\mathrm{\_Z}}^4-10{\mathrm{\_Z}}^2+1\right)}{2}\,\mathrm{RootOf}\left({\mathrm{\_Z}}^2-3\right)=\frac{11\mathrm{RootOf}\left({\mathrm{\_Z}}^4-10{\mathrm{\_Z}}^2+1\right)}{2}-\frac{{\mathrm{RootOf}\left({\mathrm{\_Z}}^4-10{\mathrm{\_Z}}^2+1\right)}^3}{2}\right]\right]$

$f≔x^2\mathrm{RootOf}\left({\mathrm{\_Z}}^2-3\right)+x\mathrm{RootOf}\left({\mathrm{\_Z}}^2-2\right)+1$

$f≔x^2\mathrm{RootOf}\left({\mathrm{\_Z}}^2-3\right)+x\mathrm{RootOf}\left({\mathrm{\_Z}}^2-2\right)+1$

$\mathrm{primf}≔\mathrm{eval}\left(f\,K\left[2\right]\right)$

$\mathrm{primf}≔x^2\left(\frac{11\mathrm{RootOf}\left({\mathrm{\_Z}}^4-10{\mathrm{\_Z}}^2+1\right)}{2}-\frac{{\mathrm{RootOf}\left({\mathrm{\_Z}}^4-10{\mathrm{\_Z}}^2+1\right)}^3}{2}\right)+x\left(\frac{{\mathrm{RootOf}\left({\mathrm{\_Z}}^4-10{\mathrm{\_Z}}^2+1\right)}^3}{2}-\frac{9\mathrm{RootOf}\left({\mathrm{\_Z}}^4-10{\mathrm{\_Z}}^2+1\right)}{2}\right)+1$

$\mathrm{f1}≔\mathrm{eval}\left(\mathrm{primf}\,K\left[1\right]\right)$

$\mathrm{f1}≔x^2\left(\frac{11\mathrm{RootOf}\left({\mathrm{\_Z}}^2-2\right)}{2}+\frac{11\mathrm{RootOf}\left({\mathrm{\_Z}}^2-3\right)}{2}-\frac{{\left(\mathrm{RootOf}\left({\mathrm{\_Z}}^2-2\right)+\mathrm{RootOf}\left({\mathrm{\_Z}}^2-3\right)\right)}^3}{2}\right)+x\left(\frac{{\left(\mathrm{RootOf}\left({\mathrm{\_Z}}^2-2\right)+\mathrm{RootOf}\left({\mathrm{\_Z}}^2-3\right)\right)}^3}{2}-\frac{9\mathrm{RootOf}\left({\mathrm{\_Z}}^2-2\right)}{2}-\frac{9\mathrm{RootOf}\left({\mathrm{\_Z}}^2-3\right)}{2}\right)+1$

$\mathrm{evala}\left(\mathrm{Normal}\left(f-\mathrm{f1}\right)\right)$

$0$

$\mathrm{alias}\left(\mathrm{\alpha }=\mathrm{RootOf}\left({\mathrm{\_Z}}^2-1-\mathrm{RootOf}\left({\mathrm{\_Z}}^2-2\right)\right)\right)\:$

$\mathrm{alias}\left(\mathrm{sqrt3}=\mathrm{RootOf}\left({\mathrm{\_Z}}^2-3\right)\right)\:$

$\mathrm{alias}\left(\mathrm{sqrt2}=\mathrm{RootOf}\left({\mathrm{\_Z}}^2-2\right)\right)\:$

$L≔\mathrm{evala}\left(\mathrm{Primfield}\left(\left\{\mathrm{\alpha }\,\mathrm{sqrt3}\right\}\,\left\{\mathrm{sqrt2}\right\}\right)\right)$

$L≔\left[\left[\mathrm{RootOf}\left({\mathrm{\_Z}}^4+\left(-2\mathrm{sqrt2}-8\right){\mathrm{\_Z}}^2-4\mathrm{sqrt2}+6\right)=\mathrm{sqrt3}+\mathrm{\alpha }\right]\,\left[\mathrm{sqrt3}=-\frac{{\mathrm{RootOf}\left({\mathrm{\_Z}}^4+\left(-2\mathrm{sqrt2}-8\right){\mathrm{\_Z}}^2-4\mathrm{sqrt2}+6\right)}^3\mathrm{sqrt2}}{4}-\frac{{\mathrm{RootOf}\left({\mathrm{\_Z}}^4+\left(-2\mathrm{sqrt2}-8\right){\mathrm{\_Z}}^2-4\mathrm{sqrt2}+6\right)}^3}{2}+3\mathrm{RootOf}\left({\mathrm{\_Z}}^4+\left(-2\mathrm{sqrt2}-8\right){\mathrm{\_Z}}^2-4\mathrm{sqrt2}+6\right)\mathrm{sqrt2}+\frac{11\mathrm{RootOf}\left({\mathrm{\_Z}}^4+\left(-2\mathrm{sqrt2}-8\right){\mathrm{\_Z}}^2-4\mathrm{sqrt2}+6\right)}{2}\,\mathrm{\alpha }=-\frac{9\mathrm{RootOf}\left({\mathrm{\_Z}}^4+\left(-2\mathrm{sqrt2}-8\right){\mathrm{\_Z}}^2-4\mathrm{sqrt2}+6\right)}{2}+\frac{{\mathrm{RootOf}\left({\mathrm{\_Z}}^4+\left(-2\mathrm{sqrt2}-8\right){\mathrm{\_Z}}^2-4\mathrm{sqrt2}+6\right)}^3\mathrm{sqrt2}}{4}+\frac{{\mathrm{RootOf}\left({\mathrm{\_Z}}^4+\left(-2\mathrm{sqrt2}-8\right){\mathrm{\_Z}}^2-4\mathrm{sqrt2}+6\right)}^3}{2}-3\mathrm{RootOf}\left({\mathrm{\_Z}}^4+\left(-2\mathrm{sqrt2}-8\right){\mathrm{\_Z}}^2-4\mathrm{sqrt2}+6\right)\mathrm{sqrt2}\right]\right]$

$p≔17$

$p≔17$

$\mathrm{Primfield}\left(\left\{\mathrm{\alpha }\,\mathrm{dummy}\,\mathrm{sqrt2}\,\mathrm{sqrt3}\right\}\right)\mathbf{mod}p$

$\left[\left[\right]\,\left[\mathrm{dummy}=8\,\mathrm{\alpha }=15\mathrm{RootOf}\left({\mathrm{\_Z}}^2+14\right)\,\mathrm{sqrt3}=\mathrm{RootOf}\left({\mathrm{\_Z}}^2+14\right)\,\mathrm{sqrt2}=11\right]\right]$

$\mathrm{Primfield}\left(\left\{\mathrm{\alpha }\,\mathrm{sqrt2}\,\mathrm{sqrt3}\right\}\right)\mathbf{mod}p$

$\left[\left[\mathrm{RootOf}\left({\mathrm{\_Z}}^2+14\right)=\mathrm{sqrt3}\right]\,\left[\mathrm{\alpha }=15\mathrm{RootOf}\left({\mathrm{\_Z}}^2+14\right)\,\mathrm{sqrt3}=\mathrm{RootOf}\left({\mathrm{\_Z}}^2+14\right)\,\mathrm{sqrt2}=11\right]\right]$