diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/termops.ml | 2 | ||||
| -rw-r--r-- | pretyping/termops.mli | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index 867bbf50f1..11afda96bc 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -331,6 +331,8 @@ let dependent m t = in try deprec m t; false with Occur -> true +let pop t = lift (-1) t + (***************************) (* substitution functions *) (***************************) diff --git a/pretyping/termops.mli b/pretyping/termops.mli index 1bb74a3038..c45b1b016c 100644 --- a/pretyping/termops.mli +++ b/pretyping/termops.mli @@ -76,6 +76,9 @@ val subst_meta : (int * constr) list -> constr -> constr val whd_locals : env -> constr -> constr val nf_locals : env -> constr -> constr +(* [pop c] lifts by -1 the positive indexes in [c] *) +val pop : constr -> constr + (* substitution of an arbitrary large term. Uses equality modulo reduction of let *) val dependent : constr -> constr -> bool |