diff options
| author | herbelin | 2004-03-02 07:04:56 +0000 |
|---|---|---|
| committer | herbelin | 2004-03-02 07:04:56 +0000 |
| commit | 8a1ddc270137f40cd8bbff20de4f41e284055891 (patch) | |
| tree | d3d41549bcd3cff2bbd0db1fb7824e05851941dd /translate | |
| parent | 1a29faa00f1e2a6f2d71088a769fe2fbc823244a (diff) | |
Generalisation de la syntaxe de 'with_names' pour accepter 'as id' avec id variable de ltac substituable dans la pratique par un intro_case_pattern dans induction, destruct et inversion
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5415 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/pptacticnew.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/translate/pptacticnew.ml b/translate/pptacticnew.ml index 5704d853be..e5e3a1fa0c 100644 --- a/translate/pptacticnew.ml +++ b/translate/pptacticnew.ml @@ -208,8 +208,8 @@ let pr_with_constr prc = function | Some c -> spc () ++ hov 1 (str "with" ++ spc () ++ prc c) let pr_with_names = function - | [] -> mt () - | ids -> spc () ++ hov 1 (str "as" ++ spc () ++ pr_case_intro_pattern ids) + | None -> mt () + | Some ipat -> spc () ++ hov 1 (str "as" ++ spc () ++ pr_intro_pattern ipat) let pr_occs pp = function [] -> pp @@ -518,14 +518,14 @@ and pr_atom1 env = function if List.exists (fun (pp,_) -> !pp) !l then duplicate true (fun (_,ids) -> hov 1 (str "induction" ++ spc () ++ pr_arg pr_quantified_hypothesis h ++ - pr_with_names (List.map (fun x -> !x) ids))) !l + pr_with_names (Some (IntroOrAndPattern (List.map(fun x -> !x) ids))))) !l else hov 1 (str "simple induction" ++ pr_arg pr_quantified_hypothesis h) | TacNewInduction (h,e,(ids,l)) -> duplicate false (fun (pp,ids') -> hov 1 (str "induction" ++ spc () ++ pr_induction_arg (pr_constr env) h ++ - pr_with_names (if !pp then List.map (fun x -> !x) ids' else ids) ++ + pr_with_names (if !pp then Some (IntroOrAndPattern (List.map (fun x -> !x) ids')) else ids) ++ pr_opt (pr_eliminator env) e)) !l | TacSimpleDestruct h -> hov 1 (str "simple destruct" ++ pr_arg pr_quantified_hypothesis h) @@ -533,7 +533,7 @@ and pr_atom1 env = function duplicate false (fun (pp,ids') -> hov 1 (str "destruct" ++ spc () ++ pr_induction_arg (pr_constr env) h ++ - pr_with_names (if !pp then List.map (fun x -> !x) ids' else ids) + pr_with_names (if !pp then Some (IntroOrAndPattern (List.map (fun x -> !x) ids')) else ids) ++ pr_opt (pr_eliminator env) e)) !l | TacDoubleInduction (h1,h2) -> hov 1 |