src/Pure/Isar/code.ML
changeset 78095 bc42c074e58f
parent 78068 a01c3bcf22dd
child 78139 bb85bda12b8e
equal deleted inserted replaced
78094:c3efa0b63d2e 78095:bc42c074e58f
  1308 
  1308 
  1309 
  1309 
  1310 (* abstract code declarations *)
  1310 (* abstract code declarations *)
  1311 
  1311 
  1312 fun code_declaration strictness lift_phi f x =
  1312 fun code_declaration strictness lift_phi f x =
  1313   Local_Theory.declaration {syntax = false, pervasive = false}
  1313   Local_Theory.declaration {syntax = false, pervasive = false, pos = Position.thread_data ()}
  1314     (fn phi => Context.mapping (f strictness (lift_phi phi x)) I);
  1314     (fn phi => Context.mapping (f strictness (lift_phi phi x)) I);
  1315 
  1315 
  1316 
  1316 
  1317 (* types *)
  1317 (* types *)
  1318 
  1318