diff options
| author | Emilio Jesus Gallego Arias | 2019-06-17 12:28:14 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-06-17 12:28:14 +0200 |
| commit | 5d18dfed8e68dd964bca5d64ca6bdd9f8ffbb1df (patch) | |
| tree | 705d949f1b8ac657d88d4a650d13ed3c7210e495 /vernac/comFixpoint.ml | |
| parent | 6c53049049781a71e366edd738747f9b30eb5d94 (diff) | |
| parent | 1e3ca892b208c22956d6c8f89a1d5863711d0cd9 (diff) | |
Merge PR #10231: Adding location in warning telling implicit arguments differ in term and type
Reviewed-by: ejgallego
Ack-by: jashug
Diffstat (limited to 'vernac/comFixpoint.ml')
| -rw-r--r-- | vernac/comFixpoint.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/comFixpoint.ml b/vernac/comFixpoint.ml index 6068cd90f1..0d7ba69955 100644 --- a/vernac/comFixpoint.ml +++ b/vernac/comFixpoint.ml @@ -197,7 +197,7 @@ let interp_recursive ~program_mode ~cofix fixl notations = let fixtypes = List.map2 build_fix_type fixctxs fixccls in let fixtypes = List.map (fun c -> nf_evar sigma c) fixtypes in let fiximps = List.map3 - (fun ctximps cclimps (_,ctx) -> ctximps@(Impargs.lift_implicits (Context.Rel.nhyps ctx) cclimps)) + (fun ctximps cclimps (_,ctx) -> ctximps@cclimps) fixctximps fixcclimps fixctxs in let sigma, rec_sign = List.fold_left2 |