downcast removed

diff --git a/helm/software/components/ng_tactics/nTactics.ml b/helm/software/components/ng_tactics/nTactics.ml
index 1644186a1a558cca45538aa560b96387e9038e98..760d84e8d90bdf22157a405b30ee4d4afe0c5b51 100644 (file)
--- a/helm/software/components/ng_tactics/nTactics.ml
+++ b/helm/software/components/ng_tactics/nTactics.ml
@@ -234,9 +234,7 @@ let distribute_tac tac (status : #tac_status) =
             in
             aux s go gc loc_tl
       in
-      let s0 =
-       (new NTacStatus.status status#obj ())#set_estatus
-        (status :> NEstatus.status) in
+      let s0 = (new NTacStatus.status status#obj ())#set_estatus status in
       let s0, go0, gc0 = s0, [], [] in
       let sn, gon, gcn = aux s0 go0 gc0 g in
       debug_print (lazy ("opened: "