tuning
authorblanchet
Tue Mar 27 16:59:13 2012 +0300 (2012-03-27)
changeset 47151eaf0ffea11aa
parent 47150 6df6e56fd7cd
child 47152 446cfc760ccf
tuning
src/HOL/Tools/ATP/atp_problem_generate.ML
     1.1 --- a/src/HOL/Tools/ATP/atp_problem_generate.ML	Tue Mar 27 16:59:13 2012 +0300
     1.2 +++ b/src/HOL/Tools/ATP/atp_problem_generate.ML	Tue Mar 27 16:59:13 2012 +0300
     1.3 @@ -1199,11 +1199,13 @@
     1.4        | _ => do_term bs t
     1.5    in do_formula [] end
     1.6  
     1.7 -fun presimplify_term ctxt t =
     1.8 -  t |> exists_Const (member (op =) Meson.presimplified_consts o fst) t
     1.9 -       ? (Skip_Proof.make_thm (Proof_Context.theory_of ctxt)
    1.10 -          #> Meson.presimplify
    1.11 -          #> prop_of)
    1.12 +fun presimplify_term thy t =
    1.13 +  if exists_Const (member (op =) Meson.presimplified_consts o fst) t then
    1.14 +    t |> Skip_Proof.make_thm thy
    1.15 +      |> Meson.presimplify
    1.16 +      |> prop_of
    1.17 +  else
    1.18 +    t
    1.19  
    1.20  fun is_fun_equality (@{const_name HOL.eq},
    1.21                       Type (_, [Type (@{type_name fun}, _), _])) = true
    1.22 @@ -1252,7 +1254,7 @@
    1.23     in
    1.24       t |> need_trueprop ? HOLogic.mk_Trueprop
    1.25         |> extensionalize_term ctxt
    1.26 -       |> presimplify_term ctxt
    1.27 +       |> presimplify_term thy
    1.28         |> HOLogic.dest_Trueprop
    1.29     end
    1.30     handle TERM _ => default_formula role)