theory integrate

 imports Isac.Build_Thydata

 begin

 ML \<open>

 "----------- method analog to rls 'integration' ---------";

 "----------- method analog to rls 'integration' ---------";

 "----------- method analog to rls 'integration' ---------";

 \<close>

 partial_function (tailrec) integration_test :: "real \<Rightarrow> real \<Rightarrow> real"

   where

 "integration_test f_f v_v =

   (((Rewrite_Set_Inst [(''bdv'',v_v)] ''integration_rules'') #>

     (Rewrite_Set_Inst [(''bdv'',v_v)] ''add_new_c'')         #>

     (Rewrite_Set_Inst [(''bdv'',v_v)] ''simplify_Integral'')) (f_f::real))"

 setup \<open>KEStore_Elems.add_mets @{context}

   [MethodC.prep_input @{theory "Isac_Knowledge"} "met_testint" [] MethodC.id_empty

 	    (["diff", "integration", "test"],

 	      [("#Given" ,["functionTerm f_f", "integrateBy v_v"]), ("#Find", ["antiDerivative F_F"])],

 	      {rew_ord'="tless_true", rls'=Atools_erls, calc = [], srls = Rule_Set.empty, prls = Rule_Set.empty,

 	        crls = Atools_erls, errpats = [], nrls = Rule_Set.empty},

 	      @{thm integration_test.simps})]\<close>

 end