;;
let index_obj_for_auto status (uri, height, _, _, kind) =
- prerr_endline (string_of_int height);
+ (*prerr_endline (string_of_int height);*)
let mk_item orig_ty spec =
let ty,_,_ = NCicMetaSubst.saturate ~delta:max_int [] [] [] orig_ty 0 in
let keys =
let index_eq_for_auto status uri =
if NnAuto.is_a_fact_obj status uri then
let newstatus = index_eq uri status in
- if newstatus == status then status
+ if newstatus#eq_cache == status#eq_cache then status
else
- (prerr_endline ("recording " ^ (NUri.string_of_uri uri));
+ ((*prerr_endline ("recording " ^ (NUri.string_of_uri uri));*)
let dump = record_index_eq uri :: newstatus#dump
in newstatus#set_dump dump)
else
- (prerr_endline "Not a fact";
+ ((*prerr_endline "Not a fact";*)
status)
;;
match punct with
| GrafiteAst.Dot _ -> NTactics.dot_tac
| GrafiteAst.Semicolon _ -> fun x -> x
- | GrafiteAst.Branch _ -> NTactics.branch_tac
+ | GrafiteAst.Branch _ -> NTactics.branch_tac ~force:false
| GrafiteAst.Shift _ -> NTactics.shift_tac
| GrafiteAst.Pos (_,l) -> NTactics.pos_tac l
| GrafiteAst.Wildcard _ -> NTactics.wildcard_tac
| GrafiteAst.NAuto (_loc, (l,a)) ->
NAuto.auto_tac
~params:(List.map (fun x -> "",0,x) l,a)
- | GrafiteAst.NBranch _ -> NTactics.branch_tac
+ | GrafiteAst.NBranch _ -> NTactics.branch_tac ~force:false
| GrafiteAst.NCases (_loc, what, where) ->
NTactics.cases_tac
~what:(text,prefix_len,what)