diff options
| author | aspiwack | 2013-11-02 15:36:21 +0000 |
|---|---|---|
| committer | aspiwack | 2013-11-02 15:36:21 +0000 |
| commit | 49762f64a3616919dbfc1be09410cf830d168e70 (patch) | |
| tree | 0a0d724fa17fa875b0a1e02b5e948e3760de14fe | |
| parent | df0d3bbf57f82620d3fafe023ddb63f567b2d269 (diff) | |
Fix behaviour of the refine tactic with respect to evars in types.
It used not to propagate discovered constraints on the evars of the
conclusion of the goal.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16987 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 3e37ea998a..fe605da8ef 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -3818,7 +3818,7 @@ module New = struct let refine c = let c = Goal.Refinable.make begin fun h -> - Goal.Refinable.constr_of_open_constr h false c + Goal.Refinable.constr_of_open_constr h true c end in Proofview.Goal.lift c >>= fun c -> Proofview.tclSENSITIVE (Goal.refine c) |