diff options
| author | aspiwack | 2013-11-02 15:39:08 +0000 |
|---|---|---|
| committer | aspiwack | 2013-11-02 15:39:08 +0000 |
| commit | b9b1122ff82cd9e8bb9782e7c4c5d39bf0df7488 (patch) | |
| tree | 53e928b97f5e355a69f17734af9d9c262ccf5052 /proofs/tacmach.ml | |
| parent | c25d1d8967dbdadbad85e22c50e1b63f6091e1fe (diff) | |
Made Proofview.Goal.hyps a named_context.
There was really no point in having it be a named_context val. The tactics are not going to access the vm cache. Only vm_compute will.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17007 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/tacmach.ml')
| -rw-r--r-- | proofs/tacmach.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 4928ffcfe8..ae0d1039b6 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -215,7 +215,6 @@ module New = struct let pf_global id gl = let hyps = Proofview.Goal.hyps gl in - let hyps = Environ.named_context_of_val hyps in Constrintern.construct_reference hyps id @@ -225,7 +224,6 @@ module New = struct let pf_ids_of_hyps gl = let hyps = Proofview.Goal.hyps gl in - let hyps = Environ.named_context_of_val hyps in ids_of_named_context hyps let pf_get_new_id id gl = @@ -234,7 +232,6 @@ module New = struct let pf_get_hyp id gl = let hyps = Proofview.Goal.hyps gl in - let hyps = Environ.named_context_of_val hyps in let sign = try Context.lookup_named id hyps with Not_found -> Errors.error ("No such hypothesis: " ^ (string_of_id id)) @@ -252,6 +249,6 @@ module New = struct let pf_last_hyp gl = let hyps = Proofview.Goal.hyps gl in - List.hd (Environ.named_context_of_val hyps) + List.hd hyps end |