diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-16 17:21:38 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-16 17:21:38 +0000 |
| commit | 8e861557feb58d6ee45b2c67c8191092fef9ec6a (patch) | |
| tree | 572af8261211e2f51712b353c7266b91cc42707e /tactics | |
| parent | d1f49a3d69a300620b016bd7f3857111f3b51567 (diff) | |
Subst sur une hyp qui n'existe pas ne fait pas une anomalie
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3515 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/equality.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 5bf745121..dbff4f520 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1174,7 +1174,7 @@ let eq_rhs eq = let subst_one x gl = let hyps = pf_hyps gl in - let (_,xval,_) = Sign.lookup_named x hyps in + let (_,xval,_) = pf_get_hyp gl x in (* If x has a body, simply replace x with body and clear x *) if xval <> None then tclTHEN (unfold_body x) (clear [x]) gl else (* x is a variable: *) |