diff options
| author | aspiwack | 2012-07-10 12:40:24 +0000 |
|---|---|---|
| committer | aspiwack | 2012-07-10 12:40:24 +0000 |
| commit | 608bb24403e07e42855311d483e918c7acf3cafb (patch) | |
| tree | 53c57ed0d82a5332ece2b7551116c46497a91975 | |
| parent | 7cf5f94e772df8632b88088f1cf0ae2287e8f64f (diff) | |
Small change in the printing of proofs for use by coqide.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15577 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | printing/printer.ml | 1 | ||||
| -rw-r--r-- | proofs/proof.mli | 2 | ||||
| -rw-r--r-- | proofs/proofview.ml | 2 | ||||
| -rw-r--r-- | proofs/proofview.mli | 2 |
4 files changed, 4 insertions, 3 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 23e6e277fb..a59800a9c1 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -454,6 +454,7 @@ let pr_open_subgoals () = [evar_info]-s instead. *) let p = Proof_global.give_me_the_proof () in let (goals , stack , sigma ) = Proof.proof p in + let stack = List.map (fun (l,r) -> List.length l + List.length r) stack in let seeds = Proof.V82.top_evars p in begin match goals with | [] -> let { Evd.it = bgoals ; sigma = bsigma } = Proof.V82.background_subgoals p in diff --git a/proofs/proof.mli b/proofs/proof.mli index d0b7e9839d..fcfe1c5c01 100644 --- a/proofs/proof.mli +++ b/proofs/proof.mli @@ -42,7 +42,7 @@ type proof (* In this version: returns the focused goals, a representation of the focus stack (the number of goals at each level) and the underlying evar_map *) -val proof : proof -> Goal.goal list * int list * Evd.evar_map +val proof : proof -> Goal.goal list * (Goal.goal list * Goal.goal list) list * Evd.evar_map (*** General proof functions ***) diff --git a/proofs/proofview.ml b/proofs/proofview.ml index d9c62600d4..00e311cc90 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -97,7 +97,7 @@ let list_goto = order) *) type focus_context = Goal.goal list * Goal.goal list -let focus_context (l,r) = List.length l + List.length r +let focus_context f = f (* This (internal) function extracts a sublist between two indices, and returns this sublist together with its context: diff --git a/proofs/proofview.mli b/proofs/proofview.mli index d29ab4f090..d9cc43e504 100644 --- a/proofs/proofview.mli +++ b/proofs/proofview.mli @@ -62,7 +62,7 @@ type focus_context refined functions to ide-s. This would be better than spawning a new nearly identical function everytime. Hence the generic name. *) (* In this version: returns the number of goals that are held *) -val focus_context : focus_context -> int +val focus_context : focus_context -> Goal.goal list * Goal.goal list (* [focus i j] focuses a proofview on the goals from index [i] to index [j] (inclusive). (i.e. goals number [i] to [j] become the only goals of the |