helm/software/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   ?delta:int -> subst:NCic.substitution ->
  20   NCic.context -> NCic.term ->
  21     NCic.term
  22
  23 val set_get_relevance :
  24   (metasenv:NCic.metasenv -> subst:NCic.substitution ->
  25    NCic.context -> NCic.term -> NCic.term list -> bool list) -> unit
  26
  27 val are_convertible :
  28   metasenv:NCic.metasenv -> subst:NCic.substitution ->
  29   NCic.context -> NCic.term -> NCic.term -> bool
  30
  31
  32 (* performs head beta/(delta)/cast reduction; the default is to not perform
  33    delta reduction; if provided, ~upto is the maximum number of beta redexes
  34    reduced *)
  35 val head_beta_reduce:
  36   ?delta:int -> ?upto:int -> ?subst:NCic.substitution -> 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      delta:int -> ?subst:NCic.substitution -> NCic.context -> machine ->
  45       machine * bool
  46 val from_stack : delta:int -> stack_item -> machine
  47 val from_env : delta:int -> environment_item -> machine
  48 val unwind : machine -> NCic.term
  49
  50 val split_prods:
  51  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.metasenv -> NCic.substitution ->
  57   NCic.context -> NCic.term -> NCic.term -> bool