From 58b94f8491a27cc922b60b3d3021896d6329c34a Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Fri, 2 Aug 2013 13:57:17 +0000
Subject: Adding a dependent version of equal_f, thus fixing #3074.

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

diff --git a/theories/Logic/FunctionalExtensionality.v b/theories/Logic/FunctionalExtensionality.v
index ecb7428e9c..a5894fc1e5 100644
--- a/theories/Logic/FunctionalExtensionality.v
+++ b/theories/Logic/FunctionalExtensionality.v
@@ -19,6 +19,12 @@ Proof.
   auto.
 Qed.
 
+Lemma equal_f_dep : forall {A B} {f g : forall (x : A), B x},
+  f = g -> forall x, f x = g x.
+Proof.
+intros A B f g <- H; reflexivity.
+Qed.
+
 (** Statements of functional extensionality for simple and dependent functions. *)
 
 Axiom functional_extensionality_dep : forall {A} {B : A -> Type},
-- 
cgit v1.2.3