From d71f9b16a49ce4faa61ba9b3c57f43c3acceb8cb Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Mon, 4 Nov 2013 13:20:47 +0000
Subject: Allowing proofs starting with a non-empty evarmap.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17055 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/proof_global.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs/proof_global.ml')

diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml
index ac61f4e679..12a5285043 100644
--- a/proofs/proof_global.ml
+++ b/proofs/proof_global.ml
@@ -239,7 +239,7 @@ end
 let start_proof id str goals ?(compute_guard=[]) hook =
   let initial_state = {
     pid = id;
-    proof = Proof.start goals;
+    proof = Proof.start Evd.empty goals;
     endline_tactic = None;
     section_vars = None;
     strength = str;
-- 
cgit v1.2.3