]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/style/content_to_html.xsl
BUG LAMBDA fixed.
[helm.git] / helm / style / content_to_html.xsl
index 9708f3cd7291c7e9fa1ac4c21daa23fba4c47034..5a48cc1ea49933cc3b3d492a119822d5c07f8353 100644 (file)
@@ -33,6 +33,7 @@
 <!--***********************************************************************--> 
 
 <xsl:param name="CICURI" select="''"/>
+<xsl:param name="type" select="'standalone'"/>
 
 <xsl:include href="html_init.xsl"/>
 <xsl:include href="html_set.xsl"/>
@@ -60,7 +61,9 @@
 <xsl:variable name="framewidth" select="45"/>
 
 <xsl:template match="/">
-   <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:choose>
+  <xsl:when test="$type = 'standalone'">
    <html> 
       <head>
         <title> <xsl:value-of select="$CICURI"/> </title> <!-- FG -->
          </xsl:apply-templates>
       </body>
    </html>
+  </xsl:when>
+  <xsl:otherwise>
+   <to_be_embedded>
+    <xsl:apply-templates>
+     <xsl:with-param name="current_indent" select="0"/>
+    </xsl:apply-templates>
+   </to_be_embedded>
+  </xsl:otherwise>
+ </xsl:choose>
 </xsl:template>
 
 <!--***********************************************************************-->
      <FONT color="red">&#x00a0;hence&#x00a0;</FONT>
      <xsl:apply-templates mode="inline" select="*[7]"/>
     </xsl:when>
