src/Pure/Isar/theory_target.ML
changeset 21752 5b7644879373
parent 21747 d650305c609a
child 21761 d4fd9bb0ccd6
equal deleted inserted replaced
21751:39b2ce38ac66 21752:5b7644879373
    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