aboutsummaryrefslogtreecommitdiffhomepage
path: root/plugins/interface/xlate.ml
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/interface/xlate.ml')
-rw-r--r--plugins/interface/xlate.ml3
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/interface/xlate.ml b/plugins/interface/xlate.ml
index bff8cae26..9629fa923 100644
--- a/plugins/interface/xlate.ml
+++ b/plugins/interface/xlate.ml
@@ -1066,7 +1066,8 @@ and xlate_tac =
(out_gen (wit_list1 rawwit_ident) l)))
| TacReflexivity -> CT_reflexivity
| TacSymmetry cls -> CT_symmetry(xlate_clause cls)
- | TacTransitivity c -> CT_transitivity (xlate_formula c)
+ | TacTransitivity (Some c) -> CT_transitivity (xlate_formula c)
+ | TacTransitivity None -> xlate_error "TODO: etransitivity"
| TacAssumption -> CT_assumption
| TacExact c -> CT_exact (xlate_formula c)
| TacExactNoCheck c -> CT_exact_no_check (xlate_formula c)