diff options
Diffstat (limited to 'kernel/conv_oracle.mli')
-rw-r--r-- | kernel/conv_oracle.mli | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/kernel/conv_oracle.mli b/kernel/conv_oracle.mli index 7bb62112c..24797238d 100644 --- a/kernel/conv_oracle.mli +++ b/kernel/conv_oracle.mli @@ -8,11 +8,15 @@ open Names +type oracle + +val empty : oracle + (** 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 : bool -> 'a tableKey -> 'a tableKey -> bool +val oracle_order : oracle -> bool -> 'a tableKey -> 'a tableKey -> bool (** Priority for the expansion of constant in the conversion test. * Higher levels means that the expansion is less prioritary. @@ -25,16 +29,11 @@ val transparent : level (** Check whether a level is transparent *) val is_transparent : level -> bool -val get_strategy : 'a tableKey -> level +val get_strategy : oracle -> 'a tableKey -> level (** Sets the level of a constant. * Level of RelKey constant cannot be set. *) -val set_strategy : 'a tableKey -> level -> unit +val set_strategy : oracle -> 'a tableKey -> level -> oracle -val get_transp_state : unit -> transparent_state +val get_transp_state : oracle -> transparent_state -(**************************** - Summary operations *) -type oracle -val freeze : [ `Yes | `No | `Shallow ] -> oracle -val unfreeze : oracle -> unit |