X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_tactics%2FnTacStatus.ml;h=323b1e6fc0ee1b744f77c1405c73a26d5d7430bc;hb=1b70a1f66be53f76e475383e86d63c2b5c1fbcaa;hp=f0b00e561dbc7d26c21ebc4d469becb5faa0349e;hpb=585469505faa97c21687128490828a1aabee94ee;p=helm.git

diff --git a/helm/software/components/ng_tactics/nTacStatus.ml b/helm/software/components/ng_tactics/nTacStatus.ml
index f0b00e561..323b1e6fc 100644
--- a/helm/software/components/ng_tactics/nTacStatus.ml
+++ b/helm/software/components/ng_tactics/nTacStatus.ml
@@ -326,37 +326,8 @@ let analyse_indty status ty =
 
 let mk_cic_term c t = None,c,t ;;
 
-(* CSC: next two functions to be moved elsewhere *)
-let rec apply_subst subst ctx =
- function
-    NCic.Meta (i,lc) ->
-     (try
-       let _,_,t,_ = NCicUtils.lookup_subst i subst in
-       let t = NCicSubstitution.subst_meta lc t in
-        apply_subst subst ctx t
-      with
-       Not_found ->
-        match lc with
-           _,NCic.Irl _ -> NCic.Meta (i,lc)
-         | n,NCic.Ctx l ->
-            NCic.Meta
-             (i,(0,NCic.Ctx
-                 (List.map (fun t ->
-                   apply_subst subst ctx (NCicSubstitution.lift n t)) l))))
-  | t -> NCicUtils.map (fun item ctx -> item::ctx) ctx (apply_subst subst) t
-;;
-
-let apply_subst_obj subst =
- function
-    NCic.Constant (relev,name,bo,ty,attrs) ->
-     NCic.Constant
-      (relev,name,HExtlib.map_option (apply_subst subst []) bo,
-        apply_subst subst [] ty,attrs)
-  | _ -> assert false (* not implemented yet *)
-;;
-
 let apply_subst status ctx t =
  let status, (name,_,t) = relocate status ctx t in
  let _,_,_,subst,_ = status.pstatus in
-  status, (name, ctx, apply_subst subst ctx t)
+  status, (name, ctx, NCicUntrusted.apply_subst subst t)
 ;;