equal
deleted
inserted
replaced
115 fun loc_begin loc (Context.Theory thy) = |
115 fun loc_begin loc (Context.Theory thy) = |
116 (Context.Theory o loc_exit, loc_init (the_default ("-", Position.none) loc) thy) |
116 (Context.Theory o loc_exit, loc_init (the_default ("-", Position.none) loc) thy) |
117 | loc_begin NONE (Context.Proof lthy) = |
117 | loc_begin NONE (Context.Proof lthy) = |
118 (Context.Proof o Local_Theory.restore, lthy) |
118 (Context.Proof o Local_Theory.restore, lthy) |
119 | loc_begin (SOME loc) (Context.Proof lthy) = |
119 | loc_begin (SOME loc) (Context.Proof lthy) = |
120 (Context.Proof o Named_Target.reinit lthy, loc_init loc (loc_exit (Local_Theory.assert_nonbrittle lthy))); |
120 (Context.Proof o Named_Target.reinit lthy, |
|
121 loc_init loc (loc_exit (Local_Theory.assert_nonbrittle lthy))); |
121 |
122 |
122 |
123 |
123 (* datatype node *) |
124 (* datatype node *) |
124 |
125 |
125 datatype node = |
126 datatype node = |