diff options
| author | Hugo Herbelin | 2019-05-23 15:14:38 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2019-06-16 14:04:19 +0200 |
| commit | f95017c2c69ee258ae570b789bce696357d2c365 (patch) | |
| tree | e7a4057b39f11c5d473025a963b87bba40d440b9 /interp/constrintern.ml | |
| parent | 5d58496c27fc5767c7841734c0f01a739cf529ab (diff) | |
Adding location in warning telling implicit arguments differ in term and type.
Diffstat (limited to 'interp/constrintern.ml')
| -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 1a81dc41a1..622a9aee3d 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -2437,7 +2437,7 @@ let interp_glob_context_evars ?(program_mode=false) env sigma k bl = let impls = if k == Implicit then let na = match na with Name n -> Some n | Anonymous -> None in - (ExplByPos (n, na), (true, true, true)) :: impls + CAst.make (ExplByPos (n, na), (true, true, true)) :: impls else impls in (push_rel d env, sigma, d::params, succ n, impls) |