From: Irene Schena <irene.schena@unibo.it>
Date: Wed, 29 Nov 2000 10:45:51 +0000 (+0000)
Subject: Modified Files:
X-Git-Tag: nogzip~134
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=039f58232964e627868ec21f7c1e64c843204c75;p=helm.git

Modified Files:
1) basic.xsl: added to ci elements call-template to insert_subscript
2) content.xsl: modified comments and added to ci elements call-template
to insert_subscript
3) mmlextension.xsl: changed EmptySet in emptyset and framewidth=30 in
35. The emptyset marked mi instead of mo
4) mml2mmlv_1_0.xsl: modified comments and added xlink pointer to msqrt
5) objcontent.xsl: added to ci elements call-template to insert_subscript
6) params.xsl: added function insert_subscript
7) proofs.xsl: added to ci elements call-template to insert_subscript
8) reals.xsl: added to ci elements call-template to insert_subscript
9) set.xsl: added to ci elements call-template to insert_subscript
---

diff --git a/helm/style/basic.xsl b/helm/style/basic.xsl
index a05a281b9..148912aa1 100644
--- a/helm/style/basic.xsl
+++ b/helm/style/basic.xsl
@@ -66,7 +66,7 @@
      <xsl:choose>
       <xsl:when test="name(*[3]) = 'LAMBDA'">
        <m:bvar>
-        <m:ci><xsl:value-of select="LAMBDA/target/@binder"/></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>
        <xsl:apply-templates select="LAMBDA/target" mode="noannot"/>
       </xsl:when>
@@ -91,7 +91,7 @@
       <xsl:when test="name(*[3]) = 'LAMBDA'">
        <xsl:variable name="bvarname" select="*[3]/target/@binder"/>
        <m:bvar>
-        <m:ci><xsl:value-of select="$bvarname"/></m:ci>
+        <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="$bvarname"/></xsl:with-param></xsl:call-template></m:ci>
        </m:bvar>
        <m:condition>
         <xsl:apply-templates select="LAMBDA[1]/target" mode="noannot"/>
@@ -105,7 +105,7 @@
          <m:apply>
           <m:csymbol>app</m:csymbol>
           <xsl:apply-templates select="*[4]" mode="noannot"/>
-          <m:ci><xsl:value-of select="$bvarname"/></m:ci>
+          <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="$bvarname"/></xsl:with-param></xsl:call-template></m:ci>
          </m:apply>
         </xsl:otherwise>
        </xsl:choose>
@@ -115,13 +115,13 @@
         <xsl:when test="name(*[4]) = 'LAMBDA'">
          <xsl:variable name="bvarname" select="*[4]/target/@binder"/>
          <m:bvar>
-          <m:ci><xsl:value-of select="$bvarname"/></m:ci>
+          <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="$bvarname"/></xsl:with-param></xsl:call-template></m:ci>
          </m:bvar>
          <m:condition>
           <m:apply>
            <m:csymbol>app</m:csymbol>
            <xsl:apply-templates select="*[3]" mode="noannot"/>
-           <m:ci><xsl:value-of select="$bvarname"/></m:ci>
+           <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="$bvarname"/></xsl:with-param></xsl:call-template></m:ci>
           </m:apply>
          </m:condition>
          <xsl:apply-templates select="*[4]/target" mode="noannot"/>
diff --git a/helm/style/content.xsl b/helm/style/content.xsl
index 68a418dcd..486c0a43f 100644
--- a/helm/style/content.xsl
+++ b/helm/style/content.xsl
@@ -45,7 +45,7 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
     <m:lambda helm:xref="{@id}">
      <m:bvar>
       <m:ci>
-       <xsl:value-of select="target/@binder"/>
+       <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="target/@binder"/></xsl:with-param></xsl:call-template>
       </m:ci>
       <m:type>
        <xsl:apply-templates select="source/*[1]" mode="noannot"/>
@@ -66,7 +66,7 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
       <m:csymbol>prod</m:csymbol>
        <m:bvar>
         <m:ci>
