equal
deleted
inserted
replaced
303 (* setup theory *) |
303 (* setup theory *) |
304 |
304 |
305 val setup = |
305 val setup = |
306 [GlobalRecdefData.init, LocalRecdefData.init, |
306 [GlobalRecdefData.init, LocalRecdefData.init, |
307 Attrib.add_attributes |
307 Attrib.add_attributes |
308 [("recdef_simp", simp_attr, "declare recdef simp rule"), |
308 [("recdef_simp", simp_attr, "declaration of recdef simp rule"), |
309 ("recdef_cong", cong_attr, "declare recdef cong rule"), |
309 ("recdef_cong", cong_attr, "declaration of recdef cong rule"), |
310 ("recdef_wf", wf_attr, "declare recdef wf rule")]]; |
310 ("recdef_wf", wf_attr, "declaration of recdef wf rule")]]; |
311 |
311 |
312 |
312 |
313 (* outer syntax *) |
313 (* outer syntax *) |
314 |
314 |
315 local structure P = OuterParse and K = OuterSyntax.Keyword in |
315 local structure P = OuterParse and K = OuterSyntax.Keyword in |