- prerr_endline "YES!";
- prerr_endline "Proof:";
- List.iter (fun x ->
- prerr_endline (Pp.pp_unit_clause (Terms.M.find x bag))) l;
- let proofterm = B.mk_proof bag l in
- prerr_endline
- (NCicPp.ppterm ~metasenv:C.metasenv ~subst:C.subst ~context:C.context
- proofterm);
- let _metasenv, _subst, _proofterm, _prooftype =
- NCicRefiner.typeof rdb C.metasenv C.subst C.context proofterm None
+ debug "YES!";
+ debug ("Meeting point : " ^ (string_of_int i));
+ debug "Proof:";
+ (*List.iter (fun x -> prerr_endline (string_of_int x);
+ prerr_endline (Pp.pp_unit_clause (Terms.M.find x bag))) l; *)
+ let proofterm = B.mk_proof bag i l in
+ prerr_endline (NCicPp.ppterm ~metasenv:C.metasenv
+ ~subst:C.subst ~context:C.context proofterm);
+ let metasenv, subst, proofterm, _prooftype =
+ NCicRefiner.typeof
+ (rdb#set_coerc_db NCicCoercion.empty_db)
+ C.metasenv C.subst C.context proofterm None