diff options
| author | bertot | 2004-02-02 09:31:15 +0000 |
|---|---|---|
| committer | bertot | 2004-02-02 09:31:15 +0000 |
| commit | 69bd1551398721d78a35f7f537df70c0b799ca1e (patch) | |
| tree | de5ff1bae46d500558b80126525a0488d075df26 | |
| parent | 315b373054869cc823c96393815ec0aad3f6b9f9 (diff) | |
adds the possibility to mark function arguments as formulas in Ltac
uncapitalizes dependentrewrite
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5277 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/interface/xlate.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index a6fd97833e..07c59aa769 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -729,6 +729,8 @@ and (xlate_call_or_tacarg:raw_tactic_arg -> ct_TACTIC_COM) = (reference_to_ct_ID r, CT_tactic_arg_list(xlate_tacarg a,List.map xlate_tacarg l)) | Reference (Ident (_,s)) -> ident_tac s + | ConstrMayEval(ConstrTerm a) -> + CT_formula_marker(xlate_formula a) | t -> xlate_error "TODO LATER: result other than tactic or constr" and xlate_red_tactic = @@ -971,7 +973,7 @@ and xlate_tac = let id = ctf_ID_OPT_SOME (xlate_ident (out_gen rawwit_ident id)) in if b then CT_condrewrite_lr (xlate_tactic t, c, bindl, id) else CT_condrewrite_rl (xlate_tactic t, c, bindl, id) - | TacExtend (_,"DependentRewrite", [b; id_or_constr]) -> + | TacExtend (_,"dependentrewrite", [b; id_or_constr]) -> let b = out_gen Extraargs.rawwit_orient b in (match genarg_tag id_or_constr with | IdentArgType -> (*Dependent Rewrite/SubstHypInConcl*) |