From 9b2cc735c28e7887a4907a28af151e9a1ad7c5e6 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Tue, 7 Apr 2009 20:49:24 +0000
Subject: Move setoid_rewrite to its own module and do some clean up in
 class_tactics.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12056 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/setoid_ring/newring.ml4 | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'plugins')

diff --git a/plugins/setoid_ring/newring.ml4 b/plugins/setoid_ring/newring.ml4
index 926ac48d15..32f36ef856 100644
--- a/plugins/setoid_ring/newring.ml4
+++ b/plugins/setoid_ring/newring.ml4
@@ -466,9 +466,9 @@ let setoid_of_relation env a r =
   try 
     lapp coq_mk_Setoid
       [|a ; r ; 
-	Class_tactics.get_reflexive_proof env evm a r ; 
-	Class_tactics.get_symmetric_proof env evm a r ; 
-	Class_tactics.get_transitive_proof env evm a r |]
+	Rewrite.get_reflexive_proof env evm a r ; 
+	Rewrite.get_symmetric_proof env evm a r ; 
+	Rewrite.get_transitive_proof env evm a r |]
   with Not_found ->
     error "cannot find setoid relation"
 
@@ -544,18 +544,18 @@ let ring_equality (r,add,mul,opp,req) =
 	let setoid = setoid_of_relation (Global.env ()) r req in
 	let signature = [Some (r,req);Some (r,req)],Some(Lazy.lazy_from_val (r,req)) in
 	let add_m, add_m_lem =
-	  try Class_tactics.default_morphism signature add
+	  try Rewrite.default_morphism signature add
           with Not_found ->
             error "ring addition should be declared as a morphism" in
 	let mul_m, mul_m_lem =
-          try Class_tactics.default_morphism signature mul
+          try Rewrite.default_morphism signature mul
           with Not_found ->
             error "ring multiplication should be declared as a morphism" in
         let op_morph =
           match opp with
             | Some opp ->
 		(let opp_m,opp_m_lem =
-		  try Class_tactics.default_morphism ([Some(r,req)],Some(Lazy.lazy_from_val (r,req))) opp
+		  try Rewrite.default_morphism ([Some(r,req)],Some(Lazy.lazy_from_val (r,req))) opp
 		  with Not_found ->
                     error "ring opposite should be declared as a morphism" in
 		let op_morph =
@@ -1057,7 +1057,7 @@ let field_equality r inv req =
 	let _setoid = setoid_of_relation (Global.env ()) r req in
 	let signature = [Some (r,req)],Some(Lazy.lazy_from_val (r,req)) in
 	let inv_m, inv_m_lem =
-	  try Class_tactics.default_morphism signature inv
+	  try Rewrite.default_morphism signature inv
           with Not_found ->
             error "field inverse should be declared as a morphism" in
 	  inv_m_lem
-- 
cgit v1.2.3