From 5bce635ad876bde78a7ffabc3e781112e5418a65 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Tue, 15 Mar 2016 23:56:22 +0100
Subject: Removing the dependency in VernacSolve in the STM.

Instead of mangling the AST in order to interpret par: we remember the goal
position to focus on it first and evaluate then the underlying vernacular
expression.
---
 proofs/pfedit.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'proofs')

diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml
index 20d696fd91..0fdcaa5875 100644
--- a/proofs/pfedit.ml
+++ b/proofs/pfedit.ml
@@ -104,9 +104,7 @@ let solve ?with_end_tac gi info_lvl tac pr =
     let tac = match gi with
       | Vernacexpr.SelectNth i -> Proofview.tclFOCUS i i tac
       | Vernacexpr.SelectId id -> Proofview.tclFOCUSID id tac
-      | Vernacexpr.SelectAll -> tac
-      | Vernacexpr.SelectAllParallel ->
-          Errors.anomaly(str"SelectAllParallel not handled by Stm")
+      | Vernacexpr.SelectAll | Vernacexpr.SelectAllParallel -> tac
     in
     let (p,(status,info)) = Proof.run_tactic (Global.env ()) tac pr in
     let () =
-- 
cgit v1.2.3


From ce2ffd090bd64963279cbbb84012d1b266ed9918 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sat, 19 Mar 2016 01:43:29 +0100
Subject: Moving VernacSolve to an EXTEND-based definition.

---
 proofs/pfedit.ml       | 2 +-
 proofs/proof_global.ml | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

(limited to 'proofs')

diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml
index 0fdcaa5875..608ee2c700 100644
--- a/proofs/pfedit.ml
+++ b/proofs/pfedit.ml
@@ -104,7 +104,7 @@ let solve ?with_end_tac gi info_lvl tac pr =
     let tac = match gi with
       | Vernacexpr.SelectNth i -> Proofview.tclFOCUS i i tac
       | Vernacexpr.SelectId id -> Proofview.tclFOCUSID id tac
-      | Vernacexpr.SelectAll | Vernacexpr.SelectAllParallel -> tac
+      | Vernacexpr.SelectAll -> tac
     in
     let (p,(status,info)) = Proof.run_tactic (Global.env ()) tac pr in
     let () =
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml
index d19dc5ba0f..647dbe1115 100644
--- a/proofs/proof_global.ml
+++ b/proofs/proof_global.ml
@@ -664,7 +664,6 @@ let print_goal_selector = function
   | Vernacexpr.SelectAll -> "all"
   | Vernacexpr.SelectNth i -> string_of_int i
   | Vernacexpr.SelectId id -> Id.to_string id
-  | Vernacexpr.SelectAllParallel -> "par"
 
 let parse_goal_selector = function
   | "all" -> Vernacexpr.SelectAll
-- 
cgit v1.2.3