src/Pure/ex/Def.thy
changeset 78095 bc42c074e58f
parent 78071 61a1bf9eb0ce
child 78113 b14421dc6759
equal deleted inserted replaced
78094:c3efa0b63d2e 78095:bc42c074e58f
    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