src/Pure/Isar/typedecl.ML
changeset 38350 480b2de9927c
parent 36457 7355af2a7e8a
child 38388 94d5624dd1f7
equal deleted inserted replaced
38349:ed50e21e715a 38350:480b2de9927c
    73     |> Variable.declare_typ T
    73     |> Variable.declare_typ T
    74     |> pair T
    74     |> pair T
    75   end;
    75   end;
    76 
    76 
    77 fun typedecl_global decl =
    77 fun typedecl_global decl =
    78   Theory_Target.init NONE
    78   Named_Target.init NONE
    79   #> typedecl decl
    79   #> typedecl decl
    80   #> Local_Theory.exit_result_global Morphism.typ;
    80   #> Local_Theory.exit_result_global Morphism.typ;
    81 
    81 
    82 
    82 
    83 (* type abbreviations *)
    83 (* type abbreviations *)
   113 val abbrev_cmd = gen_abbrev read_abbrev;
   113 val abbrev_cmd = gen_abbrev read_abbrev;
   114 
   114 
   115 end;
   115 end;
   116 
   116 
   117 fun abbrev_global decl rhs =
   117 fun abbrev_global decl rhs =
   118   Theory_Target.init NONE
   118   Named_Target.init NONE
   119   #> abbrev decl rhs
   119   #> abbrev decl rhs
   120   #> Local_Theory.exit_result_global (K I);
   120   #> Local_Theory.exit_result_global (K I);
   121 
   121 
   122 end;
   122 end;
   123 
   123