diff options
| author | msozeau | 2008-03-16 17:48:43 +0000 |
|---|---|---|
| committer | msozeau | 2008-03-16 17:48:43 +0000 |
| commit | 9e1ab25ce311b5c0e18e1023eaaa38673a38d3d5 (patch) | |
| tree | f2e3031b3cf4a0e8d3fee15d83467ecc663b2942 /contrib/setoid_ring/newring.ml4 | |
| parent | 87017bcc49f0d9d07f8f8c6a8c0137715118ef46 (diff) | |
Removed unneeded tactics from RelationClasses. Use
check_required_library where needed (fixes bug #1797).
Remove spurious messages from ring when not in verbose mode.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10685 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/setoid_ring/newring.ml4')
| -rw-r--r-- | contrib/setoid_ring/newring.ml4 | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/contrib/setoid_ring/newring.ml4 b/contrib/setoid_ring/newring.ml4 index 6ed79f23b7..7cf642ce7e 100644 --- a/contrib/setoid_ring/newring.ml4 +++ b/contrib/setoid_ring/newring.ml4 @@ -545,19 +545,21 @@ let ring_equality (r,add,mul,opp,req) = error "ring opposite should be declared as a morphism" in let op_morph = op_morph r add mul opp req add_m_lem mul_m_lem opp_m_lem in - msgnl + Flags.if_verbose + msgnl (str"Using setoid \""++pr_constr req++str"\""++spc()++ - str"and morphisms \""++pr_constr add_m ++ - str"\","++spc()++ str"\""++pr_constr mul_m++ - str"\""++spc()++str"and \""++pr_constr opp_m++ + str"and morphisms \""++pr_constr add_m_lem ++ + str"\","++spc()++ str"\""++pr_constr mul_m_lem++ + str"\""++spc()++str"and \""++pr_constr opp_m_lem++ str"\""); op_morph) | None -> - (msgnl + (Flags.if_verbose + msgnl (str"Using setoid \""++pr_constr req ++str"\"" ++ spc() ++ - str"and morphisms \""++pr_constr add_m ++ + str"and morphisms \""++pr_constr add_m_lem ++ str"\""++spc()++str"and \""++ - pr_constr mul_m++str"\""); + pr_constr mul_m_lem++str"\""); op_smorph r add mul req add_m_lem mul_m_lem) in (setoid,op_morph) |