1.1 --- a/test/Tools/isac/ProgLang/evaluate.sml Sun May 02 15:55:37 2021 +0200
1.2 +++ b/test/Tools/isac/ProgLang/evaluate.sml Mon May 03 08:49:50 2021 +0200
1.3 @@ -48,7 +48,7 @@
1.4 val times = ("Groups.times_class.times", eval_binop "#mult_") : string * Eval_Def.eval_fn;
1.5 val plus = ("Groups.plus_class.plus",eval_binop "#add_") : string * Eval_Def.eval_fn;
1.6 val divide = ("Rings.divide_class.divide" ,eval_cancel "#divide_e") : string * Eval_Def.eval_fn;
1.7 -val pow = ("Prog_Expr.pow" ,eval_binop "#power_") : string * Eval_Def.eval_fn;
1.8 +val pow = ("Transcendental.powr" ,eval_binop "#power_") : string * Eval_Def.eval_fn;
1.9
1.10 "~~~~~ fun calculate_, args:"; val (thy, isa_fn, t) = (thy, plus, t);
1.11 val SOME ("#: 1 + 2 = 3", adh_thm) = adhoc_thm @{theory} isa_fn t;
1.12 @@ -282,7 +282,7 @@
1.13
1.14 val (op_, eval_fn) = the (LibraryC.assoc(KEStore_Elems.get_calcs @{theory},"POWER"));
1.15 (*
1.16 -val op_ = "Prog_Expr.pow" : string
1.17 +val op_ = "Transcendental.powr" : string
1.18 val eval_fn = fn : string -> term -> theory -> (string * term) option*)
1.19
1.20 val SOME (thmid,t') = get_pair thy op_ eval_fn t;