src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML
changeset 43864 58a7b3fdc193
parent 43863 a43d61270142
child 43928 24d6e759753f
     1.1 --- a/src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML	Sun Jul 17 14:12:45 2011 +0200
     1.2 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML	Sun Jul 17 14:21:19 2011 +0200
     1.3 @@ -532,15 +532,16 @@
     1.4             if is_type_enc_higher_order type_enc then lambdasN else combinatorsN
     1.5           else if trans = lambdasN andalso
     1.6                   not (is_type_enc_higher_order type_enc) then
     1.7 -           error ("Lambda translation method incompatible with \
     1.8 -                  \first-order encoding.")
     1.9 +           error ("Lambda translation method incompatible with first-order \
    1.10 +                  \encoding.")
    1.11           else
    1.12             trans)
    1.13    |> (fn trans =>
    1.14           if trans = concealedN then
    1.15             rpair [] o map (conceal_lambdas ctxt)
    1.16           else if trans = liftingN then
    1.17 -           SMT_Translate.lift_lambdas ctxt false #> snd #> swap
    1.18 +           map (close_form o Envir.eta_contract)
    1.19 +           #> SMT_Translate.lift_lambdas ctxt false #> snd #> swap
    1.20           else if trans = combinatorsN then
    1.21             rpair [] o map (introduce_combinators ctxt)
    1.22           else if trans = lambdasN then