X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fstyle%2Fproofs.xsl;h=1d619260a2dbe6bd22fa5c64d5e14f57b4666081;hb=a38dce333847f6a1eaed563f7a2260e1cfc1ff2e;hp=6ed01233d8d38c283c8111af71bdf1b3dd197010;hpb=f757483a6beb4ed12c9959c07567e8891a2b3048;p=helm.git
diff --git a/helm/style/proofs.xsl b/helm/style/proofs.xsl
index 6ed01233d..1d619260a 100644
--- a/helm/style/proofs.xsl
+++ b/helm/style/proofs.xsl
@@ -79,7 +79,10 @@
-
+
+
@@ -108,8 +111,9 @@
+
+ select="document($InductiveTypeUrl)/InductiveDefinition"/>
@@ -151,12 +155,293 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ eq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+
@@ -189,7 +477,10 @@
-
+
+
+
+
@@ -223,7 +514,10 @@
-
+
+
+
+
@@ -246,8 +540,11 @@
rw_step
-
-
+
+
+
+
+
@@ -300,7 +597,7 @@
full_or_ind
+ select="$InnerTypes/InnerTypes/TYPE[@of=$id]/*[1]"/>
left_case
@@ -332,7 +629,7 @@
or_ind
+ select="$InnerTypes/InnerTypes/TYPE[@of=$id]/*[1]"/>
@@ -397,7 +694,10 @@
-
+
+
+
+
@@ -411,6 +711,52 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ proof
+
+
+ side_proof
+
+
+
+
+
+
+
+
+
+
+
@@ -479,17 +825,18 @@
.
-
+
-
+
previous
+
-
+
@@ -506,8 +853,6 @@
-
-
@@ -518,12 +863,12 @@
-
-
-
-
- .
-
+
+
+
+
+ .
+
@@ -575,9 +920,3 @@
-
-
-
-
-
-