From ecf8f5a0a7dd1a2f46d20df1680a4554d99d18b0 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 22 May 2010 10:56:37 +0000
Subject: Added UIP_dec on suggestion of Eelis on #coq irc.

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

diff --git a/theories/Logic/Eqdep_dec.v b/theories/Logic/Eqdep_dec.v
index d10d6ff955..6dacf0af4a 100644
--- a/theories/Logic/Eqdep_dec.v
+++ b/theories/Logic/Eqdep_dec.v
@@ -166,6 +166,12 @@ Theorem eq_dep_eq_dec :
      forall (P:A->Type) (p:A) (x y:P p), eq_dep A P p x p y -> x = y.
 Proof (fun A eq_dec => eq_rect_eq__eq_dep_eq A (eq_rect_eq_dec eq_dec)).
 
+Theorem UIP_dec :
+  forall (A:Type),
+    (forall x y:A, {x = y} + {x <> y}) ->
+    forall (x y:A) (p1 p2:x = y), p1 = p2.
+Proof (fun A eq_dec => eq_dep_eq__UIP A (eq_dep_eq_dec eq_dec)).
+
 Unset Implicit Arguments.
 
 (************************************************************************)
-- 
cgit v1.2.3