diff options
| author | Maxime Dénès | 2017-12-18 09:36:50 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-12-18 09:36:50 +0100 |
| commit | 0168ee0b6463a9ef44d768b0020b34785986c1cb (patch) | |
| tree | c3bb1d2eef4fa5edfd2d431669015db896e08633 /engine/eConstr.mli | |
| parent | 50bd89748af03bb28ad7024f2ceef500489a91b0 (diff) | |
| parent | 53f5cc210da4debd5264d6d8651a76281b0b4256 (diff) | |
Merge PR #6413: [econstr] Switch constrintern API to non-imperative style.
Diffstat (limited to 'engine/eConstr.mli')
| -rw-r--r-- | engine/eConstr.mli | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/engine/eConstr.mli b/engine/eConstr.mli index 6f2a30f4a3..30de748a19 100644 --- a/engine/eConstr.mli +++ b/engine/eConstr.mli @@ -146,7 +146,11 @@ val isFix : Evd.evar_map -> t -> bool val isCoFix : Evd.evar_map -> t -> bool val isCase : Evd.evar_map -> t -> bool val isProj : Evd.evar_map -> t -> bool + +type arity = rel_context * ESorts.t +val destArity : Evd.evar_map -> types -> arity val isArity : Evd.evar_map -> t -> bool + val isVarId : Evd.evar_map -> Id.t -> t -> bool val isRelN : Evd.evar_map -> int -> t -> bool @@ -262,6 +266,9 @@ val lookup_rel : int -> env -> rel_declaration val lookup_named : variable -> env -> named_declaration val lookup_named_val : variable -> named_context_val -> named_declaration +val map_rel_context_in_env : + (env -> constr -> constr) -> env -> rel_context -> rel_context + (* XXX Missing Sigma proxy *) val fresh_global : ?loc:Loc.t -> ?rigid:Evd.rigid -> ?names:Univ.Instance.t -> Environ.env -> |