matitaB/components/ng_kernel/nCicReduction.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 exception AssertFailure of string Lazy.t;;
  15
  16 val debug: bool ref
  17
  18 val whd :
  19   #NCic.status -> ?delta:int -> subst:NCic.substitution ->
  20   NCic.context -> NCic.term -> NCic.term
  21
  22 val set_get_relevance :
  23   (NCic.status -> metasenv:NCic.metasenv -> subst:NCic.substitution ->
  24    NCic.context -> NCic.term -> NCic.term list -> bool list) -> unit
  25
  26 val are_convertible :
  27   #NCic.status -> metasenv:NCic.metasenv -> subst:NCic.substitution ->
  28   NCic.context -> NCic.term -> NCic.term -> bool
  29
  30
  31 (* performs head beta/(delta)/cast reduction; the default is to not perform
  32    delta reduction; if provided, ~upto is the maximum number of beta redexes
  33    reduced *)
  34 val head_beta_reduce:
  35  #NCic.status -> ?delta:int -> ?upto:int -> ?subst:NCic.substitution ->
  36   NCic.term -> NCic.term
  37
  38 type stack_item
  39 type environment_item
  40
  41 type machine = int * environment_item list * NCic.term * stack_item list
  42
  43 val reduce_machine :
  44  #NCic.status -> delta:int -> ?subst:NCic.substitution -> NCic.context ->
  45   machine -> machine * bool
  46 val from_stack : delta:int -> stack_item -> machine
  47 val from_env : delta:int -> environment_item -> machine
  48 val unwind : #NCic.status -> machine -> NCic.term
  49
  50 val split_prods:
  51  #NCic.status -> subst:NCic.substitution -> NCic.context -> int -> NCic.term ->
  52   NCic.context * NCic.term
  53
  54 (* to be used outside the kernel *)
  55 val alpha_eq:
  56  #NCic.status -> NCic.metasenv -> NCic.substitution -> NCic.context ->
  57   NCic.term -> NCic.term -> bool