Added elim_vars to preprocessor.
--- a/src/HOL/Extraction.thy Mon Sep 30 16:09:05 2002 +0200
+++ b/src/HOL/Extraction.thy Mon Sep 30 16:10:32 2002 +0200
@@ -19,7 +19,8 @@
([], ("HOL/elim_cong", RewriteHOLProof.elim_cong) ::
ProofRewriteRules.rprocs true) o
Proofterm.rewrite_proof (Sign.tsig_of sg)
- (RewriteHOLProof.rews, ProofRewriteRules.rprocs true)))
+ (RewriteHOLProof.rews, ProofRewriteRules.rprocs true) o
+ ProofRewriteRules.elim_vars (curry Const "arbitrary")))
*}
lemmas [extraction_expand] =