From: Pietro Di Lena <pietro.dilena@unibo.it>
Date: Mon, 25 Nov 2002 18:16:15 +0000 (+0000)
Subject: Now it is possible to define a 'cookable' operator with arity = 0 and  hide = 0
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=34878a91f0200675e19d09a683b31c2bc22defdf;p=helm.git

Now it is possible to define a 'cookable' operator with arity = 0 and  hide = 0
---

diff --git a/helm/meta_style/meta_cic2mathml.xsl b/helm/meta_style/meta_cic2mathml.xsl
index 10af6394a..072774b5d 100644
--- a/helm/meta_style/meta_cic2mathml.xsl
+++ b/helm/meta_style/meta_cic2mathml.xsl
@@ -62,17 +62,16 @@
 		</xsl:choose>
 	</xsl:variable>
 
+	<xsl:variable name="const">
+		<xsl:value-of select="@arity = 0 and @hide = 0 and @cook = 'false'"/>
+	</xsl:variable>
+
 	<xsl:choose>
-		<xsl:when test="@arity = 0 and @hide = 0 and $not = 'true'">
+		<xsl:when test="$const = 'true' and $not = 'true'">
 			<xsl:call-template name="out_comment">
 				<xsl:with-param name="name" select="concat($uri,': &quot;not&quot; cannot  be applyed to a constant operator')"/>
 			</xsl:call-template>
 		</xsl:when>
-		<xsl:when test="@arity = 0 and @hide = 0 and @cook = 'true'">
-			<xsl:call-template name="out_comment">
-				<xsl:with-param name="name" select="concat($uri,': a constant operator cannot be cooked')"/>
-			</xsl:call-template>
-		</xsl:when>
 		<xsl:otherwise>
 			<!-- All uris in uri1 list (if not empty) have CONST c-tag -->
 			<xsl:variable name="uri1">
@@ -99,6 +98,7 @@
 					<xsl:with-param name="arity" select="@arity"/>
 					<xsl:with-param name="m-tag" select="@m-tag"/>
 					<xsl:with-param name="c-tag" select="'CONST'"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:call-template>
 				<xsl:if test="@cook = 'true'">
 					<xsl:call-template name="out_template">
@@ -123,6 +123,7 @@
 					<xsl:with-param name="arity" select="@arity"/>
 					<xsl:with-param name="m-tag" select="@m-tag"/>
 					<xsl:with-param name="c-tag" select="'MUTIND'"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:call-template>
 				<xsl:if test="@cook = 'true'">
 					<xsl:call-template name="out_template">
@@ -155,15 +156,19 @@
 		</xsl:choose>
 	</xsl:variable>
 
+	<xsl:variable name="const">
+		<xsl:value-of select="*[name() = 'Case']/@arity = 0 and @hide = 0 and @cook = 'false'"/>
+	</xsl:variable>
+
 	<xsl:choose>
-		<xsl:when test="*[name() = 'Case']/@arity = 0 and @hide = 0 and $not = 'true'">
+		<xsl:when test="$const = 'true' and $not = 'true'">
 			<xsl:call-template name="out_comment">
 				<xsl:with-param name="name" select="concat($uri,': &quot;not&quot; cannot  be applyed to a constant operator')"/>
 			</xsl:call-template>
 		</xsl:when>
-		<xsl:when test="*[name() = 'Case']/@arity = 0 and @hide = 0 and @cook = 'true'">
+		<xsl:when test="$const = 'true'">
 			<xsl:call-template name="out_comment">
-				<xsl:with-param name="name" select="concat($uri,': a constant operator cannot be cooked')"/>
+				<xsl:with-param name="name" select="concat($uri,': cannot be specified a constant operator when using OpSet element')"/>
 			</xsl:call-template>
 		</xsl:when>
 		<xsl:otherwise>
@@ -242,16 +247,40 @@
 	<xsl:param name="arity" select="0"/>
 	<xsl:param name="m-tag"/>
 	<xsl:param name="c-tag"/>
+	<xsl:param name="const" select="'false'"/>
 	
 	<xsl:variable name="match">
