diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-08 17:14:38 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-08 17:14:38 +0200 |
| commit | 82eb6cbfa3db53756ea40fb4795836d6f8c55bbe (patch) | |
| tree | 2721409ee43e729c82d5e3337d58bbbdb3f461aa /pretyping/evarsolve.ml | |
| parent | 8110e9cbd6d70960a221c316774460f6ad6dc5e9 (diff) | |
| parent | 0a6f0c161756a1878dd81e438df86f08631d8399 (diff) | |
Merge branch 'v8.5' into v8.6
Diffstat (limited to 'pretyping/evarsolve.ml')
| -rw-r--r-- | pretyping/evarsolve.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pretyping/evarsolve.ml b/pretyping/evarsolve.ml index 6c8677855..a97e248ae 100644 --- a/pretyping/evarsolve.ml +++ b/pretyping/evarsolve.ml @@ -1591,6 +1591,8 @@ and evar_define conv_algo ?(choose=false) env evd pbty (evk,argsv as ev) rhs = * ass. *) +(* This criterion relies on the fact that we postpone only problems of the form: +?x [?x1 ... ?xn] = t or the symmetric case. *) let status_changed lev (pbty,_,t1,t2) = (try Evar.Set.mem (head_evar t1) lev with NoHeadEvar -> false) || (try Evar.Set.mem (head_evar t2) lev with NoHeadEvar -> false) |