1.1 --- a/src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML	Fri Nov 18 11:47:12 2011 +0100
     1.2 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML	Fri Nov 18 11:47:12 2011 +0100
     1.3 @@ -147,7 +147,7 @@
     1.4  
     1.5  fun bunch_of_reconstructors needs_full_types lam_trans =
     1.6    [(false, Metis (hd partial_type_encs, lam_trans metis_default_lam_trans)),
     1.7 -   (true, Metis (hd full_type_encs, lam_trans metis_default_lam_trans)),
     1.8 +   (true, Metis (hd full_type_encs, lam_trans hide_lamsN)),
     1.9     (false, Metis (no_type_enc, lam_trans hide_lamsN)),
    1.10     (true, SMT)]
    1.11    |> map_filter (fn (full_types, reconstr) =>