Removed a couple of assertions.

[helm.git] / components / tactics / equalityTactics.ml

diff --git a/components/tactics/equalityTactics.ml b/components/tactics/equalityTactics.ml
index 5a07e4e63b94fa23dcf27a8bb43a5b794b01c156..cd066250fc48d278bfa40386c70b286059cfa783 100644 (file)
--- a/components/tactics/equalityTactics.ml
+++ b/components/tactics/equalityTactics.ml
@@ -38,6 +38,7 @@ module S    = CicSubstitution
 module TC   = CicTypeChecker
 module LO   = LibraryObjects
 module DTI  = DoubleTypeInference
+module HEL  = HExtlib
 
 let rec rewrite_tac ~direction ~(pattern: ProofEngineTypes.lazy_pattern) equality =
  let _rewrite_tac ~direction ~pattern:(wanted,hyps_pat,concl_pat) equality status
@@ -423,7 +424,7 @@ let subst_tac ~hyp =
             Some (rewrite (None, [(s, hole)], None))
          | _                                 -> None
       in
-      let rew_hips = PEH.list_rev_map_filter (map hyp) context in
+      let rew_hips = HEL.list_rev_map_filter (map hyp) context in
       let rew_concl = rewrite (None, [], Some hole) in
       let clear = PESR.clear ~hyps:[hyp; var] in
       let tactics = List.rev_append (rew_concl :: rew_hips) [clear] in
@@ -441,7 +442,7 @@ let subst_tac =
       let (proof, goal) = status in
       let (_, metasenv, _, _) = proof in
       let _, context, _ = CicUtil.lookup_meta goal metasenv in
-      let tactics = PEH.list_rev_map_filter map context in
+      let tactics = HEL.list_rev_map_filter map context in
       PET.apply_tactic (T.seq ~tactics) status
    in
    PET.mk_tactic subst_tac