diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-29 13:29:55 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-29 13:29:55 +0000 |
commit | 89b9e17d36d378fc340d2a33d4df0e1c8a739135 (patch) | |
tree | 2fb1b875a75d32cb073a9042a3627d961ba6e5d0 /pretyping/unification.ml | |
parent | 1e301c9921a8b24e52e05fdcc7a92f67f99ba31c (diff) |
- install evar printer for debugging
- make unification try canonical structures before expansion as in evar_conv
- add a fast path to evar inversion (patch from B. Ziliani).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16945 85f007b7-540e-0410-9357-904b9bb8a0f7
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 b9b076d4f..9c3b5c4df 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -503,9 +503,9 @@ let unify_0_with_initial_metas (sigma,ms,es as subst) conv_at_top env cv_pb flag with ex when precatchable_exception ex -> try reduce curenvnb pb b false substn cM cN with ex when precatchable_exception ex -> - try expand curenvnb pb b false substn cM f1 l1 cN f2 l2 + try canonical_projections curenvnb pb b cM cN substn with ex when precatchable_exception ex -> - canonical_projections curenvnb pb b cM cN substn + expand curenvnb pb b false substn cM f1 l1 cN f2 l2 and unify_not_same_head curenvnb pb b wt substn cM cN = try canonical_projections curenvnb pb b cM cN substn |