equal
deleted
inserted
replaced
39 val merge = Item_Net.merge; |
39 val merge = Item_Net.merge; |
40 ); |
40 ); |
41 |
41 |
42 fun declare_def lhs eq lthy = |
42 fun declare_def lhs eq lthy = |
43 let val def0: def = {lhs = lhs, eq = Thm.trim_context eq} in |
43 let val def0: def = {lhs = lhs, eq = Thm.trim_context eq} in |
44 lthy |> Local_Theory.declaration {syntax = false, pervasive = true} |
44 lthy |> Local_Theory.declaration {syntax = false, pervasive = true, pos = \<^here>} |
45 (fn phi => fn context => |
45 (fn phi => fn context => |
46 let val psi = Morphism.set_trim_context'' context phi |
46 let val psi = Morphism.set_trim_context'' context phi |
47 in (Data.map o Item_Net.update) (transform_def psi def0) context end) |
47 in (Data.map o Item_Net.update) (transform_def psi def0) context end) |
48 end; |
48 end; |
49 |
49 |