1 (* all outcommented in order to demonstrate authoring:
4 use_thy_only"Knowledge/LogExp";
5 use_thy_only"Knowledge/Isac";
12 exp :: "real => real" ("E'_ ^^^ _" 80)
14 (*--------------------------------------------------*)
15 alog :: "[real, real] => real" ("_ log _" 90)
18 Solve'_log :: "[bool,real, bool list] \
20 ("((Script Solve'_log (_ _=))//(_))" 9)
24 equality_pow "0 < a ==> (l = r) = (a^^^l = a^^^r)"
25 (* this is what students ^^^^^^^... are told to do *)
26 equality_power "((a log b) = c) = (a^^^(a log b) = a^^^c)"
27 exp_invers_log "a^^^(a log b) = b"
28 (*---------------------------------------------------*)