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 | |
| 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')
| -rw-r--r-- | tactics/auto.ml | 2 | ||||
| -rw-r--r-- | tactics/tauto.ml4 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index 5c17291088..9911e449f9 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -190,7 +190,7 @@ let (inAutoHint,outAutoHint) = (**************************************************************************) let rec nb_hyp c = match kind_of_term c with - | Prod(_,_,c2) -> if dependent (mkRel 1) c2 then nb_hyp c2 else 1+(nb_hyp c2) + | Prod(_,_,c2) -> if noccurn 1 c2 then 1+(nb_hyp c2) else nb_hyp c2 | _ -> 0 (* adding and removing tactics in the search table *) 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 |