diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 16:30:15 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 16:30:15 +0100 |
| commit | 346e73cef9e4e89c90f9f6f7011d54e3a0a35d96 (patch) | |
| tree | 07ccc997e8e13eac81d2c2a7dc5d63284dfbdf77 /vernac/classes.ml | |
| parent | ed05111e048e864c63c2e21b8ebac675a80dc464 (diff) | |
| parent | a131ebf7b66e31dea7d8ccfb9706ad6d8f4a12e0 (diff) | |
Merge PR #6676: [proofview] goals come with a state
Diffstat (limited to 'vernac/classes.ml')
| -rw-r--r-- | vernac/classes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/classes.ml b/vernac/classes.ml index 695be74bb..0533d0d43 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -334,7 +334,7 @@ let new_instance ?(abstract=false) ?(global=false) ?(refine= !refine_instance) let init_refine = Tacticals.New.tclTHENLIST [ Refine.refine ~typecheck:false (fun sigma -> (sigma,EConstr.of_constr (Option.get term))); - Proofview.Unsafe.tclNEWGOALS gls; + Proofview.Unsafe.tclNEWGOALS (CList.map Proofview.with_empty_state gls); Tactics.New.reduce_after_refine; ] in |