From e9100d33377eb2bb958ecba6049c6a46f4e9db7f Mon Sep 17 00:00:00 2001
From: barras
Date: Mon, 11 Feb 2002 16:31:44 +0000
Subject: substitution et pattern modulo let

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2466 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/auto.ml   | 2 +-
 tactics/tauto.ml4 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'tactics')

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
 
-- 
cgit v1.2.3