diff options
| author | Pierre-Marie Pédrot | 2015-02-13 17:26:27 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-02-13 17:26:27 +0100 |
| commit | eed12bddc3e6f6f9192c909a8b8f82859080f3a1 (patch) | |
| tree | 075295e3f70347b6a8076b72885b3e0ab5b52aa1 /pretyping | |
| parent | 37076a63ebd1491f26a6c5a3d67e054c106589b3 (diff) | |
| parent | dcb23edad4debc0f4856580910cb5eba00077006 (diff) | |
Merge branch 'v8.5'
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evarsolve.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/evarsolve.ml b/pretyping/evarsolve.ml index 5aa72c90ac..921609aae3 100644 --- a/pretyping/evarsolve.ml +++ b/pretyping/evarsolve.ml @@ -186,6 +186,7 @@ let noccur_evar env evd evk c = (match pi2 (Environ.lookup_rel (i-k) env) with | None -> () | Some b -> occur_rec k (lift i b)) + | Proj (p,c) -> occur_rec k (Retyping.expand_projection env evd p c []) | _ -> iter_constr_with_binders succ occur_rec k c in try occur_rec 0 c; true with Occur -> false |