diff options
| author | letouzey | 2012-05-29 11:09:19 +0000 |
|---|---|---|
| committer | letouzey | 2012-05-29 11:09:19 +0000 |
| commit | 32d372f83a7797244b4e4d4f0d5791145bc615d1 (patch) | |
| tree | 7d5ebd8cd6021178d55c03a0ac578cbbc3e35f6b /pretyping | |
| parent | 6d961ac24305f26e896b602bdabe0e9c3c7cbf05 (diff) | |
No more Univ in grammar.cma
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15385 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/detyping.ml | 5 | ||||
| -rw-r--r-- | pretyping/detyping.mli | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index ab43880478..fd20f199c8 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -32,6 +32,9 @@ open Decl_kinds let dl = dummy_loc +(** Should we keep details of universes during detyping ? *) +let print_universes = ref false + (****************************************************************************) (* Tools for printing of Cases *) @@ -367,7 +370,7 @@ let detype_case computable detype detype_eqns testdep avoid data p c bl = let detype_sort = function | Prop Null -> GProp | Prop Pos -> GSet - | Type u -> GType (Some u) + | Type u -> GType (if !print_universes then Some (Univ.pr_uni u) else None) type binder_kind = BProd | BLambda | BLetIn diff --git a/pretyping/detyping.mli b/pretyping/detyping.mli index 439609b020..10f23b1b2c 100644 --- a/pretyping/detyping.mli +++ b/pretyping/detyping.mli @@ -17,6 +17,9 @@ open Termops open Mod_subst open Misctypes +(** Should we keep details of universes during detyping ? *) +val print_universes : bool ref + val subst_cases_pattern : substitution -> cases_pattern -> cases_pattern val subst_glob_constr : substitution -> glob_constr -> glob_constr |