diff options
| author | barras | 2004-03-05 21:35:15 +0000 |
|---|---|---|
| committer | barras | 2004-03-05 21:35:15 +0000 |
| commit | b2cf3bc56ebd4511070ccfedd0f0895a695a6b23 (patch) | |
| tree | f47ecbfc4e8c8c976773e529a6ecafeb07175175 /contrib/interface/vtp.ml | |
| parent | 5361cc1ac8baec7b519288dae36e9503d82d7709 (diff) | |
modif des fixpoints pour que si on donne une notation au produit, les pts fixes s'affichent correctement
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5435 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/vtp.ml')
| -rw-r--r-- | contrib/interface/vtp.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/contrib/interface/vtp.ml b/contrib/interface/vtp.ml index 8ff97b0c75..ff41852380 100644 --- a/contrib/interface/vtp.ml +++ b/contrib/interface/vtp.ml @@ -84,11 +84,12 @@ and fCOFIXTAC = function fFORMULA x2; fNODE "cofixtac" 2 and fCOFIX_REC = function -| CT_cofix_rec(x1, x2, x3) -> +| CT_cofix_rec(x1, x2, x3, x4) -> fID x1; - fFORMULA x2; + fBINDER_LIST x2; fFORMULA x3; - fNODE "cofix_rec" 3 + fFORMULA x4; + fNODE "cofix_rec" 4 and fCOFIX_REC_LIST = function | CT_cofix_rec_list(x,l) -> fCOFIX_REC x; |