(w, List.sort compare l) (* from the smallest meta to the bigest *)
;;
- let compute_unit_clause_weight =
+ let compute_unit_clause_weight (_,l, _, _) =
let weight_of_polynomial w m =
let factor = 2 in
w + factor * List.fold_left (fun acc (_,occ) -> acc+occ) 0 m
in
- function
+ match l with
| Terms.Predicate t ->
let w, m = weight_of_term t in
weight_of_polynomial w m
* if head_only=true then it is not >>> but helps case 2 of 3.14 p 39 *)
let rec aux_ordering ?(head_only=false) t1 t2 =
match t1, t2 with
+ (* We want to discard any identity equality. *
+ * If we give back XEQ, no inference rule *
+ * will be applied on this equality *)
+ | Terms.Var i, Terms.Var j when i = j ->
+ XEQ
(* 1. *)
| Terms.Var _, _
| _, Terms.Var _ -> XINCOMPARABLE