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 /plugins/ltac/rewrite.ml | |
| parent | ed05111e048e864c63c2e21b8ebac675a80dc464 (diff) | |
| parent | a131ebf7b66e31dea7d8ccfb9706ad6d8f4a12e0 (diff) | |
Merge PR #6676: [proofview] goals come with a state
Diffstat (limited to 'plugins/ltac/rewrite.ml')
| -rw-r--r-- | plugins/ltac/rewrite.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml index e73a18b79..d42259f2b 100644 --- a/plugins/ltac/rewrite.ml +++ b/plugins/ltac/rewrite.ml @@ -1568,7 +1568,8 @@ let cl_rewrite_clause_newtac ?abs ?origsigma ~progress strat clause = let (undef, prf, newt) = res in let fold ev _ accu = if Evd.mem sigma ev then accu else ev :: accu in let gls = List.rev (Evd.fold_undefined fold undef []) in - match clause, prf with + let gls = List.map Proofview.with_empty_state gls in + match clause, prf with | Some id, Some p -> let tac = tclTHENLIST [ Refine.refine ~typecheck:true (fun h -> (h,p)); |