diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-08-07 08:10:13 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-08-07 08:10:13 +0200 |
| commit | fb29084052da03308fe45a918c55b86627ba54b6 (patch) | |
| tree | 7ad3938e1132b1b27ba1e7c19a79aea8c0d9e946 | |
| parent | 7e8612307f8393f12783bd9c591e6e26a3277b9d (diff) | |
Hypotheses in [Proofview.Goal.enter] were not normalised.
Fixes PTSF (though I have no idea what caused this bug to show up just yesterday).
| -rw-r--r-- | proofs/proofview.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index 74f41d071..08a4d41c9 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -873,6 +873,7 @@ module Goal = struct let concl = Reductionops.nf_evar sigma concl in let map_nf c = Reductionops.nf_evar sigma c in let hyps = Environ.map_named_val map_nf hyps in + let env = Environ.reset_with_named_context hyps env in f {env=env;sigma=sigma;hyps=hyps;concl=concl;self=self} end |