src/Tools/isac/Knowledge/Diff.thy
branchisac-update-Isa09-2
changeset 38031 460c24a6a6ba
parent 37993 e4796b1125fb
child 38034 928cebc9c4aa
     1.1 --- a/src/Tools/isac/Knowledge/Diff.thy	Tue Sep 28 08:58:06 2010 +0200
     1.2 +++ b/src/Tools/isac/Knowledge/Diff.thy	Tue Sep 28 09:06:56 2010 +0200
     1.3 @@ -100,7 +100,7 @@
     1.4  
     1.5  fun primed (Const (id, T)) = Const (id ^ "'", T)
     1.6    | primed (Free (id, T)) = Free (id ^ "'", T)
     1.7 -  | primed t = raise error ("primed called with arg = '"^ term2str t ^"'");
     1.8 +  | primed t = error ("primed called with arg = '"^ term2str t ^"'");
     1.9  
    1.10  (*("primed", ("Diff.primed", eval_primed "#primed"))*)
    1.11  fun eval_primed _ _ (p as (Const ("Diff.primed",_) $ t)) _ =
    1.12 @@ -408,7 +408,7 @@
    1.13       ((term_of o the o (parse thy)) "derivative", 
    1.14        [(term_of o the o (parse thy)) "f_f'"])
    1.15       ]
    1.16 -  | argl2dtss _ = raise error "Diff.ML: wrong argument for argl2dtss";
    1.17 +  | argl2dtss _ = error "Diff.ML: wrong argument for argl2dtss";
    1.18  castab := 
    1.19  overwritel (!castab, 
    1.20  	    [((term_of o the o (parse thy)) "Diff",  
    1.21 @@ -426,7 +426,7 @@
    1.22       ((term_of o the o (parse thy)) "derivativeEq", 
    1.23        [(term_of o the o (parse thy)) "f_f'::bool"])
    1.24       ]
    1.25 -  | argl2dtss _ = raise error "Diff.ML: wrong argument for argl2dtss";
    1.26 +  | argl2dtss _ = error "Diff.ML: wrong argument for argl2dtss";
    1.27  castab := 
    1.28  overwritel (!castab, 
    1.29  	    [((term_of o the o (parse thy)) "Differentiate",