diff options
| author | barras | 2002-02-11 16:31:44 +0000 |
|---|---|---|
| committer | barras | 2002-02-11 16:31:44 +0000 |
| commit | e9100d33377eb2bb958ecba6049c6a46f4e9db7f (patch) | |
| tree | ffa3de5209500bdb22a81daf55881d99fc098309 /tactics/tauto.ml4 | |
| parent | 3be41a001ce4e61bbc16258ea66457267e048035 (diff) | |
substitution et pattern modulo let
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2466 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tauto.ml4')
| -rw-r--r-- | tactics/tauto.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4 index ce9f3a8c6a..496369901f 100644 --- a/tactics/tauto.ml4 +++ b/tactics/tauto.ml4 @@ -133,7 +133,7 @@ open Environ let rec reduce env sigma c = let c = Tacred.hnf_constr env sigma c in match Term.kind_of_term c with - | Prod (na,t,u) when not (dependent (mkRel 1) u) -> + | Prod (na,t,u) when noccurn 1 u -> mkProd (na,reduce env sigma t, reduce (push_rel (na,None,t) env) sigma u) | _ -> c |