diff options
| author | Maxime Dénès | 2018-04-12 17:59:35 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-04-12 17:59:35 +0200 |
| commit | 32b142d297c3fb259d0977efdb267fdc7c99b1d7 (patch) | |
| tree | 46dc062383d3442806e345a23cb61fa837dd8ba4 /kernel/cClosure.ml | |
| parent | 485eb7958811ff627d9c50ec7a6ed36ed9416b97 (diff) | |
| parent | 0ade32f84b28d2190360ec79520788142755b5b7 (diff) | |
Merge PR #6972: [api] Deprecate a couple of aliases that we missed.
Diffstat (limited to 'kernel/cClosure.ml')
| -rw-r--r-- | kernel/cClosure.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/cClosure.ml b/kernel/cClosure.ml index 5f683790c1..08114abc4b 100644 --- a/kernel/cClosure.ml +++ b/kernel/cClosure.ml @@ -96,7 +96,7 @@ module type RedFlagsSig = sig val red_transparent : reds -> transparent_state val mkflags : red_kind list -> reds val red_set : reds -> red_kind -> bool - val red_projection : reds -> projection -> bool + val red_projection : reds -> Projection.t -> bool end module RedFlags = (struct @@ -364,7 +364,7 @@ and fterm = | FInd of pinductive | FConstruct of pconstructor | FApp of fconstr * fconstr array - | FProj of projection * fconstr + | FProj of Projection.t * fconstr | FFix of fixpoint * fconstr subs | FCoFix of cofixpoint * fconstr subs | FCaseT of case_info * constr * fconstr * constr array * fconstr subs (* predicate and branches are closures *) |