diff options
| author | Pierre-Marie Pédrot | 2014-03-11 20:22:47 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-03-19 13:34:23 +0100 |
| commit | 53138852926664706193f09d013d3e8087f7bc8f (patch) | |
| tree | 6ac62e502912eda91bb68e8229a4f8ffe03d08bb /proofs | |
| parent | 27e4cb0e99497997c9d019607b578685a71b5944 (diff) | |
Using non-normalized goals in tactic interpretation.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacmach.ml | 7 | ||||
| -rw-r--r-- | proofs/tacmach.mli | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index adeb507416..a9146a96a8 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -253,4 +253,11 @@ module New = struct let hyps = Proofview.Goal.hyps gl in List.hd hyps + let pf_nf_concl gl = + (** We normalize the conclusion just after *) + let gl = Proofview.Goal.assume gl in + let concl = Proofview.Goal.concl gl in + let sigma = Proofview.Goal.sigma gl in + nf_evar sigma concl + end diff --git a/proofs/tacmach.mli b/proofs/tacmach.mli index 07639f475d..9a53560b6b 100644 --- a/proofs/tacmach.mli +++ b/proofs/tacmach.mli @@ -143,4 +143,6 @@ module New : sig val pf_get_hyp : identifier -> [ `NF ] Proofview.Goal.t -> named_declaration val pf_get_hyp_typ : identifier -> [ `NF ] Proofview.Goal.t -> types val pf_last_hyp : [ `NF ] Proofview.Goal.t -> named_declaration + + val pf_nf_concl : [ `LZ ] Proofview.Goal.t -> types end |