author | blanchet |
Thu, 10 Jul 2014 17:01:23 +0200 | |
changeset 57540 | 10e7aabe1762 |
parent 57539 | 353fd3326835 |
child 57541 | 147e3f1e0459 |
--- a/src/HOL/Tools/SMT2/smt2_translate.ML Thu Jul 10 14:12:16 2014 +0200 +++ b/src/HOL/Tools/SMT2/smt2_translate.ML Thu Jul 10 17:01:23 2014 +0200 @@ -505,7 +505,7 @@ |> rpair ctxt1 |-> Lambda_Lifting.lift_lambdas NONE is_binder |-> (fn (ts', defs) => fn ctxt' => - map mk_trigger defs @ ts' + ts' @ map mk_trigger defs |> intro_explicit_application ctxt' funcs |> pair ctxt')