From 3fd609889e80b83cf1f3419dcfa3fc34b41a86ad Mon Sep 17 00:00:00 2001
From: Andrea Asperti <andrea.asperti@unibo.it>
Date: Mon, 5 Mar 2001 12:30:52 +0000
Subject: [PATCH] added eq_ind

---
 helm/style/content_to_html.xsl | 21 ++++++++++++++++++++-
 helm/style/proofs.xsl          |  1 +
 helm/style/theory_content.xsl  |  9 +++++++++
 3 files changed, 30 insertions(+), 1 deletion(-)

diff --git a/helm/style/content_to_html.xsl b/helm/style/content_to_html.xsl
index 62a4936f0..8da220b07 100644
--- a/helm/style/content_to_html.xsl
+++ b/helm/style/content_to_html.xsl
@@ -256,11 +256,30 @@
       </xsl:choose>
      </xsl:for-each>
     </xsl:when>
+    <!-- proof -->
     <xsl:when test="$name='proof'">
        <xsl:apply-templates mode="inline" select="*[position()=2]"/>
-       <FONT color="red">we proved</FONT>
+       <FONT color="red">&#x00a0;proves&#x00a0;</FONT>
        <xsl:apply-templates mode="inline" select="*[position()=3]"/>
     </xsl:when>
+    <!-- and_ind -->
+    <xsl:when test="$name='and_ind'">
+     <FONT color="red">From&#x00a0;</FONT>
+     <xsl:apply-templates select="*[2]"/>
+     <FONT color="red">&#x00a0;we get</FONT>
+     <m:mtext>(</m:mtext>
+     <xsl:apply-templates select="*[3]"/>
+     <m:mtext>)&#x00a0;</m:mtext>
+     <xsl:apply-templates mode="inline" select="*[4]"/>
+     <FONT color="red">&#x00a0;and&#x00a0;</FONT>
+     <m:mtext>(</m:mtext>
+     <xsl:apply-templates select="*[5]"/>
+     <m:mtext>)&#x00a0;</m:mtext>
+     <xsl:apply-templates mode="inline" select="*[6]"/>
+     <m:mtext>;</m:mtext>
+     <FONT color="red">&#x00a0;hence&#x00a0;</FONT>
+     <xsl:apply-templates mode="inline" select="*[7]"/>
+    </xsl:when>
    </xsl:choose>
 </xsl:template>
 
diff --git a/helm/style/proofs.xsl b/helm/style/proofs.xsl
index 6f23e3254..99be5c79d 100644
--- a/helm/style/proofs.xsl
+++ b/helm/style/proofs.xsl
@@ -111,6 +111,7 @@
     </xsl:when>
     <!-- EQUALITY -->
     <xsl:when test="name()= 'APPLY' and CONST[
+ attribute::uri='cic:/Coq/Init/Logic/Equality/eq_ind.con' or
  attribute::uri='cic:/Coq/Init/Logic_Type/eqT_ind.con' or
  attribute::uri='cic:/Coq/Zarith/auxiliary/eqT_ind_r.con'] and count(child::*) = 7">
       <m:apply>
diff --git a/helm/style/theory_content.xsl b/helm/style/theory_content.xsl
index b01fc6d13..13751f855 100644
--- a/helm/style/theory_content.xsl
+++ b/helm/style/theory_content.xsl
@@ -38,9 +38,12 @@
 <!--******************************************************************-->
 
 <xsl:param name="getterURL" select="'http://localhost:8081/'"/>
+<xsl:param name="processorURL" select="'http://localhost:8080/helm/servlet/uwobo/'"/>
 
 <xsl:variable name="absPath"><xsl:value-of select="$getterURL"/>getciconly?uri=</xsl:variable>
 
+<xsl:variable name="header"><xsl:value-of select="$processorURL"/>/apply?key=C1&#x26;key=HC2&#x26;param.getterURL=<xsl:value-of select="$getterURL"/>&#x26;param.processorURL=<xsl:value-of select="$processorURL"/>&#x26;xmluri=<xsl:value-of select="$absPath"/></xsl:variable>
+
 <!-- THEORY -->
 
 <xsl:template match="Theory">
@@ -60,6 +63,12 @@
 
 <!-- THEORY ELEMENTS -->
 
+<!--
+<xsl:template match="DEFINITION">
+    <xsl:copy-of select="document(concat(string($header),string(@definitionURL)))"/>
+</xsl:template>
+-->
+
 <xsl:template match="DEFINITION">
 <xsl:param name="current_uri"/>
     <xsl:apply-templates select="document(concat(string($absPath),string($current_uri),&quot;/&quot;,string(@uri)))"/>
-- 
2.39.2