From 8afca298033f6b5f055b2bca7fca7379bd232e98 Mon Sep 17 00:00:00 2001
From: Ralf Jung <jung@mpi-sws.org>
Date: Sat, 9 Jun 2018 09:31:42 +0200
Subject: [PATCH] Teach typeclass resolution to make progress on telescopic
 binders

---
 theories/telescopes.v | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/theories/telescopes.v b/theories/telescopes.v
index 17b70cf6..1a704fb8 100644
--- a/theories/telescopes.v
+++ b/theories/telescopes.v
@@ -185,3 +185,10 @@ Proof.
     + rewrite <-(IH p (λ a, Ψ (TargS p a))).
       intros [??]. eauto.
 Qed.
+
+(* Teach typeclass resolution how to make progress on these binders *)
+Typeclasses Opaque tforall texist.
+Hint Extern 1 (tforall _) =>
+  progress cbn [tforall tele_fold tele_bind tele_app] : typeclass_instances.
+Hint Extern 1 (texist _) =>
+  progress cbn [texist tele_fold tele_bind tele_app] : typeclass_instances.
-- 
GitLab