-   
+
+       <xsl:when test="$name='subst'">
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+       <xsl:text>[</xsl:text>
+       <xsl:apply-templates select="*[4]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00ac;</xsl:text>
+       </FONT>
+       </a>
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <xsl:text>]</xsl:text>
+      </xsl:when>
+
+      <xsl:when test="$name='lift_with_base'">
+       <SUB>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+       </SUB>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00ad;</xsl:text>
+       </FONT>
+       </a>
+       <SUP>
+       <xsl:apply-templates select="*[4]" mode="inline"/>
+       </SUP>
+       <xsl:text>(</xsl:text>
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <xsl:text>)</xsl:text>
+      </xsl:when>
+
+      <xsl:when test="$name='lift'">
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00ad;</xsl:text>
+       </FONT>
+       </a>
+       <SUP>
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       </SUP>
+       <xsl:text>(</xsl:text>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+       <xsl:text>)</xsl:text>
+      </xsl:when>
+
+      <!-- reduction --> 
+      <xsl:when test="$name='beta_red1'">
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00ae;</xsl:text>
+       </FONT>
+       <SUB>
+        <FONT color="green" FACE="symbol">
+         <xsl:text>&#x0062;</xsl:text>
+        </FONT>
+       </SUB>
+       </a>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+      </xsl:when>
+
+      <xsl:when test="$name='beta_red'">
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00ae;</xsl:text>
+       </FONT>
+       <SUB>
+        <FONT color="green" FACE="symbol">
+         <xsl:text>&#x0062;*</xsl:text>
+        </FONT>
+       </SUB>
+       </a>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+      </xsl:when>
+
+      <xsl:when test="$name='par_beta_red1'">
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00de;</xsl:text>
+       </FONT>
+       <SUB>
+        <FONT color="green" FACE="symbol">
+         <xsl:text>&#x0062;</xsl:text>
+        </FONT>
+       </SUB>
+       </a>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+      </xsl:when>
+
+      <xsl:when test="$name='par_beta_red'">
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00de;</xsl:text>
+       </FONT>
+       <SUB>
+        <FONT color="green" FACE="symbol">
+         <xsl:text>&#x0062;*</xsl:text>
+        </FONT>
+       </SUB>
+       </a>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+      </xsl:when>
+
+      <!-- forgetful -->
+      <xsl:when test="$name='forgetful'">
+       <a href="{*[1]/@definitionURL}">|</a>
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">|</a>
+      </xsl:when>
+      <!-- boolean algebra of redexes -->
+
+      <!-- isomorphic -->
+      <xsl:when test="$name='isomorphic'">
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">
+        <FONT color="green" FACE="symbol">
+        <xsl:text>&#x0040;</xsl:text>
+       </FONT>
+       </a>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+      </xsl:when>
+
       <!-- INTERP -->
       <xsl:when test="$name='interp'">
          <font color="green">[</font>
        </xsl:otherwise>
        </xsl:choose>
       </xsl:when>
+      <xsl:when test="$name='let_in'">
+       <xsl:text>let&#x00a0;</xsl:text>
+       <xsl:apply-templates select="m:bvar/m:ci"/>
+       <xsl:text>&#x00a0;:=&#x00a0;</xsl:text>
+       <xsl:apply-templates select="*[3]">
+        <xsl:with-param name="current_indent" select="$current_indent+14"/>
+       </xsl:apply-templates>
+       <br/>
+       <xsl:call-template name="make_indent">
+        <xsl:with-param name="current_indent" select="$current_indent"/> 
+       </xsl:call-template>
+       <xsl:text>in&#x00a0;</xsl:text>
+       <xsl:apply-templates select="*[4]">
+        <xsl:with-param name="current_indent" select="$current_indent+5"/>
+       </xsl:apply-templates>
+      </xsl:when>
+
       <!-- ***************************************** -->
       <!-- *********** PROOF ELEMENTS ************** -->
       <!-- ***************************************** -->
         <xsl:with-param name="current_indent" select="$current_indent"/>
        </xsl:apply-templates>
       </xsl:when>
+      <!-- ***************************************** -->
+      <!-- *********** LAMBDA ELEMENTS ************** -->
+      <!-- ***************************************** -->
+      <xsl:when test="$name='subst'">
+       <xsl:apply-templates select="*[3]"/>
+       <xsl:text>[</xsl:text>
+       <xsl:apply-templates select="*[4]"/>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="blue" SIZE="+0" FACE="symbol">
+        <xsl:text>&#x00ac;</xsl:text>
+       </FONT>
+       </a>
+       <xsl:apply-templates select="*[2]"/>
+       <xsl:text>]</xsl:text>
+      </xsl:when>
+
+      <xsl:when test="$name='lift_with_base'">
+       <SUB>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+       </SUB>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00ad;</xsl:text>
+       </FONT>
+       </a>
+       <SUP>
+       <xsl:apply-templates select="*[4]" mode="inline"/>
+       </SUP>
+       <xsl:text>(</xsl:text>
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <xsl:text>)</xsl:text>
+      </xsl:when>
+
+      <xsl:when test="$name='lift'">
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00ad;</xsl:text>
+       </FONT>
+       </a>
+       <SUP>
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       </SUP>
+       <xsl:text>(</xsl:text>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+       <xsl:text>)</xsl:text>
+      </xsl:when>
+
+      <!-- reduction --> 
+      <xsl:when test="$name='beta_red1'">
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00ae;</xsl:text>
+       </FONT>
+       <SUB>
+        <FONT color="green" FACE="symbol">
+         <xsl:text>&#x0062;</xsl:text>
+        </FONT>
+       </SUB>
+       </a>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+      </xsl:when>
+      <xsl:when test="$name='beta_red'">
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00ae;</xsl:text>
+       </FONT>
+       <SUB>
+        <FONT color="green" FACE="symbol">
+         <xsl:text>&#x0062;*</xsl:text>
+        </FONT>
+       </SUB>
+       </a>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+      </xsl:when>
+
+      <xsl:when test="$name='par_beta_red1'">
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00de;</xsl:text>
+       </FONT>
+       <SUB>
+        <FONT color="green" FACE="symbol">
+         <xsl:text>&#x0062;</xsl:text>
+        </FONT>
+       </SUB>
+       </a>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+      </xsl:when>
+
+      <xsl:when test="$name='par_beta_red'">
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">
+       <FONT color="green" FACE="symbol">
+        <xsl:text>&#x00de;</xsl:text>
+       </FONT>
+       <SUB>
+        <FONT color="green" FACE="symbol">
+         <xsl:text>&#x0062;*</xsl:text>
+        </FONT>
+       </SUB>
+       </a>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+      </xsl:when>
+
+      <!-- forgetful -->
+      <xsl:when test="$name='forgetful'">
+       <a href="{*[1]/@definitionURL}">|</a>
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">|</a>
+      </xsl:when>
+      <!-- boolean algebra of redexes -->
+
+      <!-- isomorphic -->
+      <xsl:when test="$name='isomorphic'">
+       <xsl:apply-templates select="*[2]" mode="inline"/>
+       <a href="{*[1]/@definitionURL}">
+        <FONT color="green" FACE="symbol">
+        <xsl:text>&#x0040;</xsl:text>
+       </FONT>
+       </a>
+       <xsl:apply-templates select="*[3]" mode="inline"/>
+      </xsl:when>
 
       <!-- INTERP -->
       <xsl:when test="$name='interp'">