diff options
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 ce9f3a8c6..496369901 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 |