diff options
| author | Matthieu Sozeau | 2015-11-05 17:12:39 -0500 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-11-11 19:13:52 +0100 |
| commit | ca30a8be08beeae77d42b6cb5d9f219e3932a3f7 (patch) | |
| tree | 4997a8230cf8340b3ef1094f2a76f09606a66a02 /tactics | |
| parent | 2f56f0fcf21902bb1317f1d6f7ba4b593d712646 (diff) | |
Fix bug #3257, setoid_reflexivity should fail if not completing the goal.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/rewrite.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tactics/rewrite.ml b/tactics/rewrite.ml index e8a7c0f600..af6953bf85 100644 --- a/tactics/rewrite.ml +++ b/tactics/rewrite.ml @@ -2077,8 +2077,10 @@ let poly_proof getp gett env evm car rel = let setoid_reflexivity = setoid_proof "reflexive" (fun env evm car rel -> - tac_open (poly_proof PropGlobal.get_reflexive_proof TypeGlobal.get_reflexive_proof - env evm car rel) (fun c -> Proofview.V82.of_tactic (apply c))) + tac_open (poly_proof PropGlobal.get_reflexive_proof + TypeGlobal.get_reflexive_proof + env evm car rel) + (fun c -> tclCOMPLETE (Proofview.V82.of_tactic (apply c)))) (reflexivity_red true) let setoid_symmetry = |