diff options
| author | Pierre-Marie Pédrot | 2020-05-11 12:18:40 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-05-11 12:18:40 +0200 |
| commit | 0abac9befe6f165dd7829430a229192e6cb18453 (patch) | |
| tree | 744c8d39701f3226c4fc3bdbaafc10bada0b2de7 /kernel/conv_oracle.mli | |
| parent | aab47903fb2d3e0085b03d5ade94f4ae644cd76c (diff) | |
| parent | 6e4ebb2dbaa2cb9eb70ce205386bee08c80aaa00 (diff) | |
Merge PR #12129: Add a `with_strategy` tactic
Ack-by: Zimmi48
Ack-by: ejgallego
Ack-by: herbelin
Ack-by: ppedrot
Diffstat (limited to 'kernel/conv_oracle.mli')
| -rw-r--r-- | kernel/conv_oracle.mli | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/conv_oracle.mli b/kernel/conv_oracle.mli index b25488d94a..930edf6c49 100644 --- a/kernel/conv_oracle.mli +++ b/kernel/conv_oracle.mli @@ -27,6 +27,7 @@ val oracle_order : ('a -> Constant.t) -> oracle -> bool -> * The default value (transparent constants) is [Level 0]. *) type level = Expand | Level of int | Opaque +val pr_level : level -> Pp.t val transparent : level (** Check whether a level is transparent *) @@ -42,4 +43,3 @@ val set_strategy : oracle -> Constant.t tableKey -> level -> oracle val fold_strategy : (Constant.t tableKey -> level -> 'a -> 'a) -> oracle -> 'a -> 'a val get_transp_state : oracle -> TransparentState.t - |