From 943e6b23229b5eed2fb8265089563ce0a25b9b44 Mon Sep 17 00:00:00 2001 From: ppedrot Date: Mon, 29 Apr 2013 16:02:46 +0000 Subject: Merging Context and Sign. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16463 85f007b7-540e-0410-9357-904b9bb8a0f7 --- proofs/refiner.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'proofs/refiner.ml') diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 04d125804..5a71b6816 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -190,10 +190,10 @@ let tclNOTSAMEGOAL (tac : tactic) goal = something similar (better?) in the xml protocol. *) let tclSHOWHYPS (tac : tactic) (goal: Goal.goal Evd.sigma) :Proof_type.goal list Evd.sigma = - let oldhyps:Sign.named_context = pf_hyps goal in + let oldhyps:Context.named_context = pf_hyps goal in let rslt:Proof_type.goal list Evd.sigma = tac goal in let {it=gls;sigma=sigma} = rslt in - let hyps:Sign.named_context list = + let hyps:Context.named_context list = List.map (fun gl -> pf_hyps { it = gl; sigma=sigma}) gls in let newhyps = List.map (fun hypl -> List.subtract hypl oldhyps) hyps in -- cgit v1.2.3