helm/software/components/ng_kernel/nCicTypeChecker.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 (* These are the only exceptions that will be raised *)
  15 exception TypeCheckerFailure of string Lazy.t
  16 exception AssertFailure of string Lazy.t
  17
  18 val set_logger:
  19   ([ `Start_type_checking of NUri.uri
  20    | `Type_checking_completed of NUri.uri
  21    | `Type_checking_interrupted of NUri.uri
  22    | `Type_checking_failed of NUri.uri
  23    | `Trust_obj of NUri.uri
  24    ] -> unit) -> unit
  25
  26 val set_trust : (NCic.obj -> bool) -> unit
  27
  28 (* typechecks the object, raising an exception if illtyped *)
  29 val typecheck_obj : NCic.obj -> unit
  30
  31 val typeof:
  32   subst:NCic.substitution -> metasenv:NCic.metasenv ->
  33   NCic.context -> NCic.term ->
  34     NCic.term
  35
  36 val height_of_obj_kind: NUri.uri -> NCic.obj_kind -> int
  37
  38 val get_relevance :
  39   metasenv:NCic.metasenv -> subst:NCic.substitution ->
  40   NCic.context -> NCic.term -> NCic.term list -> bool list
  41
  42 (* type_of_branch subst context leftno outtype
  43  *   (constr @ lefts) (ty_constr @ lefts)  *)
  44 val type_of_branch :
  45   subst:NCic.substitution ->
  46     NCic.context -> int -> NCic.term -> NCic.term -> NCic.term ->
  47      NCic.term
  48
  49 (* ind = indtype @ lefts
  50  * arity1 = constructor type @ lefts
  51  * arity2 = outtype *)
  52 val check_allowed_sort_elimination :
  53   subst:NCic.substitution ->
  54   metasenv:NCic.metasenv ->
  55   NReference.reference -> NCic.context ->
  56     NCic.term -> NCic.term -> NCic.term -> unit
  57
  58 (* Functions to be used by the refiner *)
  59 val debruijn: NUri.uri -> int -> NCic.context -> NCic.term -> NCic.term
  60 val are_all_occurrences_positive:
  61  subst:NCic.substitution ->
  62   NCic.context -> NUri.uri -> int -> int -> int -> int -> NCic.term -> bool