src/Tools/isac/Knowledge/Atools.thy
branchisac-update-Isa09-2
changeset 38031 460c24a6a6ba
parent 38015 67ba02dffacc
child 38034 928cebc9c4aa
     1.1 --- a/src/Tools/isac/Knowledge/Atools.thy	Tue Sep 28 08:58:06 2010 +0200
     1.2 +++ b/src/Tools/isac/Knowledge/Atools.thy	Tue Sep 28 09:06:56 2010 +0200
     1.3 @@ -504,7 +504,7 @@
     1.4     as the fst argument;
     1.5     this is, because Isabelles filter takes more than 1 sec.*)
     1.6  fun same_funid f1 (Const ("op =", _) $ (f2 $ _) $ _) = f1 = f2
     1.7 -  | same_funid f1 t = raise error ("same_funid called with t = ("
     1.8 +  | same_funid f1 t = error ("same_funid called with t = ("
     1.9  				   ^term2str f1^") ("^term2str t^")");
    1.10  (*("filter_sameFunId" ,("Atools.filter'_sameFunId",
    1.11  		   eval_filter_sameFunId "Atools.filter'_sameFunId"))*)