diff options
| author | Pierre-Marie Pédrot | 2018-06-22 00:43:01 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-19 13:29:55 +0100 |
| commit | 96e78e0d4ab9e2c2ccf1bb0565384e4e0d322904 (patch) | |
| tree | 9f54ad363b2c8f855be97860ba1900572353e164 /kernel/transpState.ml | |
| parent | ecfbeaa62f9d8bd4dc4600cf39df2262af718313 (diff) | |
Move transparent_state to its own module.
Diffstat (limited to 'kernel/transpState.ml')
| -rw-r--r-- | kernel/transpState.ml | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/kernel/transpState.ml b/kernel/transpState.ml new file mode 100644 index 0000000000..9acb7244f7 --- /dev/null +++ b/kernel/transpState.ml @@ -0,0 +1,18 @@ +(************************************************************************) +(* * The Coq Proof Assistant / The Coq Development Team *) +(* v * INRIA, CNRS and contributors - Copyright 1999-2018 *) +(* <O___,, * (see CREDITS file for the list of authors) *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(* * (see LICENSE file for the text of the license) *) +(************************************************************************) + +open Names + +type t = Id.Pred.t * Cpred.t + +let empty = (Id.Pred.empty, Cpred.empty) +let full = (Id.Pred.full, Cpred.full) +let var_full = (Id.Pred.full, Cpred.empty) +let cst_full = (Id.Pred.empty, Cpred.full) |