src/Tools/isac/IsacKnowledge/DiffApp.thy
branchisac-update-Isa09-2
changeset 37947 22235e4dbe5f
parent 37946 a28b5fc129b7
child 37948 ed85f172569c
     1.1 --- a/src/Tools/isac/IsacKnowledge/DiffApp.thy	Wed Aug 25 15:15:01 2010 +0200
     1.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3 @@ -1,40 +0,0 @@
     1.4 -(* application of differential calculus
     1.5 -   use_thy_only"../IsacKnowledge/DiffApp";
     1.6 -   use_thy_only"DiffApp";
     1.7 -   
     1.8 -
     1.9 -*)
    1.10 -
    1.11 -
    1.12 -DiffApp = Diff +
    1.13 -
    1.14 -consts
    1.15 -
    1.16 -  Maximum'_value
    1.17 -             :: "[bool list,real,bool list,real,real set,bool,\
    1.18 -		  \ bool list] => bool list"
    1.19 -               ("((Script Maximum'_value (_ _ _ _ _ _ =))// (_))" 9)
    1.20 -  
    1.21 -  Make'_fun'_by'_new'_variable
    1.22 -             :: "[real,real,bool list, \
    1.23 -		  \ bool] => bool"
    1.24 -               ("((Script Make'_fun'_by'_new'_variable (_ _ _ =))// \
    1.25 -		  \(_))" 9)
    1.26 -  Make'_fun'_by'_explicit
    1.27 -             :: "[real,real,bool list, \
    1.28 -		  \ bool] => bool"
    1.29 -               ("((Script Make'_fun'_by'_explicit (_ _ _ =))// \
    1.30 -		  \(_))" 9)
    1.31 -
    1.32 -  dummy :: real
    1.33 -
    1.34 -(*for script Maximum_value*)
    1.35 -  filterVar :: "[real, 'a list] => 'a list"
    1.36 -
    1.37 -(*primrec*)rules
    1.38 -  filterVar_Nil		"filterVar v []     = []"
    1.39 -  filterVar_Const	"filterVar v (x#xs) =                      \
    1.40 -			\(if (v mem (Vars x)) then x#(filterVar v xs) \
    1.41 -			\                   else filterVar v xs)   "
    1.42 -
    1.43 -end
    1.44 \ No newline at end of file