int ->
B.t Terms.bag ->
B.t Terms.unit_clause ->
- (B.t Terms.bag * B.t Terms.unit_clause) option
+ B.t Terms.bag * (B.t Terms.unit_clause option)
(* may raise success *)
val simplify_goal :
int ->
Index.Index(B).DT.t ->
B.t Terms.bag ->
+ B.t Terms.unit_clause list ->
B.t Terms.unit_clause ->
- B.t Terms.bag * B.t Terms.unit_clause
+ (B.t Terms.bag * B.t Terms.unit_clause) option
val one_pass_simplification:
B.t Terms.unit_clause ->
Index.Index(B).active_set ->
B.t Terms.bag ->
int ->
- (B.t Terms.unit_clause * B.t Terms.bag * Index.Index(B).active_set) option
+ B.t Terms.bag * (B.t Terms.unit_clause * Index.Index(B).active_set) option
val keep_simplified:
Index.Index(B).active_set ->
B.t Terms.bag ->
int ->
- (B.t Terms.unit_clause * B.t Terms.bag * Index.Index(B).active_set) option
+ B.t Terms.bag * (B.t Terms.unit_clause * Index.Index(B).active_set) option
end