From edd1ee4f881f9b8023524a823bcd15759038bc76 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Tue, 17 Jun 2014 16:33:18 +0200
Subject: Fix HoTT bug #84, binding scopes to projections.

---
 interp/notation.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'interp')

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
 
-- 
cgit v1.2.3