src/Pure/ML/ml_thms.ML
changeset 45198 f579dab96734
parent 43560 d1650e3720fd
child 45592 8baa0b7f3f66
equal deleted inserted replaced
45197:b6c527c64789 45198:f579dab96734
    50 
    50 
    51 (* ad-hoc goals *)
    51 (* ad-hoc goals *)
    52 
    52 
    53 val and_ = Args.$$$ "and";
    53 val and_ = Args.$$$ "and";
    54 val by = Args.$$$ "by";
    54 val by = Args.$$$ "by";
    55 val goal = Scan.unless (by || and_) Args.name;
    55 val goal = Scan.unless (by || and_) Args.name_source;
    56 
    56 
    57 val _ =
    57 val _ =
    58   Context.>> (Context.map_theory
    58   Context.>> (Context.map_theory
    59    (ML_Context.add_antiq (Binding.name "lemma")
    59    (ML_Context.add_antiq (Binding.name "lemma")
    60     (fn _ => Args.context -- Args.mode "open" --
    60     (fn _ => Args.context -- Args.mode "open" --