src/HOL/Statespace/state_space.ML
changeset 38350 480b2de9927c
parent 37146 f652333bbf8e
child 38389 d7d915bae307
equal deleted inserted replaced
38349:ed50e21e715a 38350:480b2de9927c
   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