diff options
| author | clrenard | 2003-11-18 19:58:45 +0000 |
|---|---|---|
| committer | clrenard | 2003-11-18 19:58:45 +0000 |
| commit | e92adbb94997b05a5162f8cfc83f0a0aa57086c4 (patch) | |
| tree | 620c2493b311726a210346df61a131476d252997 | |
| parent | b04df941937814d3701c9d0f573d962d85f088cc (diff) | |
correction suite ajout nouvelles tactiques
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4945 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/interface/xlate.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 5e0bc4d9f9..a904753f16 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -1102,6 +1102,7 @@ and coerce_genarg_to_TARG x = (out_gen rawwit_casted_open_constr x))) | ConstrWithBindingsArgType -> xlate_error "TODO: constr with bindings" + | WithBindingsArgType -> xlate_error "TODO: with bindings" | RedExprArgType -> xlate_error "TODO: red expr as generic argument" | List0ArgType l -> xlate_error "TODO: lists of generic arguments" | List1ArgType l -> xlate_error "TODO: non empty lists of generic arguments" @@ -1183,6 +1184,7 @@ let coerce_genarg_to_VARG x = CT_coerce_TACTIC_OPT_to_VARG (CT_coerce_TACTIC_COM_to_TACTIC_OPT t) | CastedOpenConstrArgType -> xlate_error "TODO: open constr" | ConstrWithBindingsArgType -> xlate_error "TODO: constr with bindings" + | WithBindingsArgType -> xlate_error "TODO: with bindings" | RedExprArgType -> xlate_error "TODO: red expr as generic argument" | List0ArgType l -> xlate_error "TODO: lists of generic arguments" | List1ArgType l -> xlate_error "TODO: non empty lists of generic arguments" |