diff options
| -rw-r--r-- | kernel/univ.mli | 2 | ||||
| -rw-r--r-- | parsing/termast.ml | 1 |
2 files changed, 0 insertions, 3 deletions
diff --git a/kernel/univ.mli b/kernel/univ.mli index 990460f9bb..56442cbccd 100644 --- a/kernel/univ.mli +++ b/kernel/univ.mli @@ -52,8 +52,6 @@ val merge_constraints : constraints -> universes -> universes val pr_uni : universe -> Pp.std_ppcmds val pr_universes : universes -> Pp.std_ppcmds -val string_of_univ : universe -> string - (*s Dumping to a file *) val dump_universes : out_channel -> universes -> unit diff --git a/parsing/termast.ml b/parsing/termast.ml index ace1b47d20..b4871598d0 100644 --- a/parsing/termast.ml +++ b/parsing/termast.ml @@ -342,7 +342,6 @@ let rec ast_of_raw = function (match s with | RProp Null -> ope("PROP",[]) | RProp Pos -> ope("SET",[]) - | RType (Some u) when !print_universes -> ope("TYPE",[ide(Univ.string_of_univ u)]) | RType _ -> ope("TYPE",[])) | RHole _ -> ope("ISEVAR",[]) | RCast (_,c,t) -> ope("CAST",[ast_of_raw c;ast_of_raw t]) |