diff options
| author | Pierre-Marie Pédrot | 2014-04-03 15:55:27 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-04-22 11:21:02 +0200 |
| commit | 4c6a5f56ef5ab248d9e816b4d7bee3001cab9a2e (patch) | |
| tree | 0876edb671c9d9351eaa99c6a83c714eb6eda8b8 /proofs | |
| parent | 72f29c3052c580eac9c6030d3f9d3c3964322c55 (diff) | |
Removing tactic compatibility layer from Elim.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacmach.ml | 1 | ||||
| -rw-r--r-- | proofs/tacmach.mli | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 72a1287ec9..0f898feef2 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -202,6 +202,7 @@ module New = struct let hyps = Proofview.Goal.hyps gl in Constrintern.construct_reference hyps id + let pf_env = Proofview.Goal.env let pf_type_of gl t = pf_apply type_of gl t diff --git a/proofs/tacmach.mli b/proofs/tacmach.mli index a840dd15aa..6e48908078 100644 --- a/proofs/tacmach.mli +++ b/proofs/tacmach.mli @@ -122,6 +122,8 @@ module New : sig val pf_global : identifier -> 'a Proofview.Goal.t -> constr val of_old : (Proof_type.goal Evd.sigma -> 'a) -> [ `NF ] Proofview.Goal.t -> 'a + val pf_env : 'a Proofview.Goal.t -> Environ.env + val pf_type_of : 'a Proofview.Goal.t -> Term.constr -> Term.types val pf_get_type_of : 'a Proofview.Goal.t -> Term.constr -> Term.types val pf_conv_x : 'a Proofview.Goal.t -> Term.constr -> Term.constr -> bool |