equal
deleted
inserted
replaced
216 (fn prmode => fn (b, mx) => fn (t, _) => fn _ => |
216 (fn prmode => fn (b, mx) => fn (t, _) => fn _ => |
217 Generic_Target.theory_abbrev prmode ((b, mx), t)), |
217 Generic_Target.theory_abbrev prmode ((b, mx), t)), |
218 declaration = K Generic_Target.theory_declaration, |
218 declaration = K Generic_Target.theory_declaration, |
219 syntax_declaration = K Generic_Target.theory_declaration, |
219 syntax_declaration = K Generic_Target.theory_declaration, |
220 pretty = single o pretty, |
220 pretty = single o pretty, |
221 reinit = gen_overloading prep_const raw_ops o ProofContext.theory_of, |
|
222 exit = Local_Theory.target_of o conclude} |
221 exit = Local_Theory.target_of o conclude} |
223 end; |
222 end; |
224 |
223 |
225 val overloading = gen_overloading (fn ctxt => Syntax.check_term ctxt o Const); |
224 val overloading = gen_overloading (fn ctxt => Syntax.check_term ctxt o Const); |
226 val overloading_cmd = gen_overloading Syntax.read_term; |
225 val overloading_cmd = gen_overloading Syntax.read_term; |