-		<xsl:call-template name="out_match">
-			<xsl:with-param name="not"   select="$not"/>
-			<xsl:with-param name="uri"   select="$uri"/>
-			<xsl:with-param name="cook"  select="$cook"/>
-			<xsl:with-param name="hide"  select="$hide"/>
-			<xsl:with-param name="arity" select="$arity"/>
-			<xsl:with-param name="c-tag" select="$c-tag"/>
-		</xsl:call-template>	
+		<xsl:variable name="match_op">
+			<xsl:call-template name="out_match_op">
+				<xsl:with-param name="not"   select="$not"/>
+				<xsl:with-param name="uri"   select="$uri"/>
+				<xsl:with-param name="cook"  select="$cook"/>
+				<xsl:with-param name="c-tag" select="$c-tag"/>
+			</xsl:call-template>
+		</xsl:variable>
+		
+		<xsl:variable name="match_child">
+			<xsl:if test="$const = 'false'">
+				<xsl:choose>
+					<!-- if the operator has been concatenated with not, the root apply node must have only two child -->
+					<xsl:when test="$not = 'true'">
+						<xsl:value-of select="concat(' and count(*) = 2 and count(*[2]/*) = ',$arity + $hide + 1)"/>
+					</xsl:when>
+					<xsl:otherwise>
+						<xsl:value-of select="concat(' and count(*) = ',$arity + $hide + 1)"/>
+					</xsl:otherwise>
+				</xsl:choose>
+			</xsl:if>
+		</xsl:variable>
+
+		<xsl:choose>
+			<xsl:when test="$const = 'false'">
+				<xsl:value-of select="concat('APPLY[',$match_op,$match_child,']')"/>
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="$match_op"/>
+			</xsl:otherwise>
+		</xsl:choose>
 	</xsl:variable>
 
 	<!--                     TEMPLATE                     -->
@@ -267,6 +296,7 @@
 			<xsl:with-param name="hide"  select="$hide"/>
 			<xsl:with-param name="arity" select="$arity"/>
 			<xsl:with-param name="not"   select="$not"/>
+			<xsl:with-param name="const" select="$const"/>
 		</xsl:call-template>
 	</oxsl:template>
 </xsl:template>
@@ -281,32 +311,33 @@
 	<xsl:param name="c-tag"/>
 
 	<xsl:variable name="match">
-		<xsl:call-template name="out_match_op">
-			<xsl:with-param name="not"   select="$not"/>
-			<xsl:with-param name="cook"  select="$cook"/>
-			<xsl:with-param name="uri"   select="$uri"/> 
-			<xsl:with-param name="c-tag" select="$c-tag"/>
-		</xsl:call-template>
+		<xsl:variable name="match_op">
+			<xsl:call-template name="out_match_op">
+				<xsl:with-param name="not"   select="$not"/>
+				<xsl:with-param name="cook"  select="$cook"/>
+				<xsl:with-param name="uri"   select="$uri"/> 
+				<xsl:with-param name="c-tag" select="$c-tag"/>
+			</xsl:call-template>
+		</xsl:variable>
+		
+		<xsl:variable name="match_child">
+			<xsl:if test="$not = 'true'"> and count(*) = 2</xsl:if>
+		</xsl:variable>
+
+		<xsl:value-of select="concat('APPLY[',$match_op,$match_child,']')"/>
 	</xsl:variable>
 
 	<xsl:variable name="apply_not">
 		<xsl:if test="$not = 'true'">*[2]/</xsl:if>
 	</xsl:variable>
 
-	<xsl:variable name="op_uri_attr">
-		<xsl:call-template name="op_uri_attr">
-			<xsl:with-param name="not"   select="$not"/>
-			<xsl:with-param name="c-tag" select="$c-tag"/>
-		</xsl:call-template>
-	</xsl:variable>
-
 
 	<!--                     TEMPLATE                     -->
 	<xsl:call-template name="out_comment">
 		<xsl:with-param name="name" select="$name"/>
 	</xsl:call-template>
 	
-	<oxsl:template match="{concat('APPLY[',$match,']')}" mode="pure">
+	<oxsl:template match="{$match}" mode="pure">
 		<oxsl:choose>
 			<xsl:for-each select="Case">
 				<oxsl:when test="{concat('count(',$apply_not,'*) = ',@arity + $hide + 1)}">
@@ -367,80 +398,6 @@
 	<xsl:value-of select="concat($app_not,$app_op)"/>
 </xsl:template>
 
