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 | |
| 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')
| -rw-r--r-- | proofs/proofview.ml | 2 | ||||
| -rw-r--r-- | proofs/proofview.mli | 2 | ||||
| -rw-r--r-- | proofs/tacmach.ml | 5 |
3 files changed, 3 insertions, 6 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index bdddf310dc..823082aced 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -686,7 +686,7 @@ module Goal = struct let env { env=env } = env let sigma { sigma=sigma } = sigma - let hyps { hyps=hyps } = hyps + let hyps { hyps=hyps } = Environ.named_context_of_val hyps let concl { concl=concl } = concl let lift s = diff --git a/proofs/proofview.mli b/proofs/proofview.mli index c9296e694f..0504efea57 100644 --- a/proofs/proofview.mli +++ b/proofs/proofview.mli @@ -288,7 +288,7 @@ module Goal : sig type t val concl : t -> Term.constr - val hyps : t -> Environ.named_context_val + val hyps : t -> Context.named_context val env : t -> Environ.env val sigma : t -> Evd.evar_map 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 |