diff options
author | 2014-08-25 20:21:06 +0200 | |
---|---|---|
committer | 2014-08-25 20:46:27 +0200 | |
commit | 0324a38f142a82d591ab66ade61678f35b12bea4 (patch) | |
tree | c80868cc35333e7f900f528ba6cb353e0c6af6dc /pretyping/unification.ml | |
parent | aa2f0216bb39a1054737b1edf695f28f59c14ea7 (diff) |
Fixing the essence of naming bug #3204: use same strategy for naming
cases pattern variables than for naming forall/fun binders (but still
avoiding constructor names).
Note in passing: such as it is implemented, the general strategy is in
O(n²) in the number of nested binders, because, when computing the
name for each 'fun x => c" (or forall, or a pattern name), the names
from the outside c and visibly occurring in c are computed.
Diffstat (limited to 'pretyping/unification.ml')
-rw-r--r-- | pretyping/unification.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 5f7e2916b..34fac5e75 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -1193,8 +1193,8 @@ let indirect_dependency d decls = pi1 (List.hd (List.filter (fun (id,_,_) -> dependent_in_decl (mkVar id) d) decls)) let finish_evar_resolution ?(flags=Pretyping.all_and_fail_flags) env initial_sigma (sigma,c) = - let sigma = Pretyping.solve_remaining_evars flags env initial_sigma sigma - in Evd.evar_universe_context sigma, nf_evar sigma c +(* let sigma = Pretyping.solve_remaining_evars flags env initial_sigma sigma +in*) Evd.evar_universe_context sigma, nf_evar sigma c let default_matching_flags sigma = { modulo_conv_on_closed_terms = Some empty_transparent_state; |