src/HOL/Tools/ATP/atp_systems.ML
changeset 51631 8d60dfb41d19
parent 51467 60472a1b4536
child 51872 af2e0b2c4d7e
equal deleted inserted replaced
51630:603436283686 51631:8d60dfb41d19
   265   + Config.get ctxt (e_selection_heuristic_case heuristic
   265   + Config.get ctxt (e_selection_heuristic_case heuristic
   266                          e_fun_weight_base e_sym_offs_weight_base)
   266                          e_fun_weight_base e_sym_offs_weight_base)
   267   |> Real.ceil |> signed_string_of_int
   267   |> Real.ceil |> signed_string_of_int
   268 
   268 
   269 fun e_selection_weight_arguments ctxt heuristic sel_weights =
   269 fun e_selection_weight_arguments ctxt heuristic sel_weights =
   270   if heuristic = e_autoN then
   270   if heuristic = e_fun_weightN orelse heuristic = e_sym_offset_weightN then
   271     "-xAuto"
       
   272   else
       
   273     (* supplied by Stephan Schulz *)
   271     (* supplied by Stephan Schulz *)
   274     "--split-clauses=4 --split-reuse-defs --simul-paramod --forward-context-sr \
   272     "--split-clauses=4 --split-reuse-defs --simul-paramod --forward-context-sr \
   275     \--destructive-er-aggressive --destructive-er --presat-simplify \
   273     \--destructive-er-aggressive --destructive-er --presat-simplify \
   276     \--prefer-initial-clauses -winvfreqrank -c1 -Ginvfreqconjmax -F1 \
   274     \--prefer-initial-clauses -winvfreqrank -c1 -Ginvfreqconjmax -F1 \
   277     \--delete-bad-limit=150000000 -WSelectMaxLComplexAvoidPosPred -H'(4*" ^
   275     \--delete-bad-limit=150000000 -WSelectMaxLComplexAvoidPosPred -H'(4*" ^
   286                           scaled_e_selection_weight ctxt heuristic w)
   284                           scaled_e_selection_weight ctxt heuristic w)
   287      |> implode) ^
   285      |> implode) ^
   288     "),3*ConjectureGeneralSymbolWeight(PreferNonGoals,200,100,200,50,50,1,100,\
   286     "),3*ConjectureGeneralSymbolWeight(PreferNonGoals,200,100,200,50,50,1,100,\
   289     \1.5,1.5,1),1*Clauseweight(PreferProcessed,1,1,1),1*\
   287     \1.5,1.5,1),1*Clauseweight(PreferProcessed,1,1,1),1*\
   290     \FIFOWeight(PreferProcessed))'"
   288     \FIFOWeight(PreferProcessed))'"
       
   289   else
       
   290     "-xAuto"
   291 
   291 
   292 val e_ord_weights =
   292 val e_ord_weights =
   293   map (fn (s, w) => s ^ ":" ^ string_of_int w) #> space_implode ","
   293   map (fn (s, w) => s ^ ":" ^ string_of_int w) #> space_implode ","
   294 fun e_ord_precedence [_] = ""
   294 fun e_ord_precedence [_] = ""
   295   | e_ord_precedence info = info |> map fst |> space_implode "<"
   295   | e_ord_precedence info = info |> map fst |> space_implode "<"