From 5eca868248b8faf8af73bd3bc015dea00a674752 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Wed, 30 Jan 2008 04:16:30 +0000
Subject: Support for substructures in classes using :> notation

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

(limited to 'toplevel')

diff --git a/toplevel/vernacexpr.ml b/toplevel/vernacexpr.ml
index cd9adf5cd9..3571b121b3 100644
--- a/toplevel/vernacexpr.ml
+++ b/toplevel/vernacexpr.ml
@@ -230,7 +230,7 @@ type vernac_expr =
 	local_binder list * (* params *)
 	sort_expr located * (* arity *)
 	local_binder list * (* constraints *)
-	(lident * constr_expr) list (* props *)
+	(lident * bool * constr_expr) list (* props, with substructure hints *)
 	
   | VernacInstance of
       local_binder list * (* super *)
-- 
cgit v1.2.3