diff options
-rw-r--r-- | contrib/interface/ascent.mli | 1 | ||||
-rw-r--r-- | contrib/interface/vtp.ml | 3 |
2 files changed, 4 insertions, 0 deletions
diff --git a/contrib/interface/ascent.mli b/contrib/interface/ascent.mli index 7531d80b3..30c11770a 100644 --- a/contrib/interface/ascent.mli +++ b/contrib/interface/ascent.mli @@ -619,6 +619,7 @@ and ct_TACTIC_COM = | CT_fail of ct_INT * ct_STRING_OPT | CT_first of ct_TACTIC_COM * ct_TACTIC_COM list | CT_fixtactic of ct_ID_OPT * ct_INT * ct_FIX_TAC_LIST + | CT_formula_marker of ct_FORMULA | CT_generalize of ct_FORMULA_NE_LIST | CT_generalize_dependent of ct_FORMULA | CT_idtac of ct_STRING_OPT diff --git a/contrib/interface/vtp.ml b/contrib/interface/vtp.ml index a6fad0769..55a148846 100644 --- a/contrib/interface/vtp.ml +++ b/contrib/interface/vtp.ml @@ -1496,6 +1496,9 @@ and fTACTIC_COM = function fINT x2; fFIX_TAC_LIST x3; fNODE "fixtactic" 3 +| CT_formula_marker(x1) -> + fFORMULA x1; + fNODE "formula_marker" 1 | CT_generalize(x1) -> fFORMULA_NE_LIST x1; fNODE "generalize" 1 |