xmlns:xlink="http://www.w3.org/1999/xlink">
<!-- OLD: <xsl:import href="mml2mmlv1_0.xsl"/> -->
-<xsl:import href="mmlctop.xsl-0.14"/>
+
+<xsl:import href="mmlnotation.xsl"/>
<xsl:import href="mmltheoryextension.xsl"/>
+
<xsl:param name="explodeall" select="false()"/>
<!--***********************************************************************-->
<xsl:for-each select="Conjecture">
<m:mtr>
<m:mtd>
- <m:mrow>
+ <m:mrow helm:xref="{@helm:xref}">
<m:mphantom><m:mtext>__</m:mtext></m:mphantom>
- <m:mtext><xsl:value-of select="./@no"/>:</m:mtext>
- <xsl:apply-templates select="./*[1]"/>
+ <xsl:for-each select="Decl|Def|Hidden">
+ <xsl:choose>
+ <xsl:when test="name(.)='Decl'">
+ <m:mrow helm:xref="{@helm:xref}">
+ <xsl:choose>
+ <xsl:when test="@name">
+ <m:mi><xsl:value-of select="@name"/></m:mi>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mi>_</m:mi>
+ </xsl:otherwise>
+ </xsl:choose>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="./*[1]"/>
+ </m:mrow>
+ </xsl:when>
+ <xsl:when test="name(.)='Def'">
+ <m:mrow helm:xref="{@helm:xref}">
+ <xsl:choose>
+ <xsl:when test="@name">
+ <m:mi><xsl:value-of select="@name"/></m:mi>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mi>_</m:mi>
+ </xsl:otherwise>
+ </xsl:choose>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="./*[1]"/>
+ </m:mrow>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow helm:xref="{@helm:xref}">
+ <m:mi>_</m:mi>
+ <m:mo>:?</m:mo>
+ <m:mi>_</m:mi>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:if test="not (position() = last())">
+ <m:mo>;</m:mo>
+ </xsl:if>
+ </xsl:for-each>
+ <m:mo>|-</m:mo>
+ <m:msub><m:mi>?</m:mi><m:mn><xsl:value-of select="@no"/></m:mn></m:msub>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="./Goal/*[1]"/>
</m:mrow>
</m:mtd>
</m:mtr>
<m:mtr>
<m:mtd>
<m:mrow>
- <m:mtext>CORRESPONDING PROOF:</m:mtext>
+ <m:mtext>PROOF:</m:mtext>
</m:mrow>
</m:mtd>
</m:mtr>
</m:math>
</xsl:template>
+<!-- SEQUENT -->
+
+<xsl:template match="Sequent">
+ <xsl:variable name="rowlines">
+ <xsl:for-each select="Decl|Def">
+ <xsl:if test="position() != last()">
+ <xsl:text>none </xsl:text>
+ </xsl:if>
+ </xsl:for-each>
+ <xsl:text>solid</xsl:text>
+ </xsl:variable>
+ <xsl:variable name="no" select="@no"/>
+ <m:math>
+ <m:mi><xsl:text>?</xsl:text><xsl:value-of select="$no"/></m:mi>
+ <m:mo>:</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}" rowlines="{$rowlines}">
+ <xsl:for-each select="Decl|Def">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow helm:xref="{@helm:xref}">
+ <m:mi><xsl:value-of select="@name"/></m:mi>
+ <xsl:choose>
+ <xsl:when test="name(.) = 'Decl'">
+ <m:mo>:</m:mo>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo>:=</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select="*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <xsl:if test="not(Decl|Def)">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:apply-templates select="Goal/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
<!--**********************-->
<!-- TERMS -->
<!--**********************-->
<xsl:variable name="name"><xsl:value-of select="m:csymbol"/></xsl:variable>
<xsl:variable name="charlength"><xsl:apply-templates select="m:csymbol" mode="charcount"/></xsl:variable>
<m:mrow>
- <xsl:if test="@helm:xref">
- <xsl:attribute name="m:xref"><xsl:value-of select="@id"/></xsl:attribute>
+ <xsl:if test="@id">
+ <xsl:attribute name="xref"><xsl:value-of select="@id"/></xsl:attribute>
</xsl:if>
+ <xsl:variable name="id" select="m:csymbol/@id"/>
<xsl:choose>
+ <!-- META -->
+ <xsl:when test="$name='meta'">
+ <m:mrow>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <m:mfenced open="[" close="]" separators=";">
+ <xsl:apply-templates select="*[position()>2]"/>
+ </m:mfenced>
+ </m:mrow>
+ </xsl:when>
<!-- FORALL -->
<xsl:when test="$name='forall'">
<xsl:choose>
<m:mtd>
<m:mrow>
<m:mo stretchy="false">(</m:mo>
- <xsl:apply-templates select="*[position()=2]"/>
+<!-- added precedence to app = FUNCTION_PREC (99) -->
+ <xsl:apply-templates select="*[position()=2]">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
</m:mrow>
</m:mtd>
</m:mtr>
<m:mtd>
<m:mrow>
<m:mphantom><m:mtext>(</m:mtext></m:mphantom>
- <xsl:apply-templates select="."/>
+<!-- added precedence to app = FUNCTION_PREC (99) -->
+ <xsl:apply-templates select=".">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
</m:mrow>
</m:mtd>
</m:mtr>
</xsl:when>
<xsl:otherwise>
<m:mo stretchy="false">(</m:mo>
- <xsl:apply-templates select="*[position()=2]"/>
+<!-- added precedence to app = FUNCTION_PREC (99) -->
+ <xsl:apply-templates select="*[position()=2]">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
<xsl:for-each select="*[position()>2]">
<m:mphantom><m:mtext>_</m:mtext></m:mphantom>
- <xsl:apply-templates select="."/>
+<!-- added precedence to app = FUNCTION_PREC (99) -->
+ <xsl:apply-templates select=".">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
</xsl:for-each>
<m:mo stretchy="false">)</m:mo>
</xsl:otherwise>
</m:mrow>
</m:mtd>
</m:mtr>
- <xsl:for-each select="piecewise/piece">
+ <xsl:for-each select="m:piecewise/m:piece">
<xsl:variable name="charlength"><xsl:apply-templates select="./*[2]" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
<m:mtr>
<m:mtd>
<xsl:apply-templates select="*[position()=3]"/>
<m:mphantom><m:mtext>_</m:mtext></m:mphantom>
<m:mo>OF</m:mo>
- <xsl:for-each select="piecewise/piece">
+ <xsl:for-each select="m:piecewise/m:piece">
<xsl:choose>
<xsl:when test="position() != 1">
<m:mo stretchy="false">|</m:mo>
<!-- ***************************************** -->
<!-- PROOF -->
<xsl:when test="$name='proof'">
- <m:maction actiontype="toggle">
- <!-- CSC: next if until the annotationHelper can handle mactions -->
- <xsl:if test="not($explodeall)">
- <!-- Details hided (default) -->
+ <!-- CSC: $explodeall until the annotationHelper can handle mactions -->
+ <xsl:variable name="test" select="(not($explodeall)) and
+ (not(preceding-sibling::*[1]/text()='letin1')) and
+ (not(preceding-sibling::*[1]/text()='rw_step')) and
+ (not(name(..)='m:lambda'))"/>
+ <xsl:variable name="hidden_details">
+ <xsl:if test="$test">
+ <!-- Details hided (default) -->
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext mathcolor="Red">We can prove</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <!-- the last child is either the expected type, if provided,-->
+ <!-- or the synthesized type. -->
+ <xsl:apply-templates select="*[position()=last()]"/>
+ <m:mrow>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext mathcolor="Green">(explain)</m:mtext>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:if>
+ </xsl:variable>
+ <xsl:variable name="shown_details">
+ <!-- Show details -->
<m:mtable align="baseline 1" equalrows="false" columnalign="left">
<m:mtr>
<m:mtd>
<m:mrow>
- <m:mtext mathcolor="Maroon">We can prove</m:mtext>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:variable name="hidedetails">
+ <m:mrow>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <xsl:if test="$test">
+ <m:mtext mathcolor="Green">(hide details)</m:mtext>
+ </xsl:if>
+ </m:mrow>
+ </xsl:variable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext mathcolor="Red">we proved</m:mtext>
<m:mphantom><m:mtext>_</m:mtext></m:mphantom>
<xsl:apply-templates select="*[position()=3]"/>
+ <xsl:if test="not(*[4])">
+ <xsl:copy-of select="$hidedetails"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="*[4]">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext mathcolor="Red">that is equivalent to</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=4]"/>
+ <xsl:copy-of select="$hidedetails"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ </m:mtable>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$test">
+ <m:maction actiontype="toggle">
+ <xsl:copy-of select="$hidden_details"/>
+ <xsl:copy-of select="$shown_details"/>
+ </m:maction>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:copy-of select="$shown_details"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <!-- SIDE_PROOF -->
+ <xsl:when test="$name='side_proof'">
+ <xsl:variable name="test" select="(not($explodeall))"/>
+ <xsl:variable name="hidden_details">
+ <xsl:if test="$test">
+ <!-- Details hided (default) -->
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
<m:mrow>
+ <m:mtext mathcolor="Red">We can prove</m:mtext>
<m:mphantom><m:mtext>_</m:mtext></m:mphantom>
- <m:mtext mathcolor="Green">(explain)</m:mtext>
+ <!-- the last child is either the expected type, if provided,-->
+ <!-- or the synthesized type. -->
+ <xsl:apply-templates select="*[position()=last()]"/>
+ <m:mrow>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext mathcolor="Green">(explain)</m:mtext>
+ </m:mrow>
</m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:if>
+ </xsl:variable>
+ <xsl:variable name="shown_details">
+ <!-- Show details -->
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:apply-templates select="*[position()=2]"/>
</m:mrow>
</m:mtd>
</m:mtr>
- </m:mtable>
- </xsl:if>
- <!-- Show details -->
- <m:mtable align="baseline 1" equalrows="false" columnalign="left">
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <xsl:apply-templates select="*[position()=2]"/>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mtext mathcolor="Maroon">we proved</m:mtext>
- <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
- <xsl:apply-templates select="*[position()=3]"/>
+ <xsl:variable name="hidedetails">
<m:mrow>
<m:mphantom>
<m:mtext>_</m:mtext>
</m:mphantom>
- <m:mtext mathcolor="Green">(hide details)</m:mtext>
+ <xsl:if test="$test">
+ <m:mtext mathcolor="Green">(hide details)</m:mtext>
+ </xsl:if>
</m:mrow>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- </m:mtable>
- </m:maction>
+ </xsl:variable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext mathcolor="Red">we proved</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <xsl:if test="not(*[4])">
+ <xsl:copy-of select="$hidedetails"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="*[4]">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext mathcolor="Red">that is equivalent to</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=4]"/>
+ <xsl:copy-of select="$hidedetails"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ </m:mtable>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$test">
+ <m:maction actiontype="toggle">
+ <xsl:copy-of select="$hidden_details"/>
+ <xsl:copy-of select="$shown_details"/>
+ </m:maction>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:copy-of select="$shown_details"/>
+ </xsl:otherwise>
+ </xsl:choose>
</xsl:when>
<!-- LETIN1 -->
<xsl:when test="$name='letin1'">
<m:mtr>
<m:mtd>
<m:mrow>
- <xsl:apply-templates select="*[2]"/>
+ <xsl:apply-templates select="*[position()=2]"/>
</m:mrow>
</m:mtd>
</m:mtr>
<m:mtr>
<m:mtd>
<m:mrow>
- <xsl:apply-templates select="*[3]"/>
+ <xsl:apply-templates select="*[position()=3]"/>
</m:mrow>
</m:mtd>
</m:mtr>
<m:mtr>
<m:mtd>
<m:mrow>
- <m:mtext mathcolor="red">We prove</m:mtext>
+ <m:mtext mathcolor="Red">We prove</m:mtext>
<m:mphantom><m:mtext>_</m:mtext></m:mphantom>
<xsl:apply-templates select="../*[3]"/>
</m:mrow>
<m:mtr>
<m:mtd>
<m:mrow>
- <m:mtext mathcolor="red">by induction on</m:mtext>
+ <m:mtext mathcolor="Red">by induction on</m:mtext>
<m:mphantom><m:mtext>_</m:mtext></m:mphantom>
<xsl:apply-templates
select="*[position()=last()]/*[position()=last()]"/>
<m:mtr>
<m:mtd>
<m:mrow>
- <m:mtext mathcolor="red">Case</m:mtext>
+ <m:mtext mathcolor="Red">Case</m:mtext>
<m:mphantom><m:mtext>_</m:mtext></m:mphantom>
<xsl:apply-templates select="*[2]"/>
</m:mrow>
<m:mtr>
<m:mtd>
<m:mrow>
- <m:mtext mathcolor="red">By induction hypothesis, we have:</m:mtext>
+ <m:mtext mathcolor="Red">By induction hypothesis, we have:</m:mtext>
</m:mrow>
</m:mtd>
</m:mtr>
</m:mtr>
</m:mtable>
</xsl:when>
+ <!-- EQ_CHAIN -->
+ <xsl:when test="$name='eq_chain'">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext mathcolor="Red">We have the following equality chain:</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="*[position() mod 2 = 0]">
+ <xsl:variable name="pos" select="position()"/>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="$pos = 1">
+ <xsl:apply-templates select="."/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mo>=</m:mo>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo>=</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$pos != last()">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="../*[position()=2*$pos +1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ </xsl:for-each>
+ </m:mtable>
+ </xsl:when>
+ <!-- DISEQ_CHAIN -->
+ <xsl:when test="$name='diseq_chain'">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext mathcolor="Red">We have the following disequality chain:</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="*[position() mod 3 = 2]">
+ <xsl:variable name="pos" select="position()"/>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="$pos = 1">
+ <xsl:apply-templates select="."/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <mo><xsl:apply-templates select="../*[position()=3*$pos]"/></mo>
+ </xsl:when>
+ <xsl:otherwise>
+ <mo><xsl:apply-templates select="../*[position()=3*($pos - 1)]"/></mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$pos != last()">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="../*[position()=3*$pos +1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ </xsl:for-each>
+ </m:mtable>
+ </xsl:when>
<!-- ***************************************** -->
<!-- *********** NOTATIONS ******************* -->
<!-- ***************************************** -->
<!-- subst -->
<xsl:when test="$name='subst'">
<xsl:apply-templates select="*[3]"/>
- <m:mo></m:mo>
- <m:mrow>
- <m:mo stretchy="false">[</m:mo>
- <m:mrow>
- <xsl:apply-templates select="*[4]"/>
- <m:mo mathcolor="green">
- <xsl:if test="$id != ''">
- <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
- </xsl:if>←</m:mo>
- <xsl:apply-templates select="*[2]"/>
- </m:mrow>
- <m:mo stretchy="false">]</m:mo>
- </m:mrow>
+<!-- no font for ApplyFunction: <m:mo></m:mo> -->
+ <m:mo stretchy="false">[</m:mo>
+ <xsl:apply-templates select="*[4]"/>
+ <m:mo mathcolor="Green">
+ <xsl:if test="$id != ''">
+ <xsl:attribute name="xref"><xsl:value-of select="$id"/></xsl:attribute>
+ </xsl:if>←</m:mo>
+ <xsl:apply-templates select="*[2]"/>
+ <m:mo stretchy="false">]</m:mo>
</xsl:when>
<!-- lift -->
<xsl:when test="$name='lift'">
<m:msup>
- <m:mo mathcolor="green">
+ <m:mo mathcolor="Green">
<xsl:if test="$id != ''">
- <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
+ <xsl:attribute name="xref"><xsl:value-of select="$id"/></xsl:attribute>
</xsl:if>↑</m:mo>
<xsl:apply-templates select="*[2]"/>
</m:msup>
<!-- lift_with_base -->
<xsl:when test="$name='lift_with_base'">
<m:msubsup>
- <m:mo mathcolor="green">
+ <m:mo mathcolor="Green">
<xsl:if test="$id != ''">
- <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
+ <xsl:attribute name="xref"><xsl:value-of select="$id"/></xsl:attribute>
</xsl:if>↑</m:mo>
<xsl:apply-templates select="*[3]"/>
<xsl:apply-templates select="*[4]"/>
<xsl:when test="$name='beta_red1'">
<xsl:apply-templates select="*[2]"/>
<m:munder>
- <m:mo mathcolor="green">
+ <m:mo mathcolor="Green">
<xsl:if test="$id != ''">
- <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
+ <xsl:attribute name="xref"><xsl:value-of select="$id"/></xsl:attribute>
</xsl:if>→</m:mo>
- <m:mi mathcolor="green">β</m:mi>
+ <m:mi mathcolor="Green">β</m:mi>
</m:munder>
<xsl:apply-templates select="*[3]"/>
</xsl:when>
<xsl:when test="$name='beta_red'">
<xsl:apply-templates select="*[2]"/>
<m:munderover>
- <m:mo mathcolor="green">
+ <m:mo mathcolor="Green">
<xsl:if test="$id != ''">
- <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
+ <xsl:attribute name="xref"><xsl:value-of select="$id"/></xsl:attribute>
</xsl:if>→</m:mo>
- <m:mi mathcolor="green">β</m:mi>
- <m:mi mathcolor="green">*</m:mi>
+ <m:mi mathcolor="Green">β</m:mi>
+ <m:mi mathcolor="Green">*</m:mi>
</m:munderover>
<xsl:apply-templates select="*[3]"/>
</xsl:when>
<xsl:when test="$name='par_beta_red1'">
<xsl:apply-templates select="*[2]"/>
<m:munder>
- <m:mo mathcolor="green">
+ <m:mo mathcolor="Green">
<xsl:if test="$id != ''">
- <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
+ <xsl:attribute name="xref"><xsl:value-of select="$id"/></xsl:attribute>
</xsl:if>⇒</m:mo>
- <m:mi mathcolor="green">β</m:mi>
+ <m:mi mathcolor="Green">β</m:mi>
</m:munder>
<xsl:apply-templates select="*[3]"/>
</xsl:when>
<xsl:when test="$name='par_beta_red'">
<xsl:apply-templates select="*[2]"/>
<m:munderover>
- <m:mo mathcolor="green">
+ <m:mo mathcolor="Green">
<xsl:if test="$id != ''">
- <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
+ <xsl:attribute name="xref"><xsl:value-of select="$id"/></xsl:attribute>
</xsl:if>⇒</m:mo>
- <m:mi mathcolor="green">β</m:mi>
- <m:mi mathcolor="green">*</m:mi>
+ <m:mi mathcolor="Green">β</m:mi>
+ <m:mi mathcolor="Green">*</m:mi>
</m:munderover>
<xsl:apply-templates select="*[3]"/>
</xsl:when>
<xsl:when test="$name='forgetful'">
<m:mfenced open="|" close="|">
<xsl:if test="$id != ''">
- <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
+ <xsl:attribute name="xref"><xsl:value-of select="$id"/></xsl:attribute>
</xsl:if>
<xsl:apply-templates select="*[2]"/>
</m:mfenced>
<!-- isomorphic -->
<xsl:when test="$name='isomorphic'">
<xsl:apply-templates select="*[2]"/>
- <m:mo mathcolor="green">
+ <m:mo mathcolor="Green">
<xsl:if test="$id != ''">
- <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
+ <xsl:attribute name="xref"><xsl:value-of select="$id"/></xsl:attribute>
</xsl:if>≅</m:mo>
<xsl:apply-templates select="*[3]"/>
</xsl:when>
<xsl:when test="$name='forgetful'">
<m:mfenced open="[" close="]">
<xsl:if test="$id != ''">
- <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
+ <xsl:attribute name="xref"><xsl:value-of select="$id"/></xsl:attribute>
</xsl:if>
<xsl:apply-templates select="*[2]"/>
</m:mfenced>
<m:mtr>
<m:mtd>
<m:mrow>
- <m:mtext mathcolor="Maroon">we get</m:mtext>
+ <m:mtext mathcolor="Red">we get</m:mtext>
<m:mphantom><m:mtext>_</m:mtext></m:mphantom>
<xsl:apply-templates select="."/>
</m:mrow>
<m:mtr>
<m:mtd>
<m:mrow>
- <m:mtext mathcolor="Maroon">we get</m:mtext>
+ <m:mtext mathcolor="Red">we get</m:mtext>
<m:mphantom><m:mtext>_</m:mtext></m:mphantom>
<xsl:apply-templates select="."/>
</m:mrow>
<xsl:template match="m:lambda">
<xsl:variable name="charlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"/></xsl:variable>
- <m:mrow m:xref="{@id}">
+ <m:mrow>
+ <xsl:if test="@id">
+ <xsl:attribute name="xref">
+ <xsl:value-of select="@id"/>
+ </xsl:attribute>
+ </xsl:if>
<xsl:choose>
<xsl:when test="$charlength >= $framewidth">
<m:mtable align="baseline 1" equalrows="false" columnalign="left">
</m:mrow>
</xsl:template>
-<!-- *********************************** -->
-<!-- BASE SET OF MATHML CONTENT ELEMENTS -->
-<!-- *********************************** -->
-
-<!-- Logic -->
-
-<xsl:template match = "m:apply[m:eq[1]]">
- <xsl:variable name="charlength">
- <xsl:apply-templates select="*[1]" mode="charcount"/>
- </xsl:variable>
- <xsl:choose>
- <xsl:when test="$charlength >= $framewidth">
- <m:mtable align="baseline 1" equalrows="false" columnalign="left">
- <xsl:if test="@helm:xref">
- <xsl:attribute name="m:xref">
- <xsl:value-of select="@id"/>
- </xsl:attribute>
- </xsl:if>
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mo stretchy="false">(</m:mo>
- <xsl:apply-templates select="*[position()=2]"/>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- <xsl:for-each select = "*[position()>2]">
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
- <m:mo m:xref="{m:in/@id}">=</m:mo>
- <xsl:apply-templates select="."/>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- </xsl:for-each>
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mo stretchy="false">)</m:mo>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- </m:mtable>
- </xsl:when>
- <xsl:otherwise>
- <xsl:apply-imports/>
- </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-
-<xsl:template match = "m:apply[m:and[1]|m:or[1]
- |m:geq[1]|m:leq[1]|m:gt[1]|m:lt[1]
- |m:in[1]|m:intesect[1]|m:union[1]|m:subset[1]
- |m:prsubset|m:setdiff[1]]">
- <xsl:variable name="symbol">
- <xsl:choose>
- <xsl:when test="m:and[1]">
- <xsl:value-of select="'∧'"/>
- </xsl:when>
- <xsl:when test="m:or[1]">
- <xsl:value-of select="'∨'"/>
- </xsl:when>
- <xsl:when test="m:geq[1]">
- <xsl:value-of select="'≥'"/>
- </xsl:when>
- <xsl:when test="m:leq[1]">
- <xsl:value-of select="'≤'"/>
- </xsl:when>
- <xsl:when test="m:gt[1]">
- <xsl:value-of select="'>'"/>
- </xsl:when>
- <xsl:when test="m:lt[1]">
- <xsl:value-of select="'< '"/>
- </xsl:when>
- <xsl:when test="m:eq[1]">
- <xsl:value-of select="'='"/>
- </xsl:when>
- <xsl:when test="m:in[1]">
- <xsl:value-of select="'∈'"/>
- </xsl:when>
- <xsl:when test="m:subset[1]">
- <xsl:value-of select="'⊆'"/>
- </xsl:when>
- <xsl:when test="m:prsubset[1]">
- <xsl:value-of select="'⊂'"/>
- </xsl:when>
- <xsl:when test="m:intersect[1]">
- <xsl:value-of select="'⋂'"/>
- </xsl:when>
- <xsl:when test="m:union[1]">
- <xsl:value-of select="'⋃'"/>
- </xsl:when>
- <xsl:when test="m:setdiff[1]">
- <xsl:value-of select="'∖'"/>
- </xsl:when>
- </xsl:choose>
- </xsl:variable>
- <xsl:variable name="charlength">
- <xsl:apply-templates select="*[1]" mode="charcount"/>
- </xsl:variable>
- <xsl:choose>
- <xsl:when test="$charlength >= $framewidth">
- <m:mtable align="baseline 1" equalrows="false" columnalign="left">
- <xsl:if test="@helm:xref">
- <xsl:attribute name="m:xref">
- <xsl:value-of select="@id"/>
- </xsl:attribute>
- </xsl:if>
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mo stretchy="false">(</m:mo>
- <xsl:apply-templates select="*[position()=2]"/>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- <xsl:for-each select = "*[position()>2]">
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
- <m:mo m:xref="{*[1]/@id}"><xsl:value-of select="$symbol"/></m:mo>
- <xsl:apply-templates select="."/>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- </xsl:for-each>
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mo stretchy="false">)</m:mo>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- </m:mtable>
- </xsl:when>
- <xsl:otherwise>
- <xsl:apply-imports/>
- </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:set">
- <xsl:choose>
- <xsl:when test="count(child::*) = 0">
- <m:mi>∅</m:mi>
- </xsl:when>
- <xsl:otherwise>
- <xsl:variable name="charlength">
- <xsl:apply-templates select="*[1]" mode="charcount"/>
- </xsl:variable>
- <xsl:choose>
- <xsl:when test="$charlength >= $framewidth">
- <xsl:choose>
- <xsl:when test="name(*[1]) = 'm:bvar'">
- <m:mtable align="baseline 1" equalrows="false" columnalign="left">
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mo stretchy="false">{</m:mo>
- <xsl:apply-templates select="*[position()=1]"/>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mphantom><m:mtext>{</m:mtext></m:mphantom>
- <m:mo stretchy="false">|</m:mo>
- <xsl:apply-templates select="m:condition/*[1]"/>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mo stretchy="false">}</m:mo>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- </m:mtable>
- </xsl:when>
- <xsl:otherwise>
- <m:mtable align="baseline 1" equalrows="false" columnalign="left">
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mo stretchy="false">{</m:mo>
- <xsl:apply-templates select="*[position()=1]"/>
- <xsl:if test="position() != last()">
- <mo>,</mo>
- </xsl:if>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- <xsl:for-each select = "*[position()>2]">
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mphantom><m:mtext>{</m:mtext></m:mphantom>
- <xsl:apply-templates select="."/>
- <xsl:if test="position() != last()">
- <mo>,</mo>
- </xsl:if>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- </xsl:for-each>
- <m:mtr>
- <m:mtd>
- <m:mrow>
- <m:mo stretchy="false">}</m:mo>
- </m:mrow>
- </m:mtd>
- </m:mtr>
- </m:mtable>
- </xsl:otherwise>
- </xsl:choose>
- </xsl:when>
- <xsl:otherwise>
- <xsl:apply-imports/>
- </xsl:otherwise>
- </xsl:choose>
- </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:card[1]]">
- <m:mfenced open="|" close="|" stretchy="false">
- <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
- <xsl:attribute name="m:xref">
- <xsl:value-of select="@id"/>
- </xsl:attribute>
- </xsl:if>
- <xsl:apply-templates select="*[2]"/>
- </m:mfenced>
-</xsl:template>
-
-<!-- *********************************** -->
-<!-- PROOF ELEMENTS -->
-<!-- *********************************** -->
-
-
<!--**********************-->
<!-- COUNTING -->
<xsl:param name="nosibling" select="0"/>
<xsl:choose>
<xsl:when test="count(child::*) = 0">
- <xsl:value-of select="$incurrent_length"/>
+ <!-- tremendous bug fixed. An empty element can still have siblings!!! -->
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="$incurrent_length"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
</xsl:when>
<xsl:otherwise>
<xsl:variable name="childlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length"/><xsl:with-param name="nosibling" select="0"/></xsl:apply-templates></xsl:variable>
</xsl:template>
</xsl:stylesheet>
+