Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eta-contract to avoid needless "lambda" wrappers
authorblanchet
Fri, 18 Nov 2011 11:47:12 +0100
changeset 45558 0939c38b1fc9
parent 45557 b427b23ec89c
child 45559 22d6fb988306
eta-contract to avoid needless "lambda" wrappers
src/HOL/Tools/Metis/metis_tactic.ML file | annotate | diff | comparison | revisions 
--- 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
isabelle