diff options
| author | bertot | 2003-01-22 17:18:05 +0000 |
|---|---|---|
| committer | bertot | 2003-01-22 17:18:05 +0000 |
| commit | b173ec0accede3b3aba740d1e6c54ce9679bee9c (patch) | |
| tree | 2e204fa1abe214c4835fb16d1feef059eb3e4cec /contrib/interface/vtp.ml | |
| parent | 9aeaac7698c670cc7ac92dd53cd674b5b321aab3 (diff) | |
removes all references to ctast.ml the Makefile has been updated accordingly.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3591 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/vtp.ml')
| -rw-r--r-- | contrib/interface/vtp.ml | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/contrib/interface/vtp.ml b/contrib/interface/vtp.ml index 1a6bfc4ca7..3e7cfd82a3 100644 --- a/contrib/interface/vtp.ml +++ b/contrib/interface/vtp.ml @@ -590,7 +590,7 @@ and fFORMULA = function fNODE "cofixc" 2 | CT_elimc(x1, x2, x3, x4) -> fCASE x1; - fFORMULA x2; + fFORMULA_OPT x2; fFORMULA x3; fFORMULA_LIST x4; fNODE "elimc" 4 @@ -605,6 +605,12 @@ and fFORMULA = function fFORMULA x3; fFORMULA x4; fNODE "if" 4 +| CT_inductive_let(x1, x2, x3, x4) -> + fFORMULA_OPT x1; + fID_OPT_NE_LIST x2; + fFORMULA x3; + fFORMULA x4; + fNODE "inductive_let" 4 | CT_int_encapsulator x -> fATOM "int_encapsulator"; (f_atom_string x); print_string "\n"| CT_lambdac(x1, x2) -> @@ -1257,8 +1263,8 @@ and fTACTIC_COM = function fNODE "superauto" 4 | CT_symmetry -> fNODE "symmetry" 0 | CT_tac_double(x1, x2) -> - fINT x1; - fINT x2; + fID_OR_INT x1; + fID_OR_INT x2; fNODE "tac_double" 2 | CT_tacsolve(x,l) -> fTACTIC_COM x; |