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/tactics.ml | |
| 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/tactics.ml')
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 2 insertions, 0 deletions
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." >] |