removed read_inst', no longer export insts';
authorwenzelm
Fri Oct 12 12:08:04 2001 +0200 (2001-10-12)
changeset 11729a7da2e8b5762
parent 11728 b5f6963b193c
child 11730 418533653668
removed read_inst', no longer export insts';
src/Pure/Isar/attrib.ML
     1.1 --- a/src/Pure/Isar/attrib.ML	Fri Oct 12 12:07:27 2001 +0200
     1.2 +++ b/src/Pure/Isar/attrib.ML	Fri Oct 12 12:08:04 2001 +0200
     1.3 @@ -33,8 +33,6 @@
     1.4    val syntax: ('a * Args.T list -> 'a attribute * ('a * Args.T list)) -> Args.src -> 'a attribute
     1.5    val no_args: 'a attribute -> Args.src -> 'a attribute
     1.6    val add_del_args: 'a attribute -> 'a attribute -> Args.src -> 'a attribute
     1.7 -  val read_inst': string option list * string option list -> ProofContext.context -> thm -> thm
     1.8 -  val insts': Args.T list -> (string option list * string option list) * Args.T list
     1.9    val setup: (theory -> theory) list
    1.10  end;
    1.11  
    1.12 @@ -251,8 +249,6 @@
    1.13          |> RuleCases.save thm
    1.14        end;
    1.15  
    1.16 -val read_inst' = read_instantiate' I;
    1.17 -
    1.18  val concl = Args.$$$ "concl" -- Args.colon;
    1.19  val inst_arg = Scan.unless concl Args.name_dummy;
    1.20  val inst_args = Scan.repeat inst_arg;