]> matita.cs.unibo.it Git - helm.git/blob - helm/software/components/ng_kernel/nCicUntrusted.mli
added config.ac to the tarball for debian packages
[helm.git] / helm / software / components / ng_kernel / nCicUntrusted.mli
1 (*
2     ||M||  This file is part of HELM, an Hypertextual, Electronic        
3     ||A||  Library of Mathematics, developed at the Computer Science     
4     ||T||  Department, University of Bologna, Italy.                     
5     ||I||                                                                
6     ||T||  HELM is free software; you can redistribute it and/or         
7     ||A||  modify it under the terms of the GNU General Public License   
8     \   /  version 2 or (at your option) any later version.      
9      \ /   This software is distributed as is, NO WARRANTY.     
10       V_______________________________________________________________ *)
11
12 (* $Id$ *)
13
14 val map_term_fold_a:
15  (NCic.hypothesis -> 'k -> 'k) -> 'k ->
16  ('k -> 'a -> NCic.term -> 'a * NCic.term) -> 'a -> NCic.term -> 'a * NCic.term
17
18 val map_obj_kind: 
19   ?skip_body:bool -> (NCic.term -> NCic.term) -> NCic.obj_kind -> NCic.obj_kind
20
21 val metas_of_term : NCic.substitution -> NCic.context -> NCic.term -> int list
22 val sort_metasenv: NCic.substitution -> NCic.metasenv -> NCic.metasenv
23
24 type meta_kind = [ `IsSort | `IsType | `IsTerm ]
25 val kind_of_meta: NCic.meta_attrs -> meta_kind
26 val set_kind: meta_kind -> NCic.meta_attrs -> NCic.meta_attrs 
27 val replace_in_metasenv: 
28   int -> (NCic.conjecture -> NCic.conjecture) -> NCic.metasenv -> NCic.metasenv
29 val replace_in_subst: 
30   int -> (NCic.subst_entry -> NCic.subst_entry) -> NCic.substitution ->
31    NCic.substitution
32 val max_kind: meta_kind -> meta_kind -> meta_kind
33
34 module NCicHash : Hashtbl.S with type key = NCic.term
35
36 val mk_appl : NCic.term -> NCic.term list -> NCic.term 
37
38 (* the context is needed only to honour Barendregt's naming convention *)
39 val apply_subst : NCic.substitution -> NCic.context -> NCic.term -> NCic.term
40 val apply_subst_context : fix_projections:bool -> 
41   NCic.substitution -> NCic.context -> NCic.context
42 val apply_subst_metasenv : NCic.substitution -> NCic.metasenv -> NCic.metasenv
43
44 val count_occurrences :
45     subst:NCic.substitution -> int -> NCic.term -> int
46 (* quick, but with false negatives (since no ~subst), check for closed terms *)
47 val looks_closed : NCic.term -> bool