From 29f960a540fbdb78b74308f2ae01c1f820067f62 Mon Sep 17 00:00:00 2001 From: herbelin Date: Mon, 5 Apr 2010 17:15:26 +0000 Subject: 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 --- pretyping/typing.mli | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'pretyping/typing.mli') 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 -- cgit v1.2.3