src/Pure/Isar/generic_target.ML
changeset 47293 052cd5f1a591
parent 47292 1884d34e9aab
child 47313 6a0ee401b899
equal deleted inserted replaced
47292:1884d34e9aab 47293:052cd5f1a591
   309     (Sign.add_abbrev (#1 prmode) (b, t) #->
   309     (Sign.add_abbrev (#1 prmode) (b, t) #->
   310       (fn (lhs, _) =>  (* FIXME type_params!? *)
   310       (fn (lhs, _) =>  (* FIXME type_params!? *)
   311         Sign.notation true prmode [(lhs, check_mixfix_global (b, null xs) mx)] #> pair lhs))
   311         Sign.notation true prmode [(lhs, check_mixfix_global (b, null xs) mx)] #> pair lhs))
   312   #-> (fn lhs => fn lthy' => lthy' |>
   312   #-> (fn lhs => fn lthy' => lthy' |>
   313         const_declaration (fn level => level <> Local_Theory.level lthy') prmode
   313         const_declaration (fn level => level <> Local_Theory.level lthy') prmode
   314           ((b, mx), Term.list_comb (Logic.unvarify_global lhs, xs)));
   314           ((b, if null xs then NoSyn else mx), Term.list_comb (Logic.unvarify_global lhs, xs)));
   315 
   315 
   316 fun theory_declaration decl =
   316 fun theory_declaration decl =
   317   background_declaration decl #> standard_declaration (K true) decl;
   317   background_declaration decl #> standard_declaration (K true) decl;
   318 
   318 
   319 end;
   319 end;