diff options
Diffstat (limited to 'kernel/conv_oracle.mli')
| -rw-r--r-- | kernel/conv_oracle.mli | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/kernel/conv_oracle.mli b/kernel/conv_oracle.mli new file mode 100644 index 00000000..77de9b8a --- /dev/null +++ b/kernel/conv_oracle.mli @@ -0,0 +1,35 @@ +(************************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(************************************************************************) + +(* $Id: conv_oracle.mli,v 1.3.8.2 2004/07/16 19:30:24 herbelin Exp $ *) + +open Names +open Closure + +(* Order on section paths for unfolding. + If [oracle_order kn1 kn2] is true, then unfold kn1 first. + Note: the oracle does not introduce incompleteness, it only + tries to postpone unfolding of "opaque" constants. *) +val oracle_order : table_key -> table_key -> bool + +(* Changing the oracle *) +val set_opaque_const : constant -> unit +val set_transparent_const : constant -> unit + +val set_opaque_var : identifier -> unit +val set_transparent_var : identifier -> unit + +val is_opaque_cst : constant -> bool +val is_opaque_var : identifier -> bool + +(*****************************) + +(* transparent state summary operations *) +val init : unit -> unit +val freeze : unit -> transparent_state +val unfreeze : transparent_state -> unit |