diff options
| author |  bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-01-19 13:28:22 +0000 |
|---|---|---|
| committer | bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-01-19 13:28:22 +0000 |
| commit | 4964d8eb31aa603b4b0ce70f7f4248deb8278728 (patch) | |
| tree | b50789407762c0142bca090ccb397174d726c38e /contrib | |
| parent | 759fd1e453c8023e96100c1a5d59b60d7e6c7756 (diff) | |
1.19
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5216 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/interface/vtp.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/contrib/interface/vtp.ml b/contrib/interface/vtp.ml index 1edafcfad..296061c1f 100644 --- a/contrib/interface/vtp.ml +++ b/contrib/interface/vtp.ml @@ -624,6 +624,13 @@ and fFORMULA = function fBINDER_NE_LIST x1; fFORMULA x2; fNODE "lambdac" 2 +| CT_let_tuple(x1, x2, x3, x4, x5) -> + fID_OPT_NE_LIST x1; + fID_OPT x2; + fFORMULA_OPT x3; + fFORMULA x4; + fFORMULA x5; + fNODE "let_tuple" 5 | CT_letin(x1, x2) -> fDEF x1; fFORMULA x2; @@ -640,6 +647,10 @@ and fFORMULA = function fBINDER_NE_LIST x1; fFORMULA x2; fNODE "prodc" 2 +| CT_proj(x1, x2) -> + fFORMULA x1; + fFORMULA_NE_LIST x2; + fNODE "proj" 2 and fFORMULA_LIST = function | CT_formula_list l -> (List.iter fFORMULA l); |