diff options
| author | Pierre Boutillier | 2014-04-23 14:03:27 +0200 |
|---|---|---|
| committer | Pierre Boutillier | 2014-05-26 15:24:31 +0200 |
| commit | 8ffd4e54ba8a05cb57f09d4333a7990f96a4cfd0 (patch) | |
| tree | e17eafed7ba4ae61fccd69f6dcf8933aa1d05315 /pretyping/reductionops.mli | |
| parent | 8d0a40424f124da79152a24f631008d6f88c303d (diff) | |
Reduction.Stack.Fix/Case stores Cst_stack.t
Diffstat (limited to 'pretyping/reductionops.mli')
| -rw-r--r-- | pretyping/reductionops.mli | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/reductionops.mli b/pretyping/reductionops.mli index 091eb7c81b..ef013d5b13 100644 --- a/pretyping/reductionops.mli +++ b/pretyping/reductionops.mli @@ -51,9 +51,9 @@ module Stack : sig type 'a member = | App of 'a app_node - | Case of case_info * 'a * 'a array * ('a * 'a list) option + | Case of case_info * 'a * 'a array * 'a Cst_stack.t | Proj of int * int * projection - | Fix of fixpoint * 'a t * ('a * 'a list) option + | Fix of fixpoint * 'a t * 'a Cst_stack.t | Shift of int | Update of 'a and 'a t = 'a member list @@ -230,7 +230,7 @@ val is_arity : env -> evar_map -> constr -> bool val is_sort : env -> evar_map -> types -> bool val contract_fix : ?env:Environ.env -> fixpoint -> - (constr * constr list) option -> constr + constr Cst_stack.t -> constr val fix_recarg : fixpoint -> constr Stack.t -> (int * constr) option (** {6 Querying the kernel conversion oracle: opaque/transparent constants } *) |