-
-<!-- Returns a test on apply node children number-->
-<xsl:template name="out_match_child">
-	<xsl:param name="not"   select="'false'"/>
-	<xsl:param name="hide"  select="0"/>
-	<xsl:param name="arity" select="0"/>
-
-	<!-- Test on children number only if the operator is not constant -->
-	<xsl:if test="$arity != 0 or $hide != 0">
-		<xsl:choose>
-			<!-- if the operator has been concatenated with not, the root apply node must have only two child -->
-			<xsl:when test="$not = 'true'">
-				<xsl:value-of select="concat('count(*) = 2 and count(*[2]/*) = ',$arity + $hide + 1)"/>	
-			</xsl:when>
-			<xsl:otherwise>
-				<xsl:value-of select="concat('count(*) = ',$arity + $hide + 1)"/>
-			</xsl:otherwise>
-		</xsl:choose>
-	</xsl:if>
-</xsl:template>
-
-<xsl:template name="out_match">
-	<xsl:param name="not"   select="'false'"/>
-	<xsl:param name="uri"/>
-	<xsl:param name="cook"  select="'false'"/>
-	<xsl:param name="hide"  select="0"/>
-	<xsl:param name="arity" select="0"/>
-	<xsl:param name="c-tag"/>
-	
-	<!--           TEST ON OPERATOR(S) TYPE         -->
-	<xsl:variable name="match_op">
-		<xsl:call-template name="out_match_op">
-			<xsl:with-param name="not"   select="$not"/>
-			<xsl:with-param name="uri"   select="$uri"/>
-			<xsl:with-param name="cook"  select="$cook"/>
-			<xsl:with-param name="hide"  select="$hide"/>
-			<xsl:with-param name="c-tag" select="$c-tag"/>
-		</xsl:call-template>
-	</xsl:variable>
-		
-	<!--           TEST ON CHILD(REN) NUMBER         -->
-	<xsl:variable name="match_child">
-		<xsl:call-template name="out_match_child">
-			<xsl:with-param name="not"   select="$not"/>
-			<xsl:with-param name="hide"  select="$hide"/>
-			<xsl:with-param name="arity" select="$arity"/>
-		</xsl:call-template>
-	</xsl:variable>
-
-	<xsl:choose>
-		<!-- not a constant operator -->
-		<xsl:when test="$arity != 0 or $hide != 0">
-			<xsl:choose>
-				<xsl:when test="$match_child != ''">
-					<xsl:value-of select="concat('APPLY[',$match_op,' and ',$match_child,']')"/>
-				</xsl:when>
-				<xsl:otherwise>
-					<xsl:value-of select="concat('APPLY[',$match_op,']')"/>
-				</xsl:otherwise>
-			</xsl:choose>
-		</xsl:when>
-		<xsl:otherwise>
-			<xsl:choose>
-				<xsl:when test="$match_child != ''">
-					<xsl:value-of select="concat($match_op,' and ',$match_child)"/>
-				</xsl:when>
-				<xsl:otherwise>
-					<xsl:value-of select="$match_op"/>
-				</xsl:otherwise>
-			</xsl:choose>
-		</xsl:otherwise>
-	</xsl:choose>
-</xsl:template>
-
 <xsl:template name="out_params">
 	<xsl:param name="params" select="1"/>
 	<xsl:param name="hide"   select="0"/>
@@ -476,18 +433,21 @@
 	<xsl:param name="hide"  select="0"/>
 	<xsl:param name="arity" select="0"/>
 	<xsl:param name="not"   select="'false'"/>
+	<xsl:param name="const" select="'false'"/>
 
 	<xsl:choose>
 		<!--            SIMPLE TRANSFORMATIONS            -->
 		<xsl:when test="count(*) = 0">
-			<xsl:variable name="xref">{@id}</xsl:variable>
+			<xsl:variable name="xref">
+				<xsl:if test="$const = 'false'">{@id}</xsl:if>
+			</xsl:variable>
 
 			<xsl:variable name="definitionURL">
 				<xsl:call-template name="op_uri_attr">
 					<xsl:with-param name="not"   select="$not"/>
 					<xsl:with-param name="cook"  select="$cook"/>
 					<xsl:with-param name="c-tag" select="$c-tag"/>
-					<xsl:with-param name="const" select="$arity = 0 and $hide = 0"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:call-template>
 			</xsl:variable>
 
@@ -496,7 +456,7 @@
 					<xsl:with-param name="not"   select="$not"/>
 					<xsl:with-param name="cook"  select="$cook"/>
 					<xsl:with-param name="c-tag" select="$c-tag"/>
-					<xsl:with-param name="const" select="$arity = 0 and $hide = 0"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:call-template>
 			 </xsl:variable>
 		
@@ -527,6 +487,7 @@
 				<xsl:with-param name="hide"  select="$hide"/>
 				<xsl:with-param name="arity" select="$arity"/>
 				<xsl:with-param name="not"   select="$not"/>
