diff options
| author | Pierre-Marie Pédrot | 2016-10-08 17:41:15 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-10-08 17:41:15 +0200 |
| commit | 1a9fe0dfe837ccbee25e9ecf19a7b2e7768a7958 (patch) | |
| tree | d0539f4fe40c2a3077858c6c69440d98de053964 /pretyping/evarsolve.ml | |
| parent | 2dcd8f2e82366bb3b0f51a42426ccdfbb00281dc (diff) | |
| parent | 82eb6cbfa3db53756ea40fb4795836d6f8c55bbe (diff) | |
Merge branch '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 a744f5ec61..c44903e8c3 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) |