diff options
| author | ppedrot | 2013-09-03 18:18:43 +0000 |
|---|---|---|
| committer | ppedrot | 2013-09-03 18:18:43 +0000 |
| commit | b5e88d46530ba745f07a6d2664a0bba00f5f178a (patch) | |
| tree | 6617c752fc10108b8c528fb3731c5d3786d816d7 /printing | |
| parent | dd3d3a25ccc58bf06a13dc07db2fc5f88967789c (diff) | |
Partly replacing list-based access functions in Evd. This is still
unsatisfactory as some functions implicitly require some ordering
on the evars, but this is already better.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16759 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/printer.ml | 4 | ||||
| -rw-r--r-- | printing/printer.mli | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index fa9bfab992..70d1c9327d 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -381,6 +381,8 @@ 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 default_pr_subgoal n sigma = let rec prrec p = function | [] -> error "No such goal." @@ -451,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 List.is_empty exl then + if ExistentialMap.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 7c3a64b851..18ab975d5e 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 * evar_info) list -> std_ppcmds +val pr_evars_int : int -> evar_info ExistentialMap.t -> std_ppcmds val pr_prim_rule : prim_rule -> std_ppcmds |