diff options
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/printer.ml | 8 | ||||
| -rw-r--r-- | printing/printer.mli | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 70d1c9327d..19dd81dcdd 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -381,7 +381,7 @@ let rec pr_evars_int i = function str (string_of_existential ev) ++ str " : " ++ pegl)) ++ (match rest with [] -> mt () | _ -> fnl () ++ pr_evars_int (i+1) rest) -let pr_evars_int i evs = pr_evars_int i (Evd.ExistentialMap.bindings evs) +let pr_evars_int i evs = pr_evars_int i (Evar.Map.bindings evs) let default_pr_subgoal n sigma = let rec prrec p = function @@ -400,13 +400,13 @@ let emacs_print_dependent_evars sigma seeds = let evars () = let evars = Evarutil.gather_dependent_evars sigma seeds in let evars = - Int.Map.fold begin fun e i s -> + Evar.Map.fold begin fun e i s -> let e' = str (string_of_existential e) in match i with | None -> s ++ str" " ++ e' ++ str " open," | Some i -> s ++ str " " ++ e' ++ str " using " ++ - Int.Set.fold begin fun d s -> + Evar.Set.fold begin fun d s -> str (string_of_existential d) ++ str " " ++ s end i (str ",") end evars (str "") @@ -453,7 +453,7 @@ let default_pr_subgoals ?(pr_first=true) close_cmd sigma seeds stack goals = str ".") | None -> let exl = Evarutil.non_instantiated sigma in - if ExistentialMap.is_empty exl then + if Evar.Map.is_empty exl then (str"No more subgoals." ++ emacs_print_dependent_evars sigma seeds) else diff --git a/printing/printer.mli b/printing/printer.mli index 18ab975d5e..8a698203ae 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -129,7 +129,7 @@ val pr_concl : int -> evar_map -> goal -> std_ppcmds val pr_open_subgoals : unit -> std_ppcmds val pr_nth_open_subgoal : int -> std_ppcmds val pr_evar : (evar * evar_info) -> std_ppcmds -val pr_evars_int : int -> evar_info ExistentialMap.t -> std_ppcmds +val pr_evars_int : int -> evar_info Evar.Map.t -> std_ppcmds val pr_prim_rule : prim_rule -> std_ppcmds |