diff options
| author | Matthieu Sozeau | 2014-06-17 16:33:18 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-17 17:19:03 +0200 |
| commit | edd1ee4f881f9b8023524a823bcd15759038bc76 (patch) | |
| tree | 9c1bdba48176068215d096f727c05dca412ea283 | |
| parent | 8fa5a0351954cc561fa751901fe0f06eeac4ce7a (diff) | |
Fix HoTT bug #84, binding scopes to projections.
| -rw-r--r-- | interp/notation.ml | 1 | ||||
| -rw-r--r-- | test-suite/bugs/closed/HoTT_coq_084.v (renamed from test-suite/bugs/opened/HoTT_coq_084.v) | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index ec82c8aea3..6cc99ddb40 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -535,6 +535,7 @@ let compute_scope_class t = let t', _ = decompose_appvect (Reductionops.whd_betaiotazeta Evd.empty t) in match kind_of_term t' with | Var _ | Const _ | Ind _ -> ScopeRef (global_of_constr t') + | Proj (p, c) -> ScopeRef (ConstRef p) | Sort _ -> ScopeSort | _ -> raise Not_found diff --git a/test-suite/bugs/opened/HoTT_coq_084.v b/test-suite/bugs/closed/HoTT_coq_084.v index 5568ec244e..d007e4e235 100644 --- a/test-suite/bugs/opened/HoTT_coq_084.v +++ b/test-suite/bugs/closed/HoTT_coq_084.v @@ -37,7 +37,7 @@ Module failure. Variable g : group. Variable comp : carrier g -> carrier g -> carrier g. - Fail Check comp 1 1. + Check comp 1 1. (* Toplevel input, characters 11-12: Error: In environment |