Commit 8afca298 authored by Ralf Jung's avatar Ralf Jung

Teach typeclass resolution to make progress on telescopic binders

parent e46551b8
...@@ -185,3 +185,10 @@ Proof. ...@@ -185,3 +185,10 @@ Proof.
+ rewrite <-(IH p (λ a, Ψ (TargS p a))). + rewrite <-(IH p (λ a, Ψ (TargS p a))).
intros [??]. eauto. intros [??]. eauto.
Qed. 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.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment