diff options
| author | Matthieu Sozeau | 2014-06-15 14:15:30 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-15 14:15:30 +0200 |
| commit | a0141c0ccc295af0d7938e8e515c9eef40449d73 (patch) | |
| tree | 45b9b4432cf8b342e6578efca2cadd9d25b1d1d8 /pretyping | |
| parent | 0082e3c26ede3f1cabc3237f82be15d013817385 (diff) | |
Change Ltac constr matching semantics to consider universes when merging two
bindings of the same variable (fixing HoTT bug #52). Document the unification
of universes in Ltac/tactics.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/constrMatching.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/constrMatching.ml b/pretyping/constrMatching.ml index 243b563d36..21e22e0bbf 100644 --- a/pretyping/constrMatching.ml +++ b/pretyping/constrMatching.ml @@ -63,7 +63,7 @@ let warn_bound_again name = let constrain n (ids, m as x) (names, terms as subst) = try let (ids', m') = Id.Map.find n terms in - if List.equal Id.equal ids ids' && eq_constr_nounivs m m' then subst + if List.equal Id.equal ids ids' && eq_constr m m' then subst else raise PatternMatchingFailure with Not_found -> let () = if Id.Map.mem n names then warn_bound_meta n in |