diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-25 15:55:12 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-25 15:55:12 +0000 |
| commit | 3f345a0d9a4d6f0a6c9c3e441c134b336bfb21e7 (patch) | |
| tree | ad8eb97dfccf500dbbb7c19e895ac6474d64f783 /contrib/interface/xlate.ml | |
| parent | 865d62e4551eb6a1f0c99677642bb721cc34f5b3 (diff) | |
Uniformisation des politiques de nommage de NewDestruct sur arguments recursifs et Induction style Hrec; mise en place systeme de traduction automatique; Elim/Case reconnaissent les premisses nommees du but
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4989 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/xlate.ml')
| -rw-r--r-- | contrib/interface/xlate.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index a904753f1..e2460d332 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -971,7 +971,7 @@ and xlate_tac = CT_elim (xlate_formula c1, xlate_bindings sl, xlate_using u) | TacCase (c1,sl) -> CT_casetac (xlate_formula c1, xlate_bindings sl) - | TacSimpleInduction h -> CT_induction (xlate_quantified_hypothesis h) + | TacSimpleInduction (h,_) -> CT_induction (xlate_quantified_hypothesis h) | TacSimpleDestruct h -> CT_destruct (xlate_quantified_hypothesis h) | TacCut c -> CT_cut (xlate_formula c) | TacLApply c -> CT_use (xlate_formula c) @@ -1009,12 +1009,12 @@ and xlate_tac = | TacClearBody(a::l) -> CT_clear_body (CT_id_ne_list (xlate_hyp a, List.map xlate_hyp l)) | TacDAuto (a, b) -> CT_dauto(xlate_int_opt a, xlate_int_opt b) - | TacNewDestruct(a,b,c) -> + | TacNewDestruct(a,b,(c,_)) -> CT_new_destruct (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)) - | TacNewInduction(a,b,c) -> + | TacNewInduction(a,b,(c,_)) -> CT_new_induction (xlate_int_or_constr a, xlate_using b, CT_id_list_list |