From fcdfc18ee51940460daa68e241c0951438276ddd Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 11 Jun 2007 16:34:28 +0000
Subject: undeletion of E_ST and Equal_ST: these records aren't mandatory, but
 quite useful

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9887 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/FSets/FSetFacts.v | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/theories/FSets/FSetFacts.v b/theories/FSets/FSetFacts.v
index 4c1c51c497..ac0227f5c2 100644
--- a/theories/FSets/FSetFacts.v
+++ b/theories/FSets/FSetFacts.v
@@ -287,6 +287,16 @@ End BoolSpec.
 
 (** * [E.eq] and [Equal] are setoid equalities *)
 
+Definition E_ST : Setoid_Theory elt E.eq.
+Proof.
+constructor; [apply E.eq_refl|apply E.eq_sym|apply E.eq_trans].
+Qed.
+
+Definition Equal_ST : Setoid_Theory t Equal.
+Proof. 
+constructor; [apply eq_refl | apply eq_sym | apply eq_trans].
+Qed.
+
 Add Relation elt E.eq 
  reflexivity proved by E.eq_refl 
  symmetry proved by E.eq_sym
-- 
cgit v1.2.3