diff options
Diffstat (limited to 'contrib/funind/recdef.ml')
-rw-r--r-- | contrib/funind/recdef.ml | 26 |
1 files changed, 17 insertions, 9 deletions
diff --git a/contrib/funind/recdef.ml b/contrib/funind/recdef.ml index 6dc0d5bf..14bf7cf8 100644 --- a/contrib/funind/recdef.ml +++ b/contrib/funind/recdef.ml @@ -8,7 +8,7 @@ (*i camlp4deps: "parsing/grammar.cma" i*) -(* $Id: recdef.ml 11671 2008-12-12 12:43:03Z herbelin $ *) +(* $Id: recdef.ml 12221 2009-07-04 21:53:12Z jforest $ *) open Term open Termops @@ -960,11 +960,6 @@ let open_new_goal (build_proof:tactic -> tactic -> unit) using_lemmas ref_ goal_ let ids' = pf_ids_of_hyps g in lid := List.rev (list_subtract ids' ids); if !lid = [] then lid := [hid]; -(* list_iter_i *) -(* (fun i v -> *) -(* msgnl (str "hyp" ++ int i ++ str " " ++ *) -(* Nameops.pr_id v ++ fnl () ++ fnl())) *) -(* !lid; *) tclIDTAC g ) g @@ -976,9 +971,22 @@ let open_new_goal (build_proof:tactic -> tactic -> unit) using_lemmas ref_ goal_ Auto.h_auto None [] (Some []) g | _ -> incr h_num; - tclTHEN - (eapply_with_bindings (mkVar (List.nth !lid !h_num), NoBindings)) - e_assumption + (observe_tac "finishing using" + ( + tclCOMPLETE( + tclFIRST[ + tclTHEN + (eapply_with_bindings (mkVar (List.nth !lid !h_num), NoBindings)) + e_assumption; + Eauto.eauto_with_bases + false + (true,5) + [delayed_force refl_equal] + [Auto.Hint_db.empty empty_transparent_state false] + ] + ) + ) + ) g) ; Command.save_named opacity; |