A Steiner magma is a commutative magma that satisfies the law X*(X*Y) = Y.

The IsSteiner command returns true if the given magma is a Steiner magma. It returns false otherwise.

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

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

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

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

$\mathrm{true}$

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

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

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

$\mathrm{false}$

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

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