X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fstyle%2Fproofs.xsl;h=1d619260a2dbe6bd22fa5c64d5e14f57b4666081;hb=a38dce333847f6a1eaed563f7a2260e1cfc1ff2e;hp=f82d7769084f248b3431f933a7f5897d2dc6f9ca;hpb=c5d44ddea495d6f20c05267e0ebd158972a21987;p=helm.git
diff --git a/helm/style/proofs.xsl b/helm/style/proofs.xsl
index f82d77690..1d619260a 100644
--- a/helm/style/proofs.xsl
+++ b/helm/style/proofs.xsl
@@ -55,7 +55,6 @@
proof
-
@@ -80,7 +79,10 @@
-
+
+
@@ -109,8 +111,9 @@
+
+ select="document($InductiveTypeUrl)/InductiveDefinition"/>
@@ -152,38 +155,293 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
+
- nat_ind
-
-
+ eq_chain
+
+
+
+
+
-
-
+
+
+
- nat_ind_complete
-
-
-
-
-
-
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ diseq_chain
+
+
+
+
+
+
+
+
+
+
+
+
- -->
-
+
+
+
+
@@ -216,7 +477,10 @@
-
+
+
+
+
@@ -250,7 +514,10 @@
-
+
+
+
+
@@ -273,8 +540,11 @@
rw_step
-
-
+
+
+
+
+
@@ -327,7 +597,7 @@
full_or_ind
+ select="$InnerTypes/InnerTypes/TYPE[@of=$id]/*[1]"/>
left_case
@@ -359,7 +629,7 @@
or_ind
+ select="$InnerTypes/InnerTypes/TYPE[@of=$id]/*[1]"/>
@@ -409,12 +679,84 @@
+
+
+
+
+ rw_step
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ proof
+
+
+ side_proof
+
+
+
+
+
+
+
+
+
+
+
@@ -447,7 +789,17 @@
-
+
+
+
+ app
+
+
+
+
+
+
+
@@ -464,13 +816,34 @@
+
+
+
+
+
+
+ .
+
+
+
+
+
-
+
previous
-
+
+
+
+
+
+
+ .
+
+
+
@@ -480,8 +853,6 @@
-
-
@@ -491,7 +862,15 @@
-
+
+
+
+
+
+ .
+
+
+
@@ -500,6 +879,8 @@
+
+
@@ -539,9 +920,3 @@
-
-
-
-
-
-