equal
deleted
inserted
replaced
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 |