From 7446e3e1555c0f41373b71b92a3f01f060e8e0e0 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sun, 25 Jun 2017 15:51:47 +0200
Subject: Exporting general-purpose functions on goal contexts from "logic.ml"
 to "tactics.ml".

This is in preparation of move of "assert" from old to new proof engine.
---
 proofs/logic.ml  | 4 ++++
 proofs/logic.mli | 6 ++++++
 2 files changed, 10 insertions(+)

diff --git a/proofs/logic.ml b/proofs/logic.ml
index 6af1b2d837..0621af4e80 100644
--- a/proofs/logic.ml
+++ b/proofs/logic.ml
@@ -282,6 +282,10 @@ let move_hyp_in_named_context sigma hfrom hto sign =
     split_sign hfrom hto (named_context_of_val sign) in
   move_hyp sigma toleft (left,declfrom,right) hto
 
+let insert_decl_in_named_context sigma decl hto sign =
+  let open EConstr in
+  move_hyp sigma false ([],decl,named_context_of_val sign) hto
+
 (**********************************************************************)
 
 
diff --git a/proofs/logic.mli b/proofs/logic.mli
index f98248e4d1..8dd29bc174 100644
--- a/proofs/logic.mli
+++ b/proofs/logic.mli
@@ -52,6 +52,8 @@ type refiner_error =
 
 exception RefinerError of refiner_error
 
+val error_no_such_hypothesis : Id.t -> 'a
+
 val catchable_exception : exn -> bool
 
 val convert_hyp : bool -> Environ.named_context_val -> evar_map ->
@@ -59,3 +61,7 @@ val convert_hyp : bool -> Environ.named_context_val -> evar_map ->
 
 val move_hyp_in_named_context : Evd.evar_map -> Id.t -> Id.t Misctypes.move_location ->
   Environ.named_context_val -> Environ.named_context_val
+
+val insert_decl_in_named_context : Evd.evar_map ->
+  EConstr.named_declaration -> Id.t Misctypes.move_location ->
+  Environ.named_context_val -> Environ.named_context_val
-- 
cgit v1.2.3