src/Pure/Isar/parse_spec.ML
changeset 63352 4eaf35781b23
parent 63285 e9c777bfd78c
child 67450 b0ae74b86ef3
equal deleted inserted replaced
63347:e344dc82f6c2 63352:4eaf35781b23
    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);