src/HOL/Tools/Sledgehammer/sledgehammer_atp_translate.ML
changeset 41770 a710e96583d5
parent 41769 eb2e39555f98
child 41990 7f2793d51efc
equal deleted inserted replaced
41769:eb2e39555f98 41770:a710e96583d5
   648      fact_names |> Vector.fromList)
   648      fact_names |> Vector.fromList)
   649   end
   649   end
   650 
   650 
   651 (* FUDGE *)
   651 (* FUDGE *)
   652 val conj_weight = 0.0
   652 val conj_weight = 0.0
   653 val hyp_weight = 0.05
   653 val hyp_weight = 0.1
   654 val fact_min_weight = 0.1
   654 val fact_min_weight = 0.2
   655 val fact_max_weight = 1.0
   655 val fact_max_weight = 1.0
   656 
   656 
   657 fun add_term_weights weight (ATerm (s, tms)) =
   657 fun add_term_weights weight (ATerm (s, tms)) =
   658   (not (is_atp_variable s) andalso s <> "equal") ? Symtab.default (s, weight)
   658   (not (is_atp_variable s) andalso s <> "equal") ? Symtab.default (s, weight)
   659   #> fold (add_term_weights weight) tms
   659   #> fold (add_term_weights weight) tms