diff options
| author | msozeau | 2013-10-29 13:29:55 +0000 |
|---|---|---|
| committer | msozeau | 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 b9b076d4fd..9c3b5c4dff 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 |