-         <xsl:value-of select="target/@binder"/>
+         <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="target/@binder"/></xsl:with-param></xsl:call-template>
         </m:ci>
         <m:type>
          <xsl:apply-templates select="source/*[1]" mode="noannot"/>
@@ -87,7 +87,7 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
 
 <xsl:template match="REL" mode="pure">
     <m:ci helm:xref="{@id}">
-     <xsl:value-of select="@binder"/>
+     <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="@binder"/></xsl:with-param></xsl:call-template>
     </m:ci>
 </xsl:template>
 
@@ -111,7 +111,7 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
       <xsl:for-each select="*[@id = (//ALLTYPES/TYPE/@id)]">
        <m:apply>
         <m:csymbol>let</m:csymbol>
-        <m:ci><xsl:value-of select="concat('h',position())"/></m:ci>
+        <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="concat('h',position())"/></xsl:with-param></xsl:call-template></m:ci>
         <xsl:apply-templates mode="noannot" select="."/>
        </m:apply>
       </xsl:for-each>
@@ -142,7 +142,7 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
     <!-- <xsl:when test="key('typeid',@id)"> -->
     <xsl:when test="//ALLTYPES/TYPE[@id=$id]">
      <m:ci>
-      <xsl:value-of select="concat('h',$n)"/>
+      <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="concat('h',$n)"/></xsl:with-param></xsl:call-template>
      </m:ci>
      <xsl:apply-templates mode="flat" select="following-sibling::*[1]">
       <xsl:with-param name="n" select="$n+1"/>
@@ -167,21 +167,21 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
 
 <xsl:template match="VAR" mode="pure">
     <m:ci helm:xref="{@id}">
-     <xsl:value-of select="substring-after(@relUri,&quot;,&quot;)"/>
+     <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="substring-after(@relUri,&quot;,&quot;)"/></xsl:with-param></xsl:call-template>
     </m:ci>
 </xsl:template>
 
 <xsl:template match="META" mode="pure">
     <m:ci helm:xref="{@id}">
-     <xsl:value-of select="@no"/>
+     <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="@no"/></xsl:with-param></xsl:call-template>
     </m:ci>
 </xsl:template>
 
 <xsl:template match="CONST" mode="pure">
     <m:ci definitionURL="{@uri}" helm:xref="{@id}">
-     <xsl:call-template name="name_of_uri">
+     <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:call-template name="name_of_uri">
       <xsl:with-param name="uri" select="@uri"/>
-     </xsl:call-template>
+     </xsl:call-template></xsl:with-param></xsl:call-template>
      <!-- <xsl:value-of select="document(concat(string($absPath),@uri))/*/@name"/> -->
     </m:ci>
 </xsl:template>
@@ -189,7 +189,7 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
 <xsl:template match="MUTIND" mode="pure">
     <m:ci definitionURL="{@uri}" helm:xref="{@id}">
      <xsl:variable name="index"><xsl:value-of select="@noType"/></xsl:variable>
-     <xsl:value-of select="document(concat(string($absPath),@uri))/InductiveDefinition/InductiveType[position()=number($index)+1]/@name"/>
+     <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="document(concat(string($absPath),@uri))/InductiveDefinition/InductiveType[position()=number($index)+1]/@name"/></xsl:with-param></xsl:call-template>
     </m:ci>
 </xsl:template>
 
@@ -197,7 +197,7 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
     <m:ci definitionURL="{@uri}" helm:xref="{@id}">
      <xsl:variable name="Tindex"><xsl:value-of select="@noType"/></xsl:variable>
      <xsl:variable name="Cindex"><xsl:value-of select="@noConstr"/></xsl:variable>
-     <xsl:value-of select="document(concat(string($absPath),@uri))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($Cindex)]/@name"/>
+     <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="document(concat(string($absPath),@uri))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($Cindex)]/@name"/></xsl:with-param></xsl:call-template>
     </m:ci>
 </xsl:template>
 
@@ -215,14 +215,14 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
       <xsl:choose>
       <xsl:when test="$nopar = 0">
        <m:ci>
