diff options
author | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-06 14:35:25 +0000 |
---|---|---|
committer | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-06 14:35:25 +0000 |
commit | a008023cae4fdddffbbbfd8a455d7776200a9cfb (patch) | |
tree | c2b82f43339ee45d614395d7350d6b53a8364437 /contrib/interface | |
parent | b74a68a56164f952345ba083f42b95eaaa37355e (diff) |
Added Instantiate ... in
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4820 85f007b7-540e-0410-9357-904b9bb8a0f7
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, |