From da8f274d07acc80f95928979730bd390984aaf1b Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 8 Jun 2011 15:39:23 +0000
Subject: Make Notation works with anonymous-level "Type".

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14170 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/topconstr.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'interp')

diff --git a/interp/topconstr.ml b/interp/topconstr.ml
index ab009e34ae..c492763b09 100644
--- a/interp/topconstr.ml
+++ b/interp/topconstr.ml
@@ -713,6 +713,7 @@ let rec match_ inner alp (tmetas,blmetas as metas) sigma a1 a2 =
       match_ true alp metas (match_ true alp metas sigma c1 c2) t1 t2
   | GCast(_,c1, CastCoerce), ACast(c2, CastCoerce) ->
       match_ true alp metas sigma c1 c2
+  | GSort (_,GType _), ASort (GType None) -> sigma
   | GSort (_,s1), ASort s2 when s1 = s2 -> sigma
   | GPatVar _, AHole _ -> (*Don't hide Metas, they bind in ltac*) raise No_match
   | a, AHole _ -> sigma
-- 
cgit v1.2.3