diff options
Diffstat (limited to 'contrib/interface')
-rw-r--r-- | contrib/interface/xlate.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 58eaf292a..47370ef13 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -1010,8 +1010,11 @@ and xlate_tac = (xlate_int_or_constr a, xlate_using b, CT_id_list_list (List.map (fun l -> CT_id_list(List.map xlate_newind_names l)) c)) - | TacInstantiate (a, b) -> + | TacInstantiate (a, b, None) -> CT_instantiate(CT_int a, xlate_formula b) + | TacInstantiate (a, b, _) -> + xlate_error "TODO: Instantiate ... in" + | TacLetTac (id, c, cl) -> CT_lettac(xlate_ident id, xlate_formula c, (* TODO LATER: This should be shared with Unfold, |