src/Pure/Isar/overloading.ML
changeset 45291 57cd50f98fdc
parent 42404 fbd136946b35
child 45293 57def0b39696
equal deleted inserted replaced
45290:f599ac41e7f5 45291:57cd50f98fdc
   205           (fn kind => fn global_facts => fn _ => Generic_Target.theory_notes kind global_facts),
   205           (fn kind => fn global_facts => fn _ => Generic_Target.theory_notes kind global_facts),
   206         abbrev = Generic_Target.abbrev
   206         abbrev = Generic_Target.abbrev
   207           (fn prmode => fn (b, mx) => fn (t, _) => fn _ =>
   207           (fn prmode => fn (b, mx) => fn (t, _) => fn _ =>
   208             Generic_Target.theory_abbrev prmode ((b, mx), t)),
   208             Generic_Target.theory_abbrev prmode ((b, mx), t)),
   209         declaration = K Generic_Target.theory_declaration,
   209         declaration = K Generic_Target.theory_declaration,
   210         syntax_declaration = K Generic_Target.theory_declaration,
       
   211         pretty = pretty,
   210         pretty = pretty,
   212         exit = Local_Theory.target_of o conclude}
   211         exit = Local_Theory.target_of o conclude}
   213   end;
   212   end;
   214 
   213 
   215 val overloading = gen_overloading (fn ctxt => Syntax.check_term ctxt o Const);
   214 val overloading = gen_overloading (fn ctxt => Syntax.check_term ctxt o Const);