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