equal
deleted
inserted
replaced
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 |