equal
deleted
inserted
replaced
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 = |