diff options
| author | msozeau | 2008-11-05 20:16:13 +0000 |
|---|---|---|
| committer | msozeau | 2008-11-05 20:16:13 +0000 |
| commit | 5438bfe94fd1cb0d22de54df53bd0e09328a90a4 (patch) | |
| tree | 2fa81444edfd27a19c24f177ff8797eaf719de98 /contrib/interface | |
| parent | c7a38bc3775f6d29af4c2ea31fdec81725ff6ecc (diff) | |
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
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/depends.ml | 2 | ||||
| -rw-r--r-- | contrib/interface/xlate.ml | 2 |
2 files changed, 1 insertions, 3 deletions
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 |