src/ZF/Tools/induct_tacs.ML
changeset 17057 0934ac31985f
parent 16458 4c6fd0c01d28
child 17223 430edc6b7826
     1.1 --- a/src/ZF/Tools/induct_tacs.ML	Tue Aug 16 13:42:23 2005 +0200
     1.2 +++ b/src/ZF/Tools/induct_tacs.ML	Tue Aug 16 13:42:26 2005 +0200
     1.3 @@ -200,7 +200,7 @@
     1.4  
     1.5  (* outer syntax *)
     1.6  
     1.7 -local structure P = OuterParse and K = OuterSyntax.Keyword in
     1.8 +local structure P = OuterParse and K = OuterKeyword in
     1.9  
    1.10  val rep_datatype_decl =
    1.11    (P.$$$ "elimination" |-- P.!!! P.xthm) --