src/HOL/Statespace/state_space.ML
changeset 72186 bdf77466b6c8
parent 69597 ff784d5a5bfb
child 72536 589645894305
equal deleted inserted replaced
72185:0f9ebade33ab 72186:bdf77466b6c8
   297 
   297 
   298 
   298 
   299 fun add_declaration name decl thy =
   299 fun add_declaration name decl thy =
   300   thy
   300   thy
   301   |> Named_Target.init name
   301   |> Named_Target.init name
   302   |> (fn lthy => Local_Theory.declaration {syntax = false, pervasive = false} (decl lthy) lthy)
   302   |> (fn lthy => Local_Theory.declaration {syntax = true, pervasive = false} (decl lthy) lthy)
   303   |> Local_Theory.exit_global;
   303   |> Local_Theory.exit_global;
   304 
   304 
   305 fun parent_components thy (Ts, pname, renaming) =
   305 fun parent_components thy (Ts, pname, renaming) =
   306   let
   306   let
   307     val ctxt = Context.Theory thy;
   307     val ctxt = Context.Theory thy;