diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-04-02 19:12:44 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-04-09 11:52:17 +0200 |
commit | 21d308fc083ee395e7b1ff78e75ec3a1305cb2f4 (patch) | |
tree | 45d6f6a8b046b49f40b3e9cf2c360ebf77e21f27 /vernac/lemmas.ml | |
parent | 8a35d93061c67dcdbb12337b78fcb35d72957f51 (diff) |
Fixing several wrong computations of implicit arguments by position
in the presence of let-ins.
Diffstat (limited to 'vernac/lemmas.ml')
-rw-r--r-- | vernac/lemmas.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/lemmas.ml b/vernac/lemmas.ml index e7d1919ce..430d48bc7 100644 --- a/vernac/lemmas.ml +++ b/vernac/lemmas.ml @@ -451,7 +451,7 @@ let start_proof_com ?inference_hook kind thms hook = let ids = List.map RelDecl.get_name ctx in (compute_proof_name (pi1 kind) sopt, (nf_evar !evdref (it_mkProd_or_LetIn t' ctx), - (ids, imps @ lift_implicits (List.length ids) imps')))) + (ids, imps @ lift_implicits (Context.Rel.nhyps ctx) imps')))) thms in let recguard,thms,snl = look_for_possibly_mutual_statements thms in let evd, nf = Evarutil.nf_evars_and_universes !evdref in |