blob: 95193b993be0d9e526a19f0eb5fb9bf5baed9e5a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(* Testing printing of bound unnamed variables in pattern printer *)
Module A.
Parameter P : nat -> Type.
Parameter v : forall m, P m.
Parameter f : forall (P : nat -> Type), (forall a, P a) -> P 0.
Class U (R : P 0) (m : forall x, P x) : Prop.
Instance w : U (f _ (fun _ => v _)) v.
Print HintDb typeclass_instances.
End A.
(* #5731 *)
Module B.
Axiom rel : Type -> Prop.
Axiom arrow_rel : forall {A1}, A1 -> rel A1.
Axiom forall_rel : forall E, (forall v1 : Type, E v1 -> rel v1) -> Prop.
Axiom inl_rel: forall_rel _ (fun _ => arrow_rel).
Hint Resolve inl_rel : foo.
Print HintDb foo.
End B.
|
