Modified Files:

[helm.git] / helm / style / reals.xsl

diff --git a/helm/style/reals.xsl b/helm/style/reals.xsl
index 982d4ed21746de26a7c162146cb4b91a5670a415..45ed5f61c2df0e9a8be699b54a61813e4ef9e623 100644 (file)
--- a/helm/style/reals.xsl
+++ b/helm/style/reals.xsl
@@ -63,7 +63,7 @@
 
 
 
-<!-- Unary Operations -->
+<!-- Unary Operations and power -->
 
 <xsl:template match="APPLY[CONST[
  attribute::uri='cic:/Coq/Reals/Rdefinitions/Ropp.con' or
@@ -84,7 +84,7 @@
          <xsl:value-of select="'factorial'"/>
         </xsl:when>
         <xsl:when test="CONST/@uri='cic:/Coq/Reals/Rbase/Rsqr.con'">
-         <xsl:value-of select="'root'"/>
+         <xsl:value-of select="'power'"/>
         </xsl:when>
        </xsl:choose>
       </xsl:variable>
@@ -98,6 +98,9 @@
         </xsl:attribute>
        </xsl:element>
        <xsl:apply-templates select="*[2]" mode="noannot"/>
+       <xsl:if test="string($elem)='power'">
+        <m:cn><xsl:value-of select="*[2]/@value"/></m:cn>
+       </xsl:if>
       </m:apply>
      </xsl:when>
      <xsl:otherwise>
@@ -216,7 +219,9 @@
            </xsl:attribute>
           </m:limit>
           <m:bvar>
-           <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="LAMBDA/target/@binder"/></xsl:with-param></xsl:call-template></m:ci>
+           <m:ci>
+            <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="LAMBDA/target/@binder"/></xsl:with-param></xsl:call-template>
+           </m:ci>
           </m:bvar>
           <m:lowlimit>
            <xsl:apply-templates select="*[5]" mode="noannot"/>