X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_tactics%2FnTacStatus.ml;h=1aaeb50f6367ea58863034b8d12af18981203101;hb=8dbc4dcef7328f3ac84f847255e9be8d47c1de6d;hp=280634d3083f3cabe6ac4782616672f94c91e373;hpb=61d514611fc8434164c4275e7b59f81617104ef3;p=helm.git

diff --git a/helm/software/components/ng_tactics/nTacStatus.ml b/helm/software/components/ng_tactics/nTacStatus.ml
index 280634d30..1aaeb50f6 100644
--- a/helm/software/components/ng_tactics/nTacStatus.ml
+++ b/helm/software/components/ng_tactics/nTacStatus.ml
@@ -424,6 +424,11 @@ let apply_subst status ctx t =
   status, (ctx, NCicUntrusted.apply_subst subst ctx t)
 ;;
 
+let apply_subst_context status ~fix_projections ctx =
+ let _,_,_,subst,_ = status#obj in
+  NCicUntrusted.apply_subst_context ~fix_projections subst ctx
+;;
+
 let metas_of_term status (context,t) =
  let _,_,_,subst,_ = status#obj in
  NCicUntrusted.metas_of_term subst context t