-        <xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/>
+        <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/></xsl:with-param></xsl:call-template>
        </m:ci>
       </xsl:when>
       <xsl:otherwise>
        <m:apply>
         <m:csymbol>app</m:csymbol>
         <m:ci>
-         <xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/>
+         <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/></xsl:with-param></xsl:call-template>
         </m:ci>
         <xsl:apply-templates select="./*[1]" mode="abstparams"><xsl:with-param name="noparams" select="$nopar"/><xsl:with-param name="binder">LAMBDA</xsl:with-param></xsl:apply-templates>
         </m:apply>
@@ -237,7 +237,7 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
     <m:apply helm:xref="{@id}">
      <xsl:variable name="findex"><xsl:value-of select="@noFun"/></xsl:variable>
      <m:csymbol>fix</m:csymbol>
-     <m:ci><xsl:value-of select="FixFunction[position()=number($findex)+1]/@name"/></m:ci>
+     <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="FixFunction[position()=number($findex)+1]/@name"/></xsl:with-param></xsl:call-template></m:ci>
      <xsl:apply-templates mode="pure" select="*"/>
     </m:apply>
 </xsl:template>
@@ -246,7 +246,7 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
    <m:apply helm:xref="{@id}">
      <xsl:variable name="findex"><xsl:value-of select="@noFun"/></xsl:variable>
      <m:csymbol>cofix</m:csymbol>
-     <m:ci><xsl:value-of select="CofixFunction[position()=number($findex)+1]/@name"/></m:ci>
+     <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="CofixFunction[position()=number($findex)+1]/@name"/></xsl:with-param></xsl:call-template></m:ci>
      <xsl:apply-templates mode="pure" select="*"/>
     </m:apply>
 </xsl:template>
@@ -255,7 +255,7 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
 
 <xsl:template match="FixFunction" mode="pure">
     <m:bvar>
-     <m:ci><xsl:value-of select="@name"/></m:ci>
+     <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="@name"/></xsl:with-param></xsl:call-template></m:ci>
      <m:type><xsl:apply-templates select="type/*[1]" mode="noannot"/></m:type>
     </m:bvar> 
     <xsl:apply-templates select="body/*[1]" mode="noannot"/>
@@ -263,10 +263,15 @@ Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
 
 <xsl:template match="CofixFunction" mode="pure">
     <m:bvar>
-     <m:ci><xsl:value-of select="@name"/></m:ci>
+     <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="@name"/></xsl:with-param></xsl:call-template></m:ci>
      <m:type><xsl:apply-templates select="type/*[1]" mode="noannot"/></m:type>
     </m:bvar> 
     <xsl:apply-templates select="body/*[1]" mode="noannot"/>
 </xsl:template>
 
 </xsl:stylesheet>
+
+
+
+
+
diff --git a/helm/style/mmlextension.xsl b/helm/style/mmlextension.xsl
index cd6609aa1..0a11b4991 100644
--- a/helm/style/mmlextension.xsl
+++ b/helm/style/mmlextension.xsl
@@ -18,7 +18,7 @@
 <!-- Parameter affecting line-breaking                                     -->
 <!--***********************************************************************-->
 
-<xsl:variable name="framewidth" select="30"/>
+<xsl:variable name="framewidth" select="35"/>
 
 <!--***********************************************************************-->
 <!-- Gli oggetti sono stampati come mtext all'interno di una marca toplevel-->
@@ -878,7 +878,7 @@
             <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
             <xsl:apply-templates select="*[3]"/>
             <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <m:mtext>and apply</m:mtext>
+            <m:mtext>and apply to</m:mtext>
             <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
             <xsl:apply-templates select="*[position()>3]"/>
            </m:mrow>
@@ -1221,9 +1221,9 @@
 <xsl:template match = "m:set">
  <xsl:choose>
   <xsl:when test="count(child::*) = 0">
-   <m:mo> 
+   <m:mi> 
     <m:mchar name="emptyset"/>
-   </m:mo>
+   </m:mi>
   </xsl:when>
   <xsl:otherwise>
    <xsl:variable name="charlength">