+				<xsl:with-param name="const" select="$const"/>
 			</xsl:apply-templates>
 		</xsl:otherwise>
 	</xsl:choose>
@@ -600,6 +561,7 @@
 	<xsl:param name="hide"  select="0"/>
 	<xsl:param name="arity" select="0"/>
 	<xsl:param name="not"   select="'false'"/>
+	<xsl:param name="const" select="'false'"/>
 	
 	<xsl:variable name="helm:xref">
 		<xsl:choose>
@@ -611,9 +573,12 @@
 					<xsl:with-param name="hide"  select="$hide"/>
 					<xsl:with-param name="arity" select="$arity"/>
 					<xsl:with-param name="not"   select="$not"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:call-template>
 			</xsl:when>
-			<xsl:otherwise>{@id}</xsl:otherwise>
+			<xsl:otherwise>
+				<xsl:if test="$const = 'false'">{@id}</xsl:if>
+			</xsl:otherwise>
 		</xsl:choose>
 	</xsl:variable>
 
@@ -624,6 +589,7 @@
 			<xsl:with-param name="hide"   select="$hide"/>
 			<xsl:with-param name="arity"  select="$arity"/>
 			<xsl:with-param name="not"    select="$not"/>
+			<xsl:with-param name="const" select="$const"/>
 			<xsl:with-param name="ignore" select="'xref'"/>
 		</xsl:call-template>
 	
@@ -633,6 +599,7 @@
 			<xsl:with-param name="hide"  select="$hide"/>
 			<xsl:with-param name="arity" select="$arity"/>
 			<xsl:with-param name="not"   select="$not"/>
+			<xsl:with-param name="const" select="$const"/>
 		</xsl:apply-templates>
 	</m:apply>
 </xsl:template>
@@ -643,6 +610,7 @@
 	<xsl:param name="hide"  select="0"/>
 	<xsl:param name="arity" select="0"/>
 	<xsl:param name="not"   select="'false'"/>
+	<xsl:param name="const" select="'false'"/>
 
 	<!-- set definitonURL attribute -->
 	<xsl:variable name="definitionURL">
@@ -655,6 +623,7 @@
 					<xsl:with-param name="hide"  select="$hide"/>
 					<xsl:with-param name="arity" select="$arity"/>
 					<xsl:with-param name="not"   select="$not"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:call-template>
 			</xsl:when>
 			<xsl:otherwise>
@@ -662,7 +631,7 @@
 					<xsl:with-param name="not"   select="$not"/>
 					<xsl:with-param name="cook"  select="$cook"/>
 					<xsl:with-param name="c-tag" select="$c-tag"/>
-					<xsl:with-param name="const" select="$arity = 0 and $hide = 0"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:call-template>
 			</xsl:otherwise>
 		</xsl:choose>
@@ -679,6 +648,7 @@
 					<xsl:with-param name="hide"  select="$hide"/>
 					<xsl:with-param name="arity" select="$arity"/>
 					<xsl:with-param name="not"   select="$not"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:call-template>
 			</xsl:when>
 			<xsl:otherwise>
@@ -686,7 +656,7 @@
 					<xsl:with-param name="not"   select="$not"/>
 					<xsl:with-param name="cook"  select="$cook"/>
 					<xsl:with-param name="c-tag" select="$c-tag"/>
-					<xsl:with-param name="const" select="$arity = 0 and $hide = 0"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:call-template>
 			</xsl:otherwise>
 		</xsl:choose>
@@ -706,6 +676,7 @@
 			<xsl:with-param name="hide"   select="$hide"/>
 			<xsl:with-param name="arity"  select="$arity"/>
 			<xsl:with-param name="not"    select="$not"/>
+			<xsl:with-param name="const" select="$const"/>
 			<xsl:with-param name="ignore" select="'xref + definitionURL + tag'"/>
 		</xsl:call-template>
 		
@@ -715,6 +686,7 @@
 			<xsl:with-param name="hide"  select="$hide"/>
 			<xsl:with-param name="arity" select="$arity"/>
 			<xsl:with-param name="not"   select="$not"/>
+			<xsl:with-param name="const" select="$const"/>
 		</xsl:apply-templates>
 	</xsl:element>
 </xsl:template>
@@ -762,6 +734,7 @@
 	<xsl:param name="hide"  select="0"/>
 	<xsl:param name="arity" select="0"/>
 	<xsl:param name="not"   select="'false'"/>
