From 208a0f7bfa5249f9795e6e225f309cbe715c0fad Mon Sep 17 00:00:00 2001 From: Samuel Mimram Date: Tue, 21 Nov 2006 21:38:49 +0000 Subject: Imported Upstream version 8.1~gamma --- contrib/interface/vtp.ml | 15 ++++----------- 1 file changed, 4 insertions(+), 11 deletions(-) (limited to 'contrib/interface/vtp.ml') diff --git a/contrib/interface/vtp.ml b/contrib/interface/vtp.ml index 064d20ab..fe227f99 100644 --- a/contrib/interface/vtp.ml +++ b/contrib/interface/vtp.ml @@ -112,19 +112,12 @@ and fCOMMAND = function fFORMULA x2; fINT_LIST x3; fNODE "abstraction" 3 -| CT_add_field(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11) -> +| CT_add_field(x1, x2, x3, x4) -> fFORMULA x1; fFORMULA x2; fFORMULA x3; - fFORMULA x4; - fFORMULA x5; - fFORMULA x6; - fFORMULA x7; - fFORMULA x8; - fFORMULA x9; - fFORMULA x10; - fBINDING_LIST x11; - fNODE "add_field" 11 + fFORMULA_OPT x4; + fNODE "add_field" 4 | CT_add_natural_feature(x1, x2) -> fNATURAL_FEATURE x1; fID x2; @@ -1711,7 +1704,7 @@ and fTACTIC_COM = function | CT_replace_with(x1, x2,x3,x4) -> fFORMULA x1; fFORMULA x2; - fID_OPT x3; + fCLAUSE x3; fTACTIC_OPT x4; fNODE "replace_with" 4 | CT_rewrite_lr(x1, x2, x3) -> -- cgit v1.2.3