diff --git a/helm/style/objcontent.xsl b/helm/style/objcontent.xsl
index 6ad0a4922..112e73ab1 100644
--- a/helm/style/objcontent.xsl
+++ b/helm/style/objcontent.xsl
@@ -147,7 +147,7 @@
        <xsl:choose>
        <xsl:when test="string($binder) = &quot;LAMBDA&quot;">
         <m:ci>
-         <xsl:value-of select="target/@binder"/>
+         <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="target/@binder"/></xsl:with-param></xsl:call-template>
         </m:ci>
        </xsl:when>
        <xsl:otherwise> 
@@ -202,7 +202,7 @@
 <xsl:param name="noleft" select="0"/>
 <xsl:param name="number" select="1"/>
     <xsl:if test="$noleft != 0">
-     <m:ci>$<xsl:value-of select="$number"/></m:ci>
+     <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value">$<xsl:value-of select="$number"/></xsl:with-param></xsl:call-template></m:ci>
      <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noleft - 1"/><xsl:with-param name="number" select="$number + 1"/></xsl:call-template>  
     </xsl:if>
 </xsl:template>
diff --git a/helm/style/params.xsl b/helm/style/params.xsl
index 034eeba97..dc59df167 100644
--- a/helm/style/params.xsl
+++ b/helm/style/params.xsl
@@ -182,6 +182,58 @@
      </xsl:choose>
 </xsl:template>
 
+
+<!--***********************************************************************-->
+<!--  Insert a subscript if there is a number at the end of a ci element   -->
+<!--***********************************************************************-->
+
+<xsl:template name="insert_subscript">
+<xsl:param name="node_value" select="&quot;&quot;"/>
+<xsl:param name="current_pos" select="1"/>
+<xsl:param name="start_pos" select="0"/>
+    <xsl:choose>
+    <xsl:when test="$current_pos &lt;= string-length(string($node_value))">
+    <xsl:variable name="current_char"><xsl:value-of select="substring(string($node_value),$current_pos,1)"/></xsl:variable>
+     <xsl:choose>
+     <xsl:when test="(string($current_char) != &quot;0&quot;) and (string($current_char) != &quot;1&quot;) and (string($current_char) != &quot;2&quot;) and (string($current_char) != &quot;3&quot;) and (string($current_char) != &quot;4&quot;) and (string($current_char) != &quot;5&quot;) and (string($current_char) != &quot;6&quot;) and (string($current_char) !=  &quot;7&quot;) and (string($current_char) != &quot;8&quot;) and (string($current_char) != &quot;9&quot;)">
+      <xsl:choose> 
+      <xsl:when test="$start_pos != 0">
+       <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value" select="$node_value"/><xsl:with-param name="current_pos" select="$current_pos + 1"/><xsl:with-param name="start_pos" select="0"/></xsl:call-template>
+      </xsl:when> 
+      <xsl:otherwise>
+       <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value" select="$node_value"/><xsl:with-param name="current_pos" select="$current_pos + 1"/><xsl:with-param name="start_pos" select="$start_pos"/></xsl:call-template>
+      </xsl:otherwise>
+      </xsl:choose>
+     </xsl:when>
+     <xsl:otherwise>  
+      <xsl:choose>
+      <xsl:when test="$start_pos = 0">
+       <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value" select="$node_value"/><xsl:with-param name="current_pos" select="$current_pos + 1"/><xsl:with-param name="start_pos" select="$current_pos"/></xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+       <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value" select="$node_value"/><xsl:with-param name="current_pos" select="$current_pos + 1"/><xsl:with-param name="start_pos" select="$start_pos"/></xsl:call-template>
+      </xsl:otherwise>
+      </xsl:choose>      
+     </xsl:otherwise>
+     </xsl:choose>
+    </xsl:when>
+    <xsl:otherwise>
+     <xsl:choose>
+     <xsl:when test="$start_pos != 0">
+      <m:msub>
+       <m:mi><xsl:value-of select="substring(string($node_value),1,$start_pos -1)"/></m:mi>
+       <m:mn><xsl:value-of select="substring(string($node_value),$start_pos)"/></m:mn>
+       </m:msub>
+     </xsl:when>
+     <xsl:otherwise>
+      <xsl:value-of select="$node_value"/>
+     </xsl:otherwise>
+     </xsl:choose>
+    </xsl:otherwise>    
+    </xsl:choose>
+</xsl:template>
+
+
 </xsl:stylesheet> 
 
 
