From add39fd4566c0e00293c2082077d08fb21178607 Mon Sep 17 00:00:00 2001 From: herbelin Date: Sun, 19 Oct 2008 13:43:38 +0000 Subject: Retour en arrière sur la mise en paramètre du premier argument de Coq.Relation.Relation_Operators.clos_refl_sym_trans car cela échange les arguments de rst_sym et casse la compatibilité (cf p.ex. Rocq/PTS). MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11471 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Relations/Operators_Properties.v | 2 +- theories/Relations/Relation_Operators.v | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) (limited to 'theories/Relations') diff --git a/theories/Relations/Operators_Properties.v b/theories/Relations/Operators_Properties.v index 22582f75d..2ced22298 100644 --- a/theories/Relations/Operators_Properties.v +++ b/theories/Relations/Operators_Properties.v @@ -70,7 +70,7 @@ Section Properties. apply Build_equivalence. exact (rst_refl A R). exact (rst_trans A R). - exact (fun x y => rst_sym A R y x). + exact (rst_sym A R). Qed. (** Idempotency of the reflexive-symmetric-transitive closure operator *) diff --git a/theories/Relations/Relation_Operators.v b/theories/Relations/Relation_Operators.v index 2793da5b1..eec3f8ebd 100644 --- a/theories/Relations/Relation_Operators.v +++ b/theories/Relations/Relation_Operators.v @@ -85,11 +85,11 @@ Section Reflexive_Symetric_Transitive_Closure. (** Definition by direct reflexive-symmetric-transitive closure *) - Inductive clos_refl_sym_trans (x:A) : A -> Prop := - | rst_step (y:A) : R x y -> clos_refl_sym_trans x y - | rst_refl : clos_refl_sym_trans x x - | rst_sym (y:A) : clos_refl_sym_trans y x -> clos_refl_sym_trans x y - | rst_trans (y z:A) : + Inductive clos_refl_sym_trans : relation A := + | rst_step (x y:A) : R x y -> clos_refl_sym_trans x y + | rst_refl (x:A) : clos_refl_sym_trans x x + | rst_sym (x y:A) : clos_refl_sym_trans x y -> clos_refl_sym_trans y x + | rst_trans (x y z:A) : clos_refl_sym_trans x y -> clos_refl_sym_trans y z -> clos_refl_sym_trans x z. -- cgit v1.2.3