OpenMath XML (source)
<OMOBJ xmlns="http://www.openmath.org/OpenMath" version="2.0">
<OMA><OMS cd="group2" name="isomorphic"/>
<OMS cd="groupname1" name="quaternion_group"/>
<OMA><OMS cd="group3" name="quotient_group"/>
<OMA><OMS cd="group3" name="free_group"/>
<OMV name="a"/> <OMV name="b"/>
</OMA>
<OMA><OMS cd="group1" name="normal_closure"/>
<OMA><OMS cd="group3" name="free_group"/>
<OMV name="a"/> <OMV name="b"/>
</OMA>
<OMA><OMS cd="fns2" name="apply_to_list"/>
<OMBIND><OMS cd="fns1" name="lambda"/>
<OMBVAR><OMV name="x"/> </OMBVAR>
<OMA><OMS cd="group1" name="expression"/>
<OMA><OMS cd="group3" name="free_group"/>
<OMV name="a"/> <OMV name="b"/>
</OMA>
<OMV name="x"/>
</OMA>
</OMBIND>
<OMA><OMS cd="list1" name="list"/>
<OMA><OMS cd="arith1" name="power"/>
<OMV name="a"/>
<OMI>4</OMI>
</OMA>
<OMA><OMS cd="arith1" name="times"/>
<OMA><OMS cd="arith1" name="power"/>
<OMV name="a"/>
<OMI>2</OMI>
</OMA>
<OMA><OMS cd="arith1" name="power"/>
<OMV name="b"/>
<OMI>-2</OMI>
</OMA>
</OMA>
<OMA><OMS cd="arith1" name="times"/>
<OMA><OMS cd="arith1" name="power"/>
<OMV name="a"/>
<OMI>2</OMI>
</OMA>
<OMV name="b"/>
<OMV name="a"/>
<OMA><OMS cd="arith1" name="power"/>
<OMV name="b"/>
<OMI>-1</OMI>
</OMA>
<OMA><OMS cd="arith1" name="power"/>
<OMV name="a"/>
<OMI>-1</OMI>
</OMA>
</OMA>
</OMA>
</OMA>
</OMA>
</OMA>
</OMA>
</OMOBJ>
Strict Content MathML
<math xmlns="http://www.w3.org/1998/Math/MathML">
<apply><csymbol cd="group2">isomorphic</csymbol>
<csymbol cd="groupname1">quaternion_group</csymbol>
<apply><csymbol cd="group3">quotient_group</csymbol>
<apply><csymbol cd="group3">free_group</csymbol><ci>a</ci><ci>b</ci></apply>
<apply><csymbol cd="group1">normal_closure</csymbol>
<apply><csymbol cd="group3">free_group</csymbol><ci>a</ci><ci>b</ci></apply>
<apply><csymbol cd="fns2">apply_to_list</csymbol>
<bind><csymbol cd="fns1">lambda</csymbol>
<bvar><ci>x</ci></bvar>
<apply><csymbol cd="group1">expression</csymbol>
<apply><csymbol cd="group3">free_group</csymbol><ci>a</ci><ci>b</ci></apply>
<ci>x</ci>
</apply>
</bind>
<apply><csymbol cd="list1">list</csymbol>
<apply><csymbol cd="arith1">power</csymbol><ci>a</ci><cn>4</cn></apply>
<apply><csymbol cd="arith1">times</csymbol>
<apply><csymbol cd="arith1">power</csymbol><ci>a</ci><cn>2</cn></apply>
<apply><csymbol cd="arith1">power</csymbol><ci>b</ci><cn>-2</cn></apply>
</apply>
<apply><csymbol cd="arith1">times</csymbol>
<apply><csymbol cd="arith1">power</csymbol><ci>a</ci><cn>2</cn></apply>
<ci>b</ci>
<ci>a</ci>
<apply><csymbol cd="arith1">power</csymbol><ci>b</ci><cn>-1</cn></apply>
<apply><csymbol cd="arith1">power</csymbol><ci>a</ci><cn>-1</cn></apply>
</apply>
</apply>
</apply>
</apply>
</apply>
</apply>
</math>
Popcorn
group2.isomorphic(groupname1.quaternion_group, group3.quotient_group(group3.free_group($a, $b), group1.normal_closure(group3.free_group($a, $b), fns2.apply_to_list(fns1.lambda[$x -> group1.expression(group3.free_group($a, $b), $x)], [$a ^ 4 , $a ^ 2 * $b ^ -2 , $a ^ 2 * $b * $a * $b ^ -1 * $a ^ -1]))))
Rendered Presentation MathML
isomorphic
(
quaternion_group
,
quotient_group
(
free_group
(
a
,
b
)
,
normal_closure
(
free_group
(
a
,
b
)
,
apply_to_list
(
λ
x
.
expression
(
free_group
(
a
,
b
)
,
x
)
,
a
4
a
2
b
-2
a
2
b
a
b
-1
a
-1
)
)
)
)