+ (* bag, maxvar, meeting point *)
+ exception Success of B.t Terms.bag * int * B.t Terms.clause
+
+ (* The returned active set is the input one + the selected clause *)
+ val infer_right :
+ B.t Terms.bag ->
+ int -> (* maxvar *)
+ B.t Terms.clause -> (* selected passive *)
+ Index.Index(B).active_set ->
+ B.t Terms.bag * int * Index.Index(B).active_set * B.t Terms.clause list
+
+ val infer_left :