equal
deleted
inserted
replaced
161 |
161 |
162 val defer_recdefP = |
162 val defer_recdefP = |
163 OuterSyntax.command "defer_recdef" "defer general recursive functions (TFL)" K.thy_decl |
163 OuterSyntax.command "defer_recdef" "defer general recursive functions (TFL)" K.thy_decl |
164 (defer_recdef_decl >> Toplevel.theory); |
164 (defer_recdef_decl >> Toplevel.theory); |
165 |
165 |
166 val _ = OuterSyntax.add_keywords ["congs", "simpset"]; |
166 val _ = OuterSyntax.add_keywords ["congs"]; |
167 val _ = OuterSyntax.add_parsers [recdefP, defer_recdefP]; |
167 val _ = OuterSyntax.add_parsers [recdefP, defer_recdefP]; |
168 |
168 |
169 end; |
169 end; |
170 |
170 |
171 |
171 |