# HG changeset patch
# User blanchet
# Date 1321613232 -3600
# Node ID 0939c38b1fc90f1a075d5810efe12971f598c95c
# Parent  b427b23ec89c88440896ec974c0ac6a251ebef4f
eta-contract to avoid needless "lambda" wrappers

diff -r b427b23ec89c -r 0939c38b1fc9 src/HOL/Tools/Metis/metis_tactic.ML
--- a/src/HOL/Tools/Metis/metis_tactic.ML	Fri Nov 18 11:47:12 2011 +0100
+++ b/src/HOL/Tools/Metis/metis_tactic.ML	Fri Nov 18 11:47:12 2011 +0100
@@ -72,6 +72,7 @@
     th
   else
     let
+      val th = th |> Drule.eta_contraction_rule
       fun conv wrap ctxt ct =
         if Meson_Clausify.is_quasi_lambda_free (term_of ct) then
           Thm.reflexive ct