diff --git a/helm/style/proofs.xsl b/helm/style/proofs.xsl
index da751e437..cd7593052 100644
--- a/helm/style/proofs.xsl
+++ b/helm/style/proofs.xsl
@@ -52,9 +52,9 @@
        <m:apply helm:xref="{@id}">
         <m:csymbol>and_ind</m:csymbol>
         <xsl:apply-templates mode="noannot" select="*[6]"/>
-        <m:ci><xsl:value-of select="*[5]/target/@binder"/></m:ci>
+        <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="*[5]/target/@binder"/></xsl:with-param></xsl:call-template></m:ci>
         <xsl:apply-templates mode="pure" select="*[5]/source/*"/>
-        <m:ci><xsl:value-of select="*[5]/target/LAMBDA/target/@binder"/></m:ci>
+        <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="*[5]/target/LAMBDA/target/@binder"/></xsl:with-param></xsl:call-template></m:ci>
         <xsl:apply-templates mode="pure" select="*[5]/target/LAMBDA/source/*"/>
         <xsl:apply-templates mode="noannot" select="*[5]/target/LAMBDA/target/*"/>
        </m:apply>
@@ -105,7 +105,7 @@
 <xsl:template match="*" mode="copy-of-no-prop">
  <xsl:choose>
   <xsl:when test="@id = //ALLTYPES/TYPE/@id">
-   <m:ci>prev</m:ci>
+   <m:ci>previous</m:ci>
   </xsl:when>
   <xsl:otherwise>
    <xsl:apply-templates select="." mode="pure"/>
@@ -182,12 +182,12 @@
           <xsl:choose>
            <xsl:when test="$letsubp">
             <m:ci>
-             <xsl:value-of select="'h2'"/>
+             <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="'h2'"/></xsl:with-param></xsl:call-template>
             </m:ci>
            </xsl:when>
            <xsl:otherwise>
             <m:ci>
-             <xsl:value-of select="'h1'"/>
+             <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="'h1'"/></xsl:with-param></xsl:call-template>
             </m:ci>
            </xsl:otherwise>
           </xsl:choose>
@@ -200,7 +200,7 @@
       <xsl:choose>
        <xsl:when test="$letsubp">
         <m:ci>
-         <xsl:value-of select="'h1'"/>
+         <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="'h1'"/></xsl:with-param></xsl:call-template>
         </m:ci>
        </xsl:when>
        <xsl:otherwise>
diff --git a/helm/style/reals.xsl b/helm/style/reals.xsl
index 208d8416e..ff69f9a22 100644
--- a/helm/style/reals.xsl
+++ b/helm/style/reals.xsl
@@ -192,7 +192,7 @@
            </xsl:attribute>
           </m:limit>
           <m:bvar>
-           <m:ci><xsl:value-of select="LAMBDA/target/@binder"/></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"/>
@@ -246,7 +246,7 @@
            </xsl:attribute>
           </m:diff>
           <m:bvar>
-           <m:ci><xsl:value-of select="LAMBDA[1]/target/@binder"/></m:ci>
+           <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="LAMBDA[1]/target/@binder"/></xsl:with-param></xsl:call-template></m:ci>
           </m:bvar>
           <xsl:apply-templates select="*[2]/target" mode="noannot"/>
          </m:apply>
diff --git a/helm/style/set.xsl b/helm/style/set.xsl
index cdb96ec3e..916a92c51 100644
--- a/helm/style/set.xsl
+++ b/helm/style/set.xsl
@@ -26,7 +26,7 @@
       <m:set>
        <m:bvar>
         <m:ci>
-         <xsl:value-of select="target/@binder"/>
+         <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="target/@binder"/></xsl:with-param></xsl:call-template>
         </m:ci>
         <m:type>
          <xsl:apply-templates select="source" mode="noannot"/>