diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-02-21 00:14:13 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-02-21 00:14:13 +0100 |
| commit | c5d0aa889fa80404f6c291000938e443d6200e5b (patch) | |
| tree | 253fbb6ebe405b78b5e66a1e1f7d4da606dbfa78 /proofs | |
| parent | a4b457bef4290fed3f2869795f1539de53b3805a (diff) | |
| parent | e54d014ce10dea4a74b66e5091d25e4b26bd71fa (diff) | |
Merge branch 'v8.5'
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proofview.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index 5f4f414a4..a382e9873 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -1039,7 +1039,6 @@ module Goal = struct end let goals = - Env.get >>= fun env -> Pv.get >>= fun step -> let sigma = step.solution in let map goal = @@ -1047,6 +1046,7 @@ module Goal = struct | None -> None (** ppedrot: Is this check really necessary? *) | Some goal -> let gl = + Env.get >>= fun env -> tclEVARMAP >>= fun sigma -> tclUNIT (gmake env sigma goal) in |