aboutsummaryrefslogtreecommitdiff
path: root/tactics
diff options
context:
space:
mode:
authormsozeau2009-01-18 18:01:12 +0000
committermsozeau2009-01-18 18:01:12 +0000
commit05b31844f683c3bc81b371c94be5cc6f6f4edf61 (patch)
treeea983b637b98a8971b5ae978abc48228814b200b /tactics
parentcb738f93e74b2d11bc5a67e75cf5f6f07e676d77 (diff)
Various little fixes:
- allow a new line after a (** printing *) directive in coqdoc so as not to output spurious new lines. - never directly unify the lemma with an evar in setoid_rewrite (they act as opaque constants). - Fix a useless dependency introduced by tauto which splits a record in SetoidList. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11799 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
-rw-r--r--tactics/class_tactics.ml43
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml4 b/tactics/class_tactics.ml4
index e38b9a6e69..6d01ea00c9 100644
--- a/tactics/class_tactics.ml4
+++ b/tactics/class_tactics.ml4
@@ -808,7 +808,8 @@ let refresh_hypinfo env sigma hypinfo =
else ()
let unify_eqn env sigma hypinfo t =
- try
+ if isEvar t then None
+ else try
let {cl=cl; prf=prf; car=car; rel=rel; l2r=l2r; c1=c1; c2=c2; c=c; abs=abs} = !hypinfo in
let env', prf, c1, c2, car, rel =
let left = if l2r then c1 else c2 in