From 290ad7c57bff31492800a189581ee88d92d9121d Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sat, 9 May 2015 10:15:44 +0200
Subject: Tentatively setting cons and Some with 1st implicit argument maximal
 (see #3695).

---
 theories/Init/Datatypes.v | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/theories/Init/Datatypes.v b/theories/Init/Datatypes.v
index de615301d0..aaffc0978d 100644
--- a/theories/Init/Datatypes.v
+++ b/theories/Init/Datatypes.v
@@ -151,6 +151,7 @@ Inductive option (A:Type) : Type :=
   | Some : A -> option A
   | None : option A.
 
+Arguments Some {A} a.
 Arguments None {A}.
 
 Definition option_map (A B:Type) (f:A->B) (o : option A) : option B :=
@@ -225,6 +226,7 @@ Inductive list (A : Type) : Type :=
  | cons : A -> list A -> list A.
 
 Arguments nil {A}.
+Arguments cons {A} a l.
 Infix "::" := cons (at level 60, right associativity) : list_scope.
 Delimit Scope list_scope with list.
 Bind Scope list_scope with list.
-- 
cgit v1.2.3