src/HOL/Tools/Sledgehammer/sledgehammer_filter.ML
changeset 47022 8eac39af4ec0
parent 46976 80123a220219
child 47073 c73f7b0c7ebc
equal deleted inserted replaced
47021:f35f654f297d 47022:8eac39af4ec0
   372       | (_, ts) => fold (do_term false) ts
   372       | (_, ts) => fold (do_term false) ts
   373     fun do_quantifier will_surely_be_skolemized abs_T body_t =
   373     fun do_quantifier will_surely_be_skolemized abs_T body_t =
   374       do_formula pos body_t
   374       do_formula pos body_t
   375       #> (if also_skolems andalso will_surely_be_skolemized then
   375       #> (if also_skolems andalso will_surely_be_skolemized then
   376             add_pconst_to_table true
   376             add_pconst_to_table true
   377                 (legacy_gensym skolem_prefix, PType (order_of_type abs_T, []))
   377                 (Misc_Legacy.gensym skolem_prefix, PType (order_of_type abs_T, []))
   378           else
   378           else
   379             I)
   379             I)
   380     and do_term_or_formula ext_arg T =
   380     and do_term_or_formula ext_arg T =
   381       if T = HOLogic.boolT then do_formula NONE else do_term ext_arg
   381       if T = HOLogic.boolT then do_formula NONE else do_term ext_arg
   382     and do_formula pos t =
   382     and do_formula pos t =