diff options
| author | herbelin | 2007-05-10 15:31:46 +0000 |
|---|---|---|
| committer | herbelin | 2007-05-10 15:31:46 +0000 |
| commit | de6e0fdd9f3078b9b0ccf87ba8a7dcc9cc47c9aa (patch) | |
| tree | 33bc723ec517a6ad737b7ca52a7e71f643ed3158 /interp/notation.ml | |
| parent | afaa5d6ee5c27329423c152362e0969dc2d9afdd (diff) | |
Prise en compte réversibilité des notations de la forme "Notation Nil := @nil".
Ajout @ref au niveau constr pour allègement syntaxe.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9819 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index c31ef54ec8..aaab6a933f 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -187,10 +187,10 @@ let cases_pattern_key = function | PatCstr (_,ref,_,_) -> RefKey (ConstructRef ref) | _ -> Oth -let aconstr_key = function +let aconstr_key = function (* Rem: AApp(ARef ref,[]) stands for @ref *) | AApp (ARef ref,args) -> RefKey ref, Some (List.length args) | AList (_,_,AApp (ARef ref,args),_,_) -> RefKey ref, Some (List.length args) - | ARef ref -> RefKey ref, Some 0 + | ARef ref -> RefKey ref, None | _ -> Oth, None let pattern_key = function |