diff options
| author | herbelin | 2003-11-25 15:55:12 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-25 15:55:12 +0000 |
| commit | 3f345a0d9a4d6f0a6c9c3e441c134b336bfb21e7 (patch) | |
| tree | ad8eb97dfccf500dbbb7c19e895ac6474d64f783 /contrib/interface | |
| 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')
| -rw-r--r-- | contrib/interface/showproof.ml | 2 | ||||
| -rw-r--r-- | contrib/interface/xlate.ml | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/contrib/interface/showproof.ml b/contrib/interface/showproof.ml index 2d63e6339d..5918a8b7ee 100644 --- a/contrib/interface/showproof.ml +++ b/contrib/interface/showproof.ml @@ -1285,7 +1285,7 @@ let rec natural_ntree ig ntree = | TacAssumption -> natural_trivial ig lh g gs ltree | TacClear _ -> natural_clear ig lh g gs ltree (* Besoin de l'argument de la tactique *) - | TacSimpleInduction (NamedHyp id) -> + | TacSimpleInduction (NamedHyp id,_) -> natural_induction ig lh g gs ge id ltree false | TacExtend (_,"InductionIntro",[a]) -> let id=(out_gen wit_ident a) in diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index a904753f16..e2460d332d 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 |