diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/names.ml | 4 | ||||
| -rw-r--r-- | kernel/names.mli | 4 |
2 files changed, 8 insertions, 0 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index 60b5b6e421..38eb38beaf 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -317,6 +317,10 @@ let hcons_names () = type transparent_state = Idpred.t * Cpred.t +let empty_transparent_state = (Idpred.empty, Cpred.empty) +let full_transparent_state = (Idpred.full, Cpred.full) +let var_full_transparent_state = (Idpred.full, Cpred.empty) + type 'a tableKey = | ConstKey of constant | VarKey of identifier diff --git a/kernel/names.mli b/kernel/names.mli index 64edf1702e..340f6e812f 100644 --- a/kernel/names.mli +++ b/kernel/names.mli @@ -169,6 +169,10 @@ type 'a tableKey = type transparent_state = Idpred.t * Cpred.t +val empty_transparent_state : transparent_state +val full_transparent_state : transparent_state +val var_full_transparent_state : transparent_state + type inv_rel_key = int (* index in the [rel_context] part of environment starting by the end, {\em inverse} of de Bruijn indice *) |