+	<xsl:param name="const" select="'false'"/>
 	
 	<xsl:copy>
 		<xsl:call-template name="copy_attributes">
@@ -770,6 +743,7 @@
 			<xsl:with-param name="hide"  select="$hide"/>
 			<xsl:with-param name="arity" select="$arity"/>
 			<xsl:with-param name="not"   select="$not"/>
+			<xsl:with-param name="const" select="$const"/>
 		</xsl:call-template>
 	
 		<xsl:apply-templates>
@@ -778,6 +752,7 @@
 			<xsl:with-param name="hide"  select="$hide"/>
 			<xsl:with-param name="arity" select="$arity"/>
 			<xsl:with-param name="not"   select="$not"/>
+			<xsl:with-param name="const" select="$const"/>
 		</xsl:apply-templates>
 	</xsl:copy>
 </xsl:template>
@@ -789,6 +764,7 @@
 	<xsl:param name="hide"  select="0"/>
 	<xsl:param name="arity" select="0"/>
 	<xsl:param name="not"   select="'false'"/>
+	<xsl:param name="const" select="'false'"/>
 
 	<xsl:variable name="binded_params">
 		<xsl:call-template name="get_binded_params">
@@ -863,6 +839,7 @@
 					<xsl:with-param name="hide"  select="$hide"/>
 					<xsl:with-param name="arity" select="$arity"/>
 					<xsl:with-param name="not"   select="$not"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:apply-templates>
 			</m:bvar>
 		</xsl:when>
@@ -877,6 +854,7 @@
 					<xsl:with-param name="hide"  select="$hide"/>
 					<xsl:with-param name="arity" select="$arity"/>
 					<xsl:with-param name="not"   select="$not"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:apply-templates>
 			</m:bvar>
 		</xsl:otherwise>
@@ -1217,6 +1195,7 @@
 	<xsl:param name="hide"   select="0"/>
 	<xsl:param name="arity"  select="0"/>
 	<xsl:param name="not"    select="'false'"/>
+	<xsl:param name="const"  select="'false'"/>
 	<xsl:param name="ignore" select="''"/>
 	
 	<xsl:variable name="test">
@@ -1227,7 +1206,16 @@
 	
 	<xsl:for-each select="@*">
 		<xsl:if test="contains($test,concat('+',name(),'+')) = false()">
-			<xsl:attribute name="{name()}">
+			<xsl:variable name="name">
+				<xsl:choose>
+					<xsl:when test="name() = 'xref'">helm:xref</xsl:when>
+					<xsl:otherwise>
+						<xsl:value-of select="name()"/>
+					</xsl:otherwise>
+				</xsl:choose>
+			</xsl:variable>
+			
+			<xsl:attribute name="{$name}">
 				<xsl:call-template name="set_attribute">
 					<xsl:with-param name="attr"  select="."/>
 					<xsl:with-param name="cook"  select="$cook"/>
@@ -1235,6 +1223,7 @@
 					<xsl:with-param name="hide"  select="$hide"/>
 					<xsl:with-param name="arity" select="$arity"/>
 					<xsl:with-param name="not"   select="$not"/>
+					<xsl:with-param name="const" select="$const"/>
 				</xsl:call-template>
 			</xsl:attribute>
 		</xsl:if>
@@ -1267,9 +1256,12 @@
 	<xsl:param name="hide"  select="0"/>
 	<xsl:param name="arity" select="0"/>
 	<xsl:param name="not"   select="'false'"/>
+	<xsl:param name="const" select="'false'"/>
 	
 	<xsl:choose>
-		<xsl:when test="$attr = '$APP-ID'">{@id}</xsl:when>
+		<xsl:when test="$attr = '$APP-ID'">
+			<xsl:if test="$const = 'false'">{@id}</xsl:if>
+		</xsl:when>
 		<xsl:when test="$attr = '$OP-ID' or $attr = '$OP-URI'">
 			<xsl:variable name="attr_type">
 				<xsl:choose>
@@ -1283,7 +1275,7 @@
 				<xsl:with-param name="not"       select="$not"/>
 				<xsl:with-param name="cook"      select="$cook"/>
 				<xsl:with-param name="c-tag"     select="$c-tag"/>
-				<xsl:with-param name="const"     select="$arity = 0 and $hide = 0"/>
+				<xsl:with-param name="const"     select="$const"/>
 			</xsl:call-template>
 		</xsl:when>
 		<xsl:otherwise>