diff options
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 |