diff options
| author | herbelin | 2002-10-28 19:16:13 +0000 |
|---|---|---|
| committer | herbelin | 2002-10-28 19:16:13 +0000 |
| commit | b3774957b1e0504a999d17672aa0ad91ef5752f6 (patch) | |
| tree | b064c79b37ffc3be0d6896cdbd624c8be204216c /syntax | |
| parent | bb1b3081034fc301ceccc1f87ed90030cc21bec4 (diff) | |
Des critères plus fins d'analyse des implicites automatiques; meilleur affichage des implicites en cas d'application partielle ou inférence via une position flexible; gestion des implicites en positions terminales pour anticiper sur un implicite dans nil et cie
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3185 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'syntax')
| -rwxr-xr-x | syntax/PPConstr.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/syntax/PPConstr.v b/syntax/PPConstr.v index 4b91f8c7b7..ddfbceb835 100755 --- a/syntax/PPConstr.v +++ b/syntax/PPConstr.v @@ -181,18 +181,18 @@ Syntax constr | apptailcons [ << (APPTAIL $H ($LIST $T)) >> ] -> [ [1 1] $H:L (APPTAIL ($LIST $T)):E ] | apptailnil [ << (APPTAIL) >> ] -> [ ] - | apptailcons1 [ << (APPTAIL (EXPL "!" $n $c1) ($LIST $T)) >> ] - -> [ [1 1] (EXPL $n $c1):L (APPTAIL ($LIST $T)):E ] - - ; (* Implicits *) + | apptailcons1 [ << (APPTAIL (EXPL $n $c1) ($LIST $T)) >> ] + -> [ [1 1] $n "!" $c1:E (APPTAIL ($LIST $T)):E ] + ; +(* level 8: arg_implicit [ << (EXPL ($NUM $n) $c1) >> ] -> [ $n "!" $c1:L ] (* | arg_implicit1 [(EXPL "EX" ($NUM $n) $c1)] -> [ $n "!" $c1:L ] | fun_explicit [ << (EXPL $f) >> ] -> [ $f ]*) ; - +*) level 8: recterm [ << (MATCH $P $c ($LIST $BL)) >> ] -> |