let empty_state = P.empty_state
let forward_infer_step s t ty =
- let bag = P.bag_of_state s in
+ let bag = P.bag_of_state s in
let bag,clause = P.mk_passive bag (t,ty) in
if Terms.is_eq_clause clause then
P.forward_infer_step (P.replace_bag s bag) clause 0