diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-04-20 18:14:44 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-04-20 18:14:44 +0000 |
| commit | 25c9cfe773f69669c867802f6c433b6250ceaf9b (patch) | |
| tree | 2f5ae872261f55380a235f75c1084ae72da4ea76 /kernel/reduction.mli | |
| parent | a00f6f7fd9744c252113abaaa25c6384628efaa3 (diff) | |
Add the ability to give a transparent_state for conversion, to
parameterize what should be unfolded or not, by default unfolding
everything.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10819 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/reduction.mli')
| -rw-r--r-- | kernel/reduction.mli | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/kernel/reduction.mli b/kernel/reduction.mli index 60cd999d8..663c18e2c 100644 --- a/kernel/reduction.mli +++ b/kernel/reduction.mli @@ -11,6 +11,7 @@ (*i*) open Term open Environ +open Closure (*i*) (************************************************************************) @@ -28,6 +29,7 @@ val nf_betaiota : constr -> constr exception NotConvertible exception NotConvertibleVect of int type 'a conversion_function = env -> 'a -> 'a -> Univ.constraints +type 'a trans_conversion_function = Names.transparent_state -> env -> 'a -> 'a -> Univ.constraints type conv_pb = CONV | CUMUL @@ -37,6 +39,11 @@ val sort_cmp : val conv_sort : sorts conversion_function val conv_sort_leq : sorts conversion_function +val trans_conv_cmp : conv_pb -> constr trans_conversion_function + +val trans_conv : constr trans_conversion_function +val trans_conv_leq : types trans_conversion_function + val conv_cmp : conv_pb -> constr conversion_function val conv : constr conversion_function |