equal
deleted
inserted
replaced
44 fun thm_name s = Parse.binding -- Parse.opt_attribs --| Parse.$$$ s; |
44 fun thm_name s = Parse.binding -- Parse.opt_attribs --| Parse.$$$ s; |
45 |
45 |
46 fun opt_thm_name s = |
46 fun opt_thm_name s = |
47 Scan.optional |
47 Scan.optional |
48 ((Parse.binding -- Parse.opt_attribs || Parse.attribs >> pair Binding.empty) --| Parse.$$$ s) |
48 ((Parse.binding -- Parse.opt_attribs || Parse.attribs >> pair Binding.empty) --| Parse.$$$ s) |
49 Attrib.empty_binding; |
49 Binding.empty_atts; |
50 |
50 |
51 val simple_spec = opt_thm_name ":" -- Parse.prop; |
51 val simple_spec = opt_thm_name ":" -- Parse.prop; |
52 val simple_specs = opt_thm_name ":" -- Scan.repeat1 Parse.prop; |
52 val simple_specs = opt_thm_name ":" -- Scan.repeat1 Parse.prop; |
53 |
53 |
54 val name_facts = Parse.and_list1 (opt_thm_name "=" -- Parse.thms1); |
54 val name_facts = Parse.and_list1 (opt_thm_name "=" -- Parse.thms1); |