let ty = NCicTypeChecker.typeof status [] [] ctx t in
if is_a_fact status (mk_cic_term ctx ty) then
(debug_print(lazy("eq indexing " ^ (status#ppterm ctx [] [] ty)));
- NCicParamod.forward_infer_step eq_cache t ty)
+ NCicParamod.forward_infer_step status [] [] ctx eq_cache t ty)
else
(debug_print (lazy ("not a fact: " ^ (status#ppterm ctx [] [] ty)));
eq_cache)