equal
deleted
inserted
replaced
346 val no_syn = #3 (Syntax.no_syn ((),())); |
346 val no_syn = #3 (Syntax.no_syn ((),())); |
347 |
347 |
348 |
348 |
349 fun add_declaration name decl thy = |
349 fun add_declaration name decl thy = |
350 thy |
350 thy |
351 |> Theory_Target.init name |
351 |> Named_Target.init name |
352 |> (fn lthy => Local_Theory.declaration false (decl lthy) lthy) |
352 |> (fn lthy => Local_Theory.declaration false (decl lthy) lthy) |
353 |> Local_Theory.exit_global; |
353 |> Local_Theory.exit_global; |
354 |
354 |
355 fun parent_components thy (Ts, pname, renaming) = |
355 fun parent_components thy (Ts, pname, renaming) = |
356 let |
356 let |