diff options
| author | mohring | 2000-12-12 15:58:10 +0000 |
|---|---|---|
| committer | mohring | 2000-12-12 15:58:10 +0000 |
| commit | f7967b6c3e03dabe71cf38d51557b4d94253ae75 (patch) | |
| tree | 9ed211a781099225bd8fc63e93a39172f34b0a1f /tactics | |
| parent | c553366ec1cc485f6ec791ae1c04bbc53f5c65d0 (diff) | |
Hint Unfold Local + commentaires
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1088 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/auto.ml | 4 | ||||
| -rw-r--r-- | tactics/tacentries.ml | 4 | ||||
| -rw-r--r-- | tactics/tactics.ml | 2 |
3 files changed, 6 insertions, 4 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index 70ff2e6395..1a179ecb8b 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -242,7 +242,7 @@ let make_resolves env sigma name eap (c,cty) = (* used to add an hypothesis to the local hint database *) let make_resolve_hyp env sigma (hname,_,htyp) = try - [make_apply_entry env sigma (true, Options.is_verbose()) hname + [make_apply_entry env sigma (true, false) hname (mkVar hname, body_of_type htyp)] with | Failure _ -> [] @@ -746,7 +746,7 @@ let rec search_gen decomp n db_list local_db extra_sign goal = let hintl = try [make_apply_entry (pf_env g') (project g') - (true,Options.is_verbose()) + (true,false) hid (mkVar hid,body_of_type htyp)] with Failure _ -> [] in diff --git a/tactics/tacentries.ml b/tactics/tacentries.ml index 5b1232feb7..6c6449cda6 100644 --- a/tactics/tacentries.ml +++ b/tactics/tacentries.ml @@ -14,8 +14,8 @@ let v_transitivity = hide_tactic "Transitivity" dyn_transitivity let v_intro = hide_tactic "Intro" dyn_intro let v_intro_move = hide_tactic "IntroMove" dyn_intro_move let v_introsUntil = hide_tactic "IntrosUntil" dyn_intros_until -(*let v_tclIDTAC = hide_tactic "Idtac" dyn_tclIDTAC -let v_tclFAIL = hide_tactic "Fail" dyn_tclFAIL*) +(*i let v_tclIDTAC = hide_tactic "Idtac" dyn_tclIDTAC +let v_tclFAIL = hide_tactic "Fail" dyn_tclFAIL i*) let v_assumption = hide_tactic "Assumption" dyn_assumption let v_exact = hide_tactic "Exact" dyn_exact_check let v_reduce = hide_tactic "Reduce" dyn_reduce diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 158a625e61..9fc7859298 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -225,6 +225,8 @@ let unfold_constr c = match kind_of_term (strip_outer_cast c) with | IsConst(sp,_) -> unfold_in_concl [[],sp] + | IsVar(id) -> let sp = Lib.make_path id CCI in + unfold_in_concl [[],sp] | _ -> errorlabstrm "unfold_constr" [< 'sTR "Cannot unfold a non-constant." >] |