diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-04-05 17:15:26 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-04-05 17:15:26 +0000 |
commit | 29f960a540fbdb78b74308f2ae01c1f820067f62 (patch) | |
tree | 6ab2f58ec8a502c9de97b8968619fbf303677d18 /pretyping/typing.mli | |
parent | 9952f1a90566f4ad5ba029a082e758b9a0bc8ee4 (diff) |
Added a function in typing.ml to solve evars of a constr w/o going back down to rawconstr
Also cleaned a bit typing.ml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12902 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/typing.mli')
-rw-r--r-- | pretyping/typing.mli | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/pretyping/typing.mli b/pretyping/typing.mli index 9a40d01ec..e3b3e9482 100644 --- a/pretyping/typing.mli +++ b/pretyping/typing.mli @@ -21,14 +21,11 @@ open Evd val type_of : env -> evar_map -> constr -> types (* Typecheck a type and return its sort *) val sort_of : env -> evar_map -> types -> sorts -(* Typecheck a term has a given type (assuming the type is OK *) +(* Typecheck a term has a given type (assuming the type is OK) *) val check : env -> evar_map -> constr -> types -> unit -(* The same but with metas... *) -val mtype_of : env -> evar_map -> constr -> types -val msort_of : env -> evar_map -> types -> sorts -val mcheck : env -> evar_map -> constr -> types -> unit +(* Returns the instantiated type of a metavariable *) val meta_type : evar_map -> metavariable -> types -(* unused typing function... *) -val mtype_of_type : env -> evar_map -> types -> types +(* Solve existential variables using typing *) +val solve_evars : env -> evar_map -> constr -> constr |