else if Unix.gettimeofday () > max_time then
(ParamodulationFailure "No more time to spend")
else
- (*
let _ = prerr_endline "simpl goal with active" in
let _ = <:start<simplify goal set active>> in
let goals = simplify_goal_set env goals passive active in
let _ = <:stop<simplify goal set active>> in
- *)
match check_if_goals_set_is_solved env active goals with
| Some p ->
prerr_endline
| Some current ->
(* GENERATION OF NEW EQUATIONS *)
prerr_endline "infer";
- let _,_,_,_,id = Equality.open_equality current in
let new' = infer eq_uri env current active in
prerr_endline "infer goal";
let goals = infer_goal_set_with_current env current goals in