diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-07-07 17:31:04 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-07-07 17:33:27 +0200 |
| commit | 3264fdaa71b2327a992286a08df0dfbcf78ea4fe (patch) | |
| tree | 2cfcdfd2eb96d82a66a03df38954fd7ff8767684 /checker/closure.mli | |
| parent | 7c7726a798caa6b506a727703de24d2bb5bb3956 (diff) | |
Checker: Fix bug #4282
Adapt to new [projection] abstract type comprising a constant and
a boolean.
Diffstat (limited to 'checker/closure.mli')
| -rw-r--r-- | checker/closure.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/closure.mli b/checker/closure.mli index e6b39250d..376e9fef7 100644 --- a/checker/closure.mli +++ b/checker/closure.mli @@ -95,7 +95,7 @@ type fterm = | FInd of pinductive | FConstruct of pconstructor | FApp of fconstr * fconstr array - | FProj of constant * fconstr + | FProj of projection * fconstr | FFix of fixpoint * fconstr subs | FCoFix of cofixpoint * fconstr subs | FCase of case_info * fconstr * fconstr * fconstr array @@ -117,7 +117,7 @@ type stack_member = | Zapp of fconstr array | Zcase of case_info * fconstr * fconstr array | ZcaseT of case_info * constr * constr array * fconstr subs - | Zproj of int * int * constant + | Zproj of int * int * projection | Zfix of fconstr * stack | Zshift of int | Zupdate of fconstr |