From f4d99607a3d6b6b2013b3a951384dc6630fa1ea3 Mon Sep 17 00:00:00 2001
From: Andrea Asperti <andrea.asperti@unibo.it>
Date: Thu, 5 Jul 2001 09:27:20 +0000
Subject: [PATCH] Notation for ZArith (inside arith.xsl) added.

---
 helm/style/arith.xsl      | 97 ++++++++++++++++++++++++++++++++++++++-
 helm/style/contentlib.xsl |  1 +
 2 files changed, 97 insertions(+), 1 deletion(-)

diff --git a/helm/style/arith.xsl b/helm/style/arith.xsl
index 3784029a0..d06a0f252 100644
--- a/helm/style/arith.xsl
+++ b/helm/style/arith.xsl
@@ -25,8 +25,9 @@
 <!-- http://cs.unibo.it/helm/.                                         -->
 
 <!--******************************************************************--> 
-<!-- Arithmetics                                                             -->
+<!-- Arithmetics                                                      -->
 <!-- First draft: March 20 2001, Ferruccio Guidi                      -->
+<!-- Zarith: July 2001, Andrea Asperti                                -->
 <!--******************************************************************-->
 
 <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
@@ -99,4 +100,98 @@
    </xsl:call-template>
 </xsl:template>
 
+<!-- **************************** Zarith ******************************** -->
+
+
+<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/zarith_aux/Zle.con']" mode="pure">
+   <xsl:call-template name="mk-mml-op-noannot">
+      <xsl:with-param name="arity" select="2"/>
+      <xsl:with-param name="c-tag" select="CONST"/>
+      <xsl:with-param name="m-tag" select="'leq'"/>
+   </xsl:call-template>
+</xsl:template>
+
+<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/zarith_aux/Zlt.con']" mode="pure">
+   <xsl:call-template name="mk-mml-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/ZArith/zarith_aux/Zge.con']" mode="pure">
+   <xsl:call-template name="mk-mml-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/ZArith/zarith_aux/Zgt.con']" mode="pure">
+   <xsl:call-template name="mk-mml-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/ZArith/fast_integer/fast_integers/Zplus.con']" mode="pure">
+   <xsl:call-template name="mk-mml-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/ZArith/zarith_aux/Zminus.con']" mode="pure">
+   <xsl:call-template name="mk-mml-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/ZArith/fast_integer/fast_integers/Zopp.con']" mode="pure">
+   <xsl:call-template name="mk-mml-op-noannot">
+      <xsl:with-param name="arity" select="1"/>
+      <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/ZArith/fast_integer/fast_integers/Zmult.con']" mode="pure">
+   <xsl:call-template name="mk-mml-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/ZArith/zarith_aux/Zmin.con']" mode="pure">
+   <xsl:call-template name="mk-mml-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>
+</xsl:template>
+
+<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/zarith_aux/absolu.con']" mode="pure">
+   <xsl:call-template name="mk-mml-op-noannot">
+      <xsl:with-param name="arity" select="1"/>
+      <xsl:with-param name="c-tag" select="CONST"/>
+      <xsl:with-param name="m-tag" select="'abs'"/>
+   </xsl:call-template>
+</xsl:template>
+
 </xsl:stylesheet>
+
+
+
+
+
+
+
+
+
+
+
diff --git a/helm/style/contentlib.xsl b/helm/style/contentlib.xsl
index 65e08c683..e1905c8b9 100644
--- a/helm/style/contentlib.xsl
+++ b/helm/style/contentlib.xsl
@@ -109,3 +109,4 @@
 </xsl:template>
 
 </xsl:stylesheet>
+
-- 
2.39.2