39 val target_morphism: local_theory -> morphism |
39 val target_morphism: local_theory -> morphism |
40 val target_naming: local_theory -> NameSpace.naming |
40 val target_naming: local_theory -> NameSpace.naming |
41 val target_name: local_theory -> bstring -> string |
41 val target_name: local_theory -> bstring -> string |
42 val init: string -> operations -> Proof.context -> local_theory |
42 val init: string -> operations -> Proof.context -> local_theory |
43 val restore: local_theory -> local_theory |
43 val restore: local_theory -> local_theory |
44 val reinit: local_theory -> theory -> local_theory |
44 val reinit: local_theory -> local_theory |
45 val exit: local_theory -> Proof.context |
45 val exit: local_theory -> Proof.context |
46 end; |
46 end; |
47 |
47 |
48 structure LocalTheory: LOCAL_THEORY = |
48 structure LocalTheory: LOCAL_THEORY = |
49 struct |
49 struct |
65 local_theory -> (bstring * thm list) list * local_theory, |
65 local_theory -> (bstring * thm list) list * local_theory, |
66 type_syntax: declaration -> local_theory -> local_theory, |
66 type_syntax: declaration -> local_theory -> local_theory, |
67 term_syntax: declaration -> local_theory -> local_theory, |
67 term_syntax: declaration -> local_theory -> local_theory, |
68 declaration: declaration -> local_theory -> local_theory, |
68 declaration: declaration -> local_theory -> local_theory, |
69 target_naming: local_theory -> NameSpace.naming, |
69 target_naming: local_theory -> NameSpace.naming, |
70 reinit: local_theory -> theory -> local_theory, |
70 reinit: local_theory -> local_theory, |
71 exit: local_theory -> Proof.context}; |
71 exit: local_theory -> Proof.context}; |
72 |
72 |
73 datatype lthy = LThy of |
73 datatype lthy = LThy of |
74 {theory_prefix: string, |
74 {theory_prefix: string, |
75 operations: operations, |
75 operations: operations, |