From 5438bfe94fd1cb0d22de54df53bd0e09328a90a4 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Wed, 5 Nov 2008 20:16:13 +0000
Subject: Move Record desugaring to constrintern and add ability to use
 notations for record fields (using "someproj : sometype where not := constr"
 syntax). Only one notation allowed currently and no redeclaration after the
 record declaration either (will be done for typeclasses).

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

(limited to 'interp/implicit_quantifiers.ml')

diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml
index 0bfc109ab3..d48c85616c 100644
--- a/interp/implicit_quantifiers.ml
+++ b/interp/implicit_quantifiers.ml
@@ -98,8 +98,6 @@ let free_vars_of_rawconstr ?(bound=Idset.empty) =
 	let vs' = vars bound vs ty in 
 	let bound' = add_name_to_ids bound na in 
 	vars bound' vs' c
-    | RRecord (loc,w,l) -> List.fold_left (vars bound) vs 
-	(Option.List.cons w (List.map snd l))
     | RCases (loc,sty,rtntypopt,tml,pl) ->
 	let vs1 = vars_option bound vs rtntypopt in 
 	let vs2 = List.fold_left (fun vs (tm,_) -> vars bound vs tm) vs1 tml in 
-- 
cgit v1.2.3