...

[helm.git] / helm / software / components / ng_tactics / nDestructTac.ml

diff --git a/helm/software/components/ng_tactics/nDestructTac.ml b/helm/software/components/ng_tactics/nDestructTac.ml
index 103791c03884b79d2cbbff75558efc61ab69e9b5..3a8e257f9950f2960648db3f4b57a396bcabd815 100644 (file)
--- a/helm/software/components/ng_tactics/nDestructTac.ml
+++ b/helm/software/components/ng_tactics/nDestructTac.ml
@@ -366,7 +366,7 @@ let subst_tac ~context ~dir cur_eq =
       | _ -> assert false in
     let names_to_gen, _ = 
       cascade_select_in_ctx ~subst:(get_subst status) context (var+cur_eq) in
-    let names_to_gen = match names_to_gen with [] -> [] | _::tl -> tl in
+    let names_to_gen = List.filter (fun n -> n <> eq_name) names_to_gen in
     let gen_tac x = 
       NTactics.generalize_tac 
       ~where:("",0,(Some (mk_id x),[], Some CicNotationPt.UserInput)) in