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
---
 contrib/interface/depends.ml | 2 --
 contrib/interface/xlate.ml   | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

(limited to 'contrib/interface')

diff --git a/contrib/interface/depends.ml b/contrib/interface/depends.ml
index e7c6c5bcbf..203bc9e3dd 100644
--- a/contrib/interface/depends.ml
+++ b/contrib/interface/depends.ml
@@ -210,8 +210,6 @@ let rec depends_of_rawconstr rc acc = match rc with
   | RLambda (_, _, _, rct, rcb)
   | RProd   (_, _, _, rct, rcb)
   | RLetIn  (_, _, rct, rcb) -> depends_of_rawconstr rcb (depends_of_rawconstr rct acc)
-  | RRecord (_, w, l) -> depends_of_rawconstr_list (List.map snd l)
-      (Option.fold_right depends_of_rawconstr w acc)
   | RCases  (_, _, rco, tmt, cc) ->
       (* LEM TODO: handle the cc *)
       (Option.fold_right depends_of_rawconstr rco
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml
index 2b6f681f12..73acbf0f36 100644
--- a/contrib/interface/xlate.ml
+++ b/contrib/interface/xlate.ml
@@ -1501,7 +1501,7 @@ let build_constructors l =
  CT_constr_list (List.map f l)
 
 let build_record_field_list l =
- let build_record_field (coe,d) = match d with
+ let build_record_field ((coe,d),not) = match d with
   | AssumExpr (id,c) ->
       if coe then CT_recconstr_coercion (xlate_id_opt id, xlate_formula c)
       else
-- 
cgit v1.2.3