Correction du bug #1679 (congruence) et ajout test-suite

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10120 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 19 insertions, 0 deletions

diff --git a/test-suite/success/cc.v b/test-suite/success/cc.v
index 42df990fd..fecc89772 100644
--- a/test-suite/success/cc.v
+++ b/test-suite/success/cc.v
@@ -77,3 +77,22 @@ Theorem discr2 : Some true = Some false -> False.
 intros.
  congruence.
 Qed.
+
+Set Implicit Arguments.
+
+Parameter elt: Set.
+Parameter elt_eq: forall (x y: elt), {x = y} + {x <> y}.
+Definition t (A: Set) := elt -> A.
+Definition get (A: Set) (x: elt) (m: t A) := m x.
+Definition set (A: Set) (x: elt) (v: A) (m: t A) :=
+    fun (y: elt) => if elt_eq y x then v else m y.
+Lemma gsident:
+  forall (A: Set) (i j: elt) (m: t A), get j (set i (get i m) m) = get j m.
+Proof.
+  intros. unfold get, set. case (elt_eq j i); intro.
+  congruence.
+  auto.
+Qed.
+            
+            
+            
\ No newline at end of file