diff options
| author | letouzey | 2012-10-06 10:08:51 +0000 |
|---|---|---|
| committer | letouzey | 2012-10-06 10:08:51 +0000 |
| commit | 0256a92eb0d0265750bd38a85dce4f9487aefe5b (patch) | |
| tree | e2786cc2476aebafa664db64da2ab787f18a887a /printing/pptactic.ml | |
| parent | 30cf9c6711df3eb583dacad3cb98158adbbf1f5f (diff) | |
still some more dead code removal
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15875 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/pptactic.ml')
| -rw-r--r-- | printing/pptactic.ml | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 48a59be059..2ec66bb346 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -980,15 +980,6 @@ let strip_prod_binders_glob_constr n (ty,_) = | _ -> error "Cannot translate fix tactic: not enough products" in strip_ty [] n ty -let strip_prod_binders_constr n ty = - let rec strip_ty acc n ty = - if n=0 then (List.rev acc, ty) else - match Term.kind_of_term ty with - Term.Prod(na,a,b) -> - strip_ty (([Loc.ghost,na],a)::acc) (n-1) b - | _ -> error "Cannot translate fix tactic: not enough products" in - strip_ty [] n ty - let drop_env f _env = f let pr_constr_or_lconstr_pattern_expr b = @@ -1030,9 +1021,6 @@ let rec glob_printers = and pr_glob_tactic_level env n (t:glob_tactic_expr) = fst (make_pr_tac glob_printers env) n t -let pr_constr_or_lconstr_pattern b = - if b then pr_lconstr_pattern else pr_constr_pattern - let pr_raw_tactic env = pr_raw_tactic_level env ltop let pr_glob_tactic env = pr_glob_tactic_level env ltop |