From 7f1635816588ae200c8eed381d726bd29f57d899 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Wed, 27 Sep 2017 16:12:58 +0200
Subject: [vernac] Remove "Proof using" hacks from parser.

We place `Proof_using` in the proper place [`vernac`] and we remove
gross parsing hacks.

The new placement should allow to use the printers and more convenient
structure, and reduce strange coupling between parsing and internal
representation.
---
 vernac/proof_using.mli | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 vernac/proof_using.mli

(limited to 'vernac/proof_using.mli')

diff --git a/vernac/proof_using.mli b/vernac/proof_using.mli
new file mode 100644
index 0000000000..ddab2742d7
--- /dev/null
+++ b/vernac/proof_using.mli
@@ -0,0 +1,23 @@
+(************************************************************************)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
+(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2017     *)
+(*   \VV/  **************************************************************)
+(*    //   *      This file is distributed under the terms of the       *)
+(*         *       GNU Lesser General Public License Version 2.1        *)
+(************************************************************************)
+
+(** Utility code for section variables handling in Proof using... *)
+
+val process_expr :
+  Environ.env -> Vernacexpr.section_subset_expr -> Constr.types list ->
+    Names.Id.t list
+
+val name_set : Names.Id.t -> Vernacexpr.section_subset_expr -> unit
+
+val to_string : Vernacexpr.section_subset_expr -> string
+
+val suggest_constant : Environ.env -> Names.Constant.t -> unit
+
+val suggest_variable : Environ.env -> Names.Id.t -> unit
+
+val get_default_proof_using : unit -> Vernacexpr.section_subset_expr option
-- 
cgit v1.2.3


From 74826c1869a423b4e7224d3f69180584bdef1726 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Wed, 27 Sep 2017 16:54:41 +0200
Subject: Parse [Proof using Type] without translating Type to an id.

---
 vernac/proof_using.mli | 2 --
 1 file changed, 2 deletions(-)

(limited to 'vernac/proof_using.mli')

diff --git a/vernac/proof_using.mli b/vernac/proof_using.mli
index ddab2742d7..f63c8e2424 100644
--- a/vernac/proof_using.mli
+++ b/vernac/proof_using.mli
@@ -14,8 +14,6 @@ val process_expr :
 
 val name_set : Names.Id.t -> Vernacexpr.section_subset_expr -> unit
 
-val to_string : Vernacexpr.section_subset_expr -> string
-
 val suggest_constant : Environ.env -> Names.Constant.t -> unit
 
 val suggest_variable : Environ.env -> Names.Id.t -> unit
-- 
cgit v1.2.3