equal
deleted
inserted
replaced
184 MetaSimplifier.rewrite true (get_atomize (Thm.theory_of_cterm ct)) ct; |
184 MetaSimplifier.rewrite true (get_atomize (Thm.theory_of_cterm ct)) ct; |
185 |
185 |
186 fun atomize_prems ct = |
186 fun atomize_prems ct = |
187 if Logic.has_meta_prems (Thm.term_of ct) then |
187 if Logic.has_meta_prems (Thm.term_of ct) then |
188 Conv.params_conv ~1 (K (Conv.prems_conv ~1 atomize)) |
188 Conv.params_conv ~1 (K (Conv.prems_conv ~1 atomize)) |
189 (ProofContext.init (Thm.theory_of_cterm ct)) ct |
189 (ProofContext.init_global (Thm.theory_of_cterm ct)) ct |
190 else Conv.all_conv ct; |
190 else Conv.all_conv ct; |
191 |
191 |
192 val atomize_prems_tac = CONVERSION atomize_prems; |
192 val atomize_prems_tac = CONVERSION atomize_prems; |
193 val full_atomize_tac = CONVERSION atomize; |
193 val full_atomize_tac = CONVERSION atomize; |
194 |
194 |