From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 30 Oct 2002 18:51:57 +0000 (+0000)
Subject: Dead code removal.
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=103ca2c0ed633558d00ef760dbe79589776f820a;p=helm.git

Dead code removal.
---

diff --git a/helm/gTopLevel/primitiveTactics.ml b/helm/gTopLevel/primitiveTactics.ml
index 25d8899d7..691b5bae4 100644
--- a/helm/gTopLevel/primitiveTactics.ml
+++ b/helm/gTopLevel/primitiveTactics.ml
@@ -545,6 +545,7 @@ da subst1!!!! Dovrei rimuoverle o sono innocue?*)
                    let newmetasenv''' =
                     new_uninstantiatedmetas@old_uninstantiatedmetas
                    in
+                 let arguments' = List.map (apply_subst context) arguments in
                     let (newproof, newmetasenv'''') =
                      (* When unwinding the META that corresponds to the *)
                      (* elimination predicate (which is emeta), we must *)