Skip to content
Snippets Groups Projects
Commit 8afca298 authored by Ralf Jung's avatar Ralf Jung
Browse files

Teach typeclass resolution to make progress on telescopic binders

parent e46551b8
No related branches found
No related tags found
1 merge request!34add telescopic versions of the Coq quantifiers
......@@ -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.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment