]> matita.cs.unibo.it Git - helm.git/commitdiff
Bug fixed: the current equation is not always the last hyp.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 31 Mar 2010 14:41:09 +0000 (14:41 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 31 Mar 2010 14:41:09 +0000 (14:41 +0000)
From: sacerdot <sacerdot@c2b2084f-9a08-0410-b176-e24b037a169a>

helm/software/components/ng_tactics/nDestructTac.ml

index 103791c03884b79d2cbbff75558efc61ab69e9b5..3a8e257f9950f2960648db3f4b57a396bcabd815 100644 (file)
@@ -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