diff options
author | 2016-04-10 18:30:38 +0200 | |
---|---|---|
committer | 2016-06-16 17:30:17 +0200 | |
commit | 53e8a445177501846c75147680da03a95d5e9b5c (patch) | |
tree | 217550bb8e12bd6028e3c68d0cda46fa0decdc0d /interp | |
parent | 8ee9906d70e0181a0e247b3ec0adbe889f3fdbce (diff) |
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}.
Diffstat (limited to 'interp')
-rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 50252a368..0c02c5dab 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 |