added notations for abstact polinomials

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

diff --git a/helm/style/arith.xsl b/helm/style/arith.xsl
index aabee3575c527ba4f665664bd142a5925ef48960..c9f3a2a1e4f684538484108bce7f0537c31c0af5 100644 (file)
--- a/helm/style/arith.xsl
+++ b/helm/style/arith.xsl
@@ -37,56 +37,64 @@
 <!-- ************************** ARITHMETICS ****************************** -->
 
 <xsl:template match="APPLY[MUTIND/@uri='cic:/Coq/Init/Peano/le.ind']" mode="pure">
-   <xsl:call-template name="mk-mml-infix">
+   <xsl:call-template name="mkmml-op-noannot">
+      <xsl:with-param name="arity" select="2"/>
       <xsl:with-param name="c-tag" select="MUTIND"/>
       <xsl:with-param name="m-tag" select="'leq'"/>
    </xsl:call-template>
 </xsl:template>
 
 <xsl:template match="APPLY[CONST/@uri='cic:/Coq/Init/Peano/lt.con']" mode="pure">
-   <xsl:call-template name="mk-mml-infix">
+   <xsl:call-template name="mkmml-op-noannot">
+      <xsl:with-param name="arity" select="2"/>
       <xsl:with-param name="c-tag" select="CONST"/>
       <xsl:with-param name="m-tag" select="'lt'"/>
    </xsl:call-template>
 </xsl:template>
 
 <xsl:template match="APPLY[CONST/@uri='cic:/Coq/Init/Peano/ge.con']" mode="pure">
-   <xsl:call-template name="mk-mml-infix">
+   <xsl:call-template name="mkmml-op-noannot">
+      <xsl:with-param name="arity" select="2"/>
       <xsl:with-param name="c-tag" select="CONST"/>
       <xsl:with-param name="m-tag" select="'geq'"/>
    </xsl:call-template>
 </xsl:template>
 
 <xsl:template match="APPLY[CONST/@uri='cic:/Coq/Init/Peano/gt.con']" mode="pure">
-   <xsl:call-template name="mk-mml-infix">
+   <xsl:call-template name="mkmml-op-noannot">
+      <xsl:with-param name="arity" select="2"/>
       <xsl:with-param name="c-tag" select="CONST"/>
       <xsl:with-param name="m-tag" select="'gt'"/>
    </xsl:call-template>
 </xsl:template>
 
 <xsl:template match="APPLY[CONST/@uri='cic:/Coq/Init/Peano/plus.con']" mode="pure">
-   <xsl:call-template name="mk-mml-infix">
+   <xsl:call-template name="mkmml-op-noannot">
+      <xsl:with-param name="arity" select="2"/>
       <xsl:with-param name="c-tag" select="CONST"/>
       <xsl:with-param name="m-tag" select="'plus'"/>
    </xsl:call-template>
 </xsl:template>
 
 <xsl:template match="APPLY[CONST/@uri='cic:/Coq/Arith/Minus/minus.con']" mode="pure">
-   <xsl:call-template name="mk-mml-infix">
+   <xsl:call-template name="mkmml-op-noannot">
+      <xsl:with-param name="arity" select="2"/>
       <xsl:with-param name="c-tag" select="CONST"/>
       <xsl:with-param name="m-tag" select="'minus'"/>
    </xsl:call-template>
 </xsl:template>
 
 <xsl:template match="APPLY[CONST/@uri='cic:/Coq/Init/Peano/mult.con']" mode="pure">
-   <xsl:call-template name="mk-mml-infix">
+   <xsl:call-template name="mkmml-op-noannot">
+      <xsl:with-param name="arity" select="2"/>
       <xsl:with-param name="c-tag" select="CONST"/>
       <xsl:with-param name="m-tag" select="'times'"/>
    </xsl:call-template>
 </xsl:template>
 
 <xsl:template match="APPLY[CONST/@uri='cic:/Coq/Arith/Min/min.con']" mode="pure">
-   <xsl:call-template name="mk-mml-infix">
+   <xsl:call-template name="mkmml-op-noannot">
+      <xsl:with-param name="arity" select="2"/>
       <xsl:with-param name="c-tag" select="CONST"/>
       <xsl:with-param name="m-tag" select="'min'"/>
    </xsl:call-template>