equal
deleted
inserted
replaced
89 (* FIXME !? *) |
89 (* FIXME !? *) |
90 val mx' = if is_class lthy then NoSyn else Syntax.unlocalize_mixfix is_loc mx; |
90 val mx' = if is_class lthy then NoSyn else Syntax.unlocalize_mixfix is_loc mx; |
91 in |
91 in |
92 lthy1 |
92 lthy1 |
93 |> LocalTheory.theory (Sign.add_notation prmode [(v', mx')]) |
93 |> LocalTheory.theory (Sign.add_notation prmode [(v', mx')]) |
94 |> is_loc ? internal_abbrev (PolyML.print ((c, mx), Term.list_comb (v, xs))) |
94 |> is_loc ? internal_abbrev ((c, mx), Term.list_comb (v, xs)) |
95 end; |
95 end; |
96 |
96 |
97 |
97 |
98 (* consts *) |
98 (* consts *) |
99 |
99 |