diff options
| author | Matthieu Sozeau | 2014-06-17 15:22:18 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-17 15:42:15 +0200 |
| commit | 362e81735b07f96cb87e1203328592fc394beaad (patch) | |
| tree | 2e6f9e9030f220ef5650d533690b73c3feba5dce /library | |
| parent | 2b7bede68c213fbb884c773c073ba31a886f41f4 (diff) | |
- Fix the de Bruijn problem in check_projection for good :)
- Fix HoTT coq bug #80, implicit arguments with primitive projections were
wrongly automatically infered.
Diffstat (limited to 'library')
| -rw-r--r-- | library/impargs.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index 4fe898994c..c7faff33cc 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -200,6 +200,9 @@ let add_free_rels_until strict strongly_strict revpat bound env m pos acc = | App (f,_) when rig && is_flexible_reference env bound depth f -> if strict then () else iter_constr_with_full_binders push_lift (frec false) ed c + | Proj (p,c) when rig -> + if strict then () else + iter_constr_with_full_binders push_lift (frec false) ed c | Case _ when rig -> if strict then () else iter_constr_with_full_binders push_lift (frec false) ed c |