diff options
author | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-12-24 10:24:03 +0000 |
---|---|---|
committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-12-24 10:24:03 +0000 |
commit | b3014cc3c6a42f786824e392542f6e56ac29e334 (patch) | |
tree | 076fab40574b94f682fa126c1947e039ede29452 /tactics | |
parent | 0077ce8c639f77bcbc0a0054c6a2221645d002e1 (diff) |
tactics/eqdecide.ml4: avoid a useless argument in decideEquality
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13753 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/eqdecide.ml4 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tactics/eqdecide.ml4 b/tactics/eqdecide.ml4 index 932e88fea..6d40b2daf 100644 --- a/tactics/eqdecide.ml4 +++ b/tactics/eqdecide.ml4 @@ -160,8 +160,7 @@ let decideGralEquality g = let decideEqualityGoal = tclTHEN intros decideGralEquality -let decideEquality c1 c2 g = - let rectype = (pf_type_of g c1) in +let decideEquality rectype g = let decide = mkGenDecideEqGoal rectype g in (tclTHENS (cut decide) [default_auto;decideEqualityGoal]) g @@ -175,7 +174,7 @@ let compare c1 c2 g = [(tclTHEN intro (tclTHEN (onLastHyp simplest_case) clear_last)); - decideEquality c1 c2]) g + decideEquality (pf_type_of g c1)]) g (* User syntax *) |