src/Pure/Isar/overloading.ML
changeset 38381 7d1e2a6831ec
parent 38377 2dfd8b7b8274
child 38382 8b02c5bf1d0e
equal deleted inserted replaced
38380:cf42d8355844 38381:7d1e2a6831ec
   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;