A magma is right semimedial if it satisfies the right semimedial law (Y*Z)*(X*X) = (Y*X)*(Z*X).

The IsRightSemimedial command returns true if the given magma is right semimedial.  It returns false otherwise.

$\mathrm{with}\left(\mathrm{Magma}\right)\:$

$m≔⟨⟨⟨1\left|2\right|3⟩\,⟨2\left|3\right|1⟩\,⟨3\left|1\right|2⟩⟩⟩$

$m≔\left[\begin{array}{ccc}1& 2& 3\\ 2& 3& 1\\ 3& 1& 2\end{array}\right]$

$\mathrm{IsRightSemimedial}\left(m\right)$

$\mathrm{true}$

$m≔⟨⟨⟨1\left|2\right|3⟩\,⟨2\left|3\right|3⟩\,⟨3\left|1\right|2⟩⟩⟩$

$m≔\left[\begin{array}{ccc}1& 2& 3\\ 2& 3& 3\\ 3& 1& 2\end{array}\right]$

$\mathrm{IsRightSemimedial}\left(m\right)$

$\mathrm{false}$

The Magma[IsRightSemimedial] command was introduced in Maple 15.

For more information on Maple 15 changes, see Updates in Maple 15.