diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-06-13 04:24:00 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-06-13 04:24:00 +0000 |
commit | 3119ba6369bead12cae1fbcc26136561b744ea2e (patch) | |
tree | 0cc01044ced9db78893ae607dffd280d2a91cffa /tactics/tactics.ml | |
parent | 97d8ace6d013cd18eacd11357a13cd51dde3ab4e (diff) |
Prise en compte env local (et defs locales) dans Change
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1785 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tactics.ml')
-rw-r--r-- | tactics/tactics.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 886620bc9..2d68a721f 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -176,13 +176,13 @@ let redin_combinator redfun = function (* Now we introduce different instances of the previous tacticals *) let change_hyp_and_check t env sigma c = - if is_conv (Global.env()) sigma t c then + if is_conv env sigma t c then t else errorlabstrm "convert-check-hyp" [< 'sTR "Not convertible" >] let change_concl_and_check t env sigma c = - if is_conv_leq (Global.env()) sigma t c then + if is_conv_leq env sigma t c then t else errorlabstrm "convert-check-concl" [< 'sTR "Not convertible" >] |