equal
deleted
inserted
replaced
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; |