From 53e8a445177501846c75147680da03a95d5e9b5c Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sun, 10 Apr 2016 18:30:38 +0200
Subject: Not taking arguments given by name or position into account when
 computing the arguments which allows to decide which list of implicit
 arguments to consider when several such lists are available.

For instance, "eq_refl (A:=nat)" is  now interpreted as "@eq_refl nat _",
the same way as if we had said:

Arguments eq_refl {A} {x}.
---
 interp/constrintern.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'interp/constrintern.ml')

diff --git a/interp/constrintern.ml b/interp/constrintern.ml
index 50252a368f..0c02c5dab2 100644
--- a/interp/constrintern.ml
+++ b/interp/constrintern.ml
@@ -1731,7 +1731,7 @@ let internalize globalenv env allow_patvar lvar c =
     in aux 1 l subscopes eargs rargs
 
   and apply_impargs c env imp subscopes l loc = 
-    let imp = select_impargs_size (List.length l) imp in
+    let imp = select_impargs_size (List.length (List.filter (fun (_,x) -> x == None) l)) imp in
     let l = intern_impargs c env imp subscopes l in
       smart_gapp c loc l
 
-- 
cgit v1.2.3