let amount = List.length seen in
let lit,vl,proof = get_literal id in
if not ongoal && id = mp then
- ((*prerr_endline ("Reached meeting point, id=" ^ (string_of_int id));*)
+ ((*prerr_endline ("Reached m point, id=" ^ (string_of_int id));*)
assert (vl = []);
NCic.LetIn ("clause_" ^ string_of_int id,
extract amount vl lit,