diff options
Diffstat (limited to 'contrib/interface/xlate.ml')
| -rw-r--r-- | contrib/interface/xlate.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 60195229..df03a579 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -408,9 +408,10 @@ and (xlate_formula:Topconstr.constr_expr -> Ascent.ct_FORMULA) = function | CDynamic (_, _) -> assert false | CDelimiters (_, key, num) -> CT_num_encapsulator(CT_num_type key , xlate_formula num) - | CCast (_, e,_, t) -> + | CCast (_, e, CastConv (_, t)) -> CT_coerce_TYPED_FORMULA_to_FORMULA (CT_typed_formula(xlate_formula e, xlate_formula t)) + | CCast (_, e, CastCoerce) -> assert false | CPatVar (_, (_,i)) when is_int_meta i -> CT_coerce_ID_to_FORMULA(CT_metac (CT_int (int_of_meta i))) | CPatVar (_, (false, s)) -> |