Fix compilation with Coq 8.4pl4.

68254659 · Robbert Krebbers · 044d309d · 68254659
Commit 68254659 authored Oct 06, 2014 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

theories/countable.v theories/countable.v +1 -1

No files found.
--- a/theories/countable.v
+++ b/theories/countable.v
@@ -68,7 +68,7 @@ Lemma surjective_cancel `{Countable A} `{∀ x y : B, Decision (x = y)}
  (f : A → B) `{!Surjective (=) f} : { g : B → A & Cancel (=) f g }.
 Proof.
  exists (λ y, choose (λ x, f x = y) (surjective f y)).
-  intros y. by rewrite (choose_correct _ (surjective f y)).
+  intros y. by rewrite (choose_correct (λ _, _) (surjective f y)).
 Qed.

 (** ** Instances *)