This commit patches the environment and the library so that their status is

[helm.git] / matitaB / components / ng_kernel / nCicUntrusted.mli

diff --git a/matitaB/components/ng_kernel/nCicUntrusted.mli b/matitaB/components/ng_kernel/nCicUntrusted.mli
index 7967936e34684dbc56b3ea8bc0c748dd3c49d023..b085be307ddfca44cf7e18aa3565aad5a6b84845 100644 (file)
--- a/matitaB/components/ng_kernel/nCicUntrusted.mli
+++ b/matitaB/components/ng_kernel/nCicUntrusted.mli
@@ -12,7 +12,7 @@
 (* $Id$ *)
 
 val map_term_fold_a:
- #NCic.status ->
+ #NCicEnvironment.status ->
  (NCic.hypothesis -> 'k -> 'k) -> 'k ->
  ('k -> 'a -> NCic.term -> 'a * NCic.term) -> 'a -> NCic.term -> 'a * NCic.term
 
@@ -20,9 +20,9 @@ val map_obj_kind:
   ?skip_body:bool -> (NCic.term -> NCic.term) -> NCic.obj_kind -> NCic.obj_kind
 
 val metas_of_term :
- #NCic.status -> NCic.substitution -> NCic.context -> NCic.term -> int list
+ #NCicEnvironment.status -> NCic.substitution -> NCic.context -> NCic.term -> int list
 val sort_metasenv:
- #NCic.status -> NCic.substitution -> NCic.metasenv -> NCic.metasenv
+ #NCicEnvironment.status -> NCic.substitution -> NCic.metasenv -> NCic.metasenv
 
 type meta_kind = [ `IsSort | `IsType | `IsTerm ]
 val kind_of_meta: NCic.meta_attrs -> meta_kind
@@ -40,14 +40,14 @@ val mk_appl : NCic.term -> NCic.term list -> NCic.term
 
 (* the context is needed only to honour Barendregt's naming convention *)
 val apply_subst :
- #NCic.status -> NCic.substitution -> NCic.context -> NCic.term -> NCic.term
+ #NCicEnvironment.status -> NCic.substitution -> NCic.context -> NCic.term -> NCic.term
 val apply_subst_context :
- #NCic.status -> fix_projections:bool -> 
+ #NCicEnvironment.status -> fix_projections:bool -> 
   NCic.substitution -> NCic.context -> NCic.context
 val apply_subst_metasenv :
- #NCic.status -> NCic.substitution -> NCic.metasenv -> NCic.metasenv
+ #NCicEnvironment.status -> NCic.substitution -> NCic.metasenv -> NCic.metasenv
 
 val count_occurrences :
- #NCic.status -> subst:NCic.substitution -> int -> NCic.term -> int
+ #NCicEnvironment.status -> subst:NCic.substitution -> int -> NCic.term -> int
 (* quick, but with false negatives (since no ~subst), check for closed terms *)
 val looks_closed : NCic.term -> bool