blob: 6a952377ce704a34f20ef4d7c7fcc409adfc8618 (
plain)
1
2
3
4
5
6
7
8
9
10
|
Set Typeclasses Strict Resolution.
Class Contr (A : Type) := { center : A }.
Definition foo {A} `{Contr A} : A.
Proof.
apply center.
Undo.
(* Ensure the constraints are solved independently, otherwise a frozen ?A
makes a search for Contr ?A fail when finishing to apply (fun x => x) *)
apply (fun x => x), center.
Qed.
|
