]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/nuprl_stylesheets/nuprl_content_to_html2.xsl
ocaml 3.09 transition
[helm.git] / helm / nuprl_stylesheets / nuprl_content_to_html2.xsl
index 43d420f2f6fd920cfdab3a73747d3e2a1258b5da..ef15f1961ab592f13a804062a9e9a558cba2f7ea 100644 (file)
     </xsl:choose>
   </xsl:variable>
 <!--exists-->
-  <xsl:variable name="exists">
+  <xsl:variable name="NUPRLexists">
     <xsl:choose>
       <xsl:when test="$UNICODEvsSYMBOL = 'symbol'">&#x24;</xsl:when>
       <xsl:when test="$UNICODEvsSYMBOL = 'unicode'">&#8707;</xsl:when>
 
 <xsl:template mode="inline" match="m:apply[m:exists]">
                <xsl:call-template name="mksymbol">
-               <xsl:with-param name="symbol" select="$exists"/>
+               <xsl:with-param name="symbol" select="$NUPRLexists"/>
                <xsl:with-param name="color" select="'blue'"/>
                <xsl:with-param name="size" select="'+0'"/>
        </xsl:call-template>
        <xsl:choose>
        <xsl:when test="$charlength > $framewidth">
        <xsl:call-template name="mksymbol">
-               <xsl:with-param name="symbol" select="$exists"/>
+               <xsl:with-param name="symbol" select="$NUPRLexists"/>
                <xsl:with-param name="color" select="'blue'"/>
                <xsl:with-param name="size" select="'+0'"/>
        </xsl:call-template>
          </xsl:if>
 </xsl:template>
 
+<!-- NuPRLDefinition -->
+
+<xsl:template match="NuPrlDefinition">
+ <xsl:apply-templates select="*[1]"/>
+ <xsl:text> := </xsl:text>
+ <xsl:apply-templates select="*[2]"/>
+</xsl:template>
+
 <!-- DEFINITION -->
 
 <xsl:template match="Definition">