diff options
author | 2016-11-24 17:15:15 +0100 | |
---|---|---|
committer | 2017-02-14 17:30:38 +0100 | |
commit | 531590c223af42c07a93142ab0cea470a98964e6 (patch) | |
tree | bfe531d8d32e491a66eceba60995702e20e73757 /pretyping/retyping.mli | |
parent | b36adb2124d3ba8a5547605e7f89bb0835d0ab10 (diff) |
Removing compatibility layers in Retyping
Diffstat (limited to 'pretyping/retyping.mli')
-rw-r--r-- | pretyping/retyping.mli | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/pretyping/retyping.mli b/pretyping/retyping.mli index a20b11b76..ce9e1635f 100644 --- a/pretyping/retyping.mli +++ b/pretyping/retyping.mli @@ -9,6 +9,7 @@ open Term open Evd open Environ +open EConstr (** This family of functions assumes its constr argument is known to be well-typable. It does not type-check, just recompute the type @@ -26,25 +27,25 @@ type retype_error exception RetypeError of retype_error val get_type_of : - ?polyprop:bool -> ?lax:bool -> env -> evar_map -> EConstr.constr -> types + ?polyprop:bool -> ?lax:bool -> env -> evar_map -> constr -> types val get_sort_of : - ?polyprop:bool -> env -> evar_map -> EConstr.types -> sorts + ?polyprop:bool -> env -> evar_map -> types -> sorts val get_sort_family_of : - ?polyprop:bool -> env -> evar_map -> EConstr.types -> sorts_family + ?polyprop:bool -> env -> evar_map -> types -> sorts_family (** Makes an unsafe judgment from a constr *) -val get_judgment_of : env -> evar_map -> EConstr.constr -> EConstr.unsafe_judgment +val get_judgment_of : env -> evar_map -> constr -> unsafe_judgment -val type_of_global_reference_knowing_parameters : env -> evar_map -> EConstr.constr -> - EConstr.constr array -> types +val type_of_global_reference_knowing_parameters : env -> evar_map -> constr -> + constr array -> types val type_of_global_reference_knowing_conclusion : - env -> evar_map -> EConstr.constr -> EConstr.types -> evar_map * EConstr.types + env -> evar_map -> constr -> types -> evar_map * types val sorts_of_context : env -> evar_map -> Context.Rel.t -> sorts list -val expand_projection : env -> evar_map -> Names.projection -> EConstr.constr -> EConstr.constr list -> EConstr.constr +val expand_projection : env -> evar_map -> Names.projection -> constr -> constr list -> constr val print_retype_error : retype_error -> Pp.std_ppcmds |