diff options
| author | barras | 2002-10-09 15:42:49 +0000 |
|---|---|---|
| committer | barras | 2002-10-09 15:42:49 +0000 |
| commit | 15da5979d322c5da5f251dfd92da26407df5e45f (patch) | |
| tree | e523eaad6988c9731fc8868bb20f234ce7934120 /toplevel/record.ml | |
| parent | d63861313993ed3d0a0108d659e0b08a215442c1 (diff) | |
retour en arriere concernant la recherche d'occurence modulo expansion des letins, ce qui conduisait a des comportement peu intuitifs. On priviligiera l'utilisation de la tactique Subst.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3110 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/record.ml')
| -rw-r--r-- | toplevel/record.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/toplevel/record.ml b/toplevel/record.ml index 9edb4e1d54..60855b2fc7 100644 --- a/toplevel/record.ml +++ b/toplevel/record.ml @@ -205,7 +205,6 @@ let definition_structure ((is_coe,idstruc),ps,cfs,idbuild,s) = let extract_name = function Vernacexpr.AssumExpr(id,_) -> id | Vernacexpr.DefExpr (id,_,_) -> id in let allnames = idstruc::idps@(List.map extract_name fs) in if not (list_distinct allnames) then error "Two objects have the same name"; - if occur_fields idstruc fs then error "A record cannot be recursive"; (* Now, younger decl in params and fields is on top *) let params,fields = typecheck_params_and_fields ps fs in (* let args = List.map mkVar idps in*) |