diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-01-17 20:17:17 +0530 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-01-18 00:16:44 +0530 |
| commit | 237b569dd6539fc1730dbd1dda29f83e24ef8d0c (patch) | |
| tree | 71c1eeaec02da28ae34f8428bab7ddcf7ecc251c /interp | |
| parent | 1c0110b40a9009aa6b56fafbf34a04e7ae59de0f (diff) | |
Univs: proper printing of global and local universe names (only
printing functions touched in the kernel).
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.ml | 2 | ||||
| -rw-r--r-- | interp/constrextern.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 4b20b024d..58e1eb1d1 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -956,7 +956,7 @@ let extern_type goal_concl_style env sigma t = let r = Detyping.detype goal_concl_style avoid env sigma t in extern_glob_type (vars_of_env env) r -let extern_sort s = extern_glob_sort (detype_sort s) +let extern_sort sigma s = extern_glob_sort (detype_sort sigma s) let extern_closed_glob ?lax goal_concl_style env sigma t = let avoid = if goal_concl_style then ids_of_context env else [] in diff --git a/interp/constrextern.mli b/interp/constrextern.mli index d11248a59..b797e455c 100644 --- a/interp/constrextern.mli +++ b/interp/constrextern.mli @@ -40,7 +40,7 @@ val extern_constr : ?lax:bool -> bool -> env -> Evd.evar_map -> constr -> constr val extern_constr_in_scope : bool -> scope_name -> env -> Evd.evar_map -> constr -> constr_expr val extern_reference : Loc.t -> Id.Set.t -> global_reference -> reference val extern_type : bool -> env -> Evd.evar_map -> types -> constr_expr -val extern_sort : sorts -> glob_sort +val extern_sort : Evd.evar_map -> sorts -> glob_sort val extern_rel_context : constr option -> env -> Evd.evar_map -> rel_context -> local_binder list |