]> matita.cs.unibo.it Git - helm.git/commitdiff
Undo of the previous commit (that was a mistake).
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 30 Oct 2002 18:54:27 +0000 (18:54 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 30 Oct 2002 18:54:27 +0000 (18:54 +0000)
helm/gTopLevel/primitiveTactics.ml

index 691b5bae4960e063973217763a3f2356e751379e..25d8899d7cbc645fb6b71571cd80659b07394694 100644 (file)
@@ -545,7 +545,6 